[bug#31811] [PATCH] gnu: Add fio.

[Ricardo Wurmus]

* gnu/packages/profiling.scm (fio): New variable.
---
 gnu/packages/profiling.scm | 39 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/profiling.scm b/gnu/packages/profiling.scm
index b248af0b3..a7a7dfd53 100644
--- a/gnu/packages/profiling.scm
+++ b/gnu/packages/profiling.scm
@@ -22,6 +22,7 @@
   #:use-module (guix packages)
   #:use-module ((guix licenses) #:prefix license:) ; avoid zlib, expat clashes
   #:use-module (guix download)
+  #:use-module (guix git-download)
   #:use-module (guix utils)
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages)
@@ -336,6 +337,44 @@ the same display and thus provide the ability to easily 
compare the effects of
 different kinds of performance behavior.")
     (license license:bsd-3)))
 
+(define-public fio
+  (package
+    (name "fio")
+    (version "3.7")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/axboe/fio.git";)
+                    (commit (string-append "fio-" version))))
+              (file-name (string-append name "-" version "-checkout"))
+              (sha256
+               (base32
+                "1m2slyxhzyznq283m6ljjgjg38i0hxg537bwhfs12qskv00c4vsk"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:test-target "test"
+       #:phases
+       (modify-phases %standard-phases
+         ;; This package uses a custom configure script which exits whenever
+         ;; it encounters an unknown argument (such as "SHELL" or
+         ;; "CONFIG_SHELL").
+         (add-after 'unpack 'make-configure-tolerant
+           (lambda _
+             (substitute* "configure"
+               (("exit \\$exit_val") ""))
+             #t)))))
+    (home-page "https://github.com/axboe/fio";)
+    (synopsis "Flexible I/O tester")
+    (description "Fio is a tool that will spawn a number of threads or
+processes doing a particular type of I/O action as specified by the user.  fio
+takes a number of global parameters, each inherited by the thread unless
+otherwise parameters given to them overriding that setting is given.  The
+typical use of fio is to write a job file matching the I/O load one wants to
+simulate.")
+    ;; Some of the source files are under GPLv2, others include the "or later"
+    ;; clause.
+    (license (list license:gpl2+ license:gpl2))))
+
 (define (make-scorep mpi)
   (package
     (name (string-append "scorep-" (package-name mpi)))
-- 
2.17.1