X-Git-Url: https://git.hcoop.net/jackhill/guix/guix.git/blobdiff_plain/84157bb8bf2c610584e0836047da4c710f8eaf76..44d66cf764df1a5f92e32c101bc88b20b8ac96b1:/gnu/packages/benchmark.scm diff --git a/gnu/packages/benchmark.scm b/gnu/packages/benchmark.scm index 4dab620993..5bd16ad7be 100644 --- a/gnu/packages/benchmark.scm +++ b/gnu/packages/benchmark.scm @@ -1,5 +1,12 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016, 2017 Marius Bakke +;;; Copyright © 2017 Dave Love +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice +;;; Copyright © 2018, 2019 Ricardo Wurmus +;;; Copyright © 2019 Eric Bavier +;;; Copyright © 2019 Gábor Boskovits +;;; Copyright © 2019 Ludovic Courtès +;;; Copyright © 2020 Vincent Legoll ;;; ;;; This file is part of GNU Guix. ;;; @@ -20,25 +27,33 @@ #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (guix download) + #:use-module (guix git-download) + #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) + #:use-module (gnu packages) + #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages linux) #:use-module (gnu packages maths) + #:use-module (gnu packages mpi) + #:use-module (gnu packages perl) #:use-module (gnu packages python) - #:use-module (gnu packages storage)) + #:use-module (gnu packages python-science) + #:use-module (gnu packages python-xyz) + #:use-module (gnu packages storage) + #:use-module (ice-9 match)) (define-public fio (package (name "fio") - (version "2.18") + (version "3.21") (source (origin (method url-fetch) - (uri (string-append - "http://brick.kernel.dk/snaps/" - "fio-" version ".tar.bz2")) + (uri (string-append "https://brick.kernel.dk/snaps/" + "fio-" version ".tar.bz2")) (sha256 (base32 - "08kx2mh556xby9saayrbynwrkmh4v8wwrw759nbv025ch3xbw79n")))) + "0np1scxqfpd6fcnnnfyn8xdsh6lc5pyq3vk1jm1zk7sa58fvccd4")))) (build-system gnu-build-system) (arguments '(#:test-target "test" @@ -63,8 +78,9 @@ ;; The configure script doesn't understand some of the ;; GNU options, so we can't use #:configure-flags. (let ((out (assoc-ref outputs "out"))) - (zero? (system* "./configure" - (string-append "--prefix=" out)))))) + (invoke "./configure" + (string-append "--prefix=" out)) + #t))) ;; The main `fio` executable is fairly small and self contained. ;; Moving the auxiliary python and gnuplot scripts to a separate ;; output saves almost 400 MiB on the closure. @@ -78,8 +94,8 @@ (dst (string-append newbin "/" file))) (link src dst) (delete-file src))) - '("fio2gnuplot" "fio_latency2csv.py" - "fiologparser_hist.py" "fiologparser.py")) + '("fio2gnuplot" "fiologparser_hist.py" + "fiologparser.py")) ;; Make sure numpy et.al is found. (wrap-program (string-append newbin "/fiologparser_hist.py") `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))) @@ -103,3 +119,142 @@ is to write a job file matching the I/O load one wants to simulate.") ;; are covered by other licenses. (license (list license:gpl2 license:gpl2+ license:bsd-2 license:public-domain)))) + +;; Parameterized in anticipation of m(va)pich support +(define (intel-mpi-benchmarks mpi) + (package + (name (string-append "intel-mpi-benchmarks" + (if (string=? (package-name mpi) "openmpi") + "" + (string-append "-" (package-name mpi))))) + (version "2019.3") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/intel/mpi-benchmarks") + (commit (string-append "IMB-v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0si5xi6ilhd3w0gbsg124589pvp094hvf366rvjjb9pi7pdk5p4i")))) + (build-system gnu-build-system) + (inputs + `(("mpi" ,mpi))) + (arguments + `(#:phases + (modify-phases %standard-phases + (delete 'configure) + (delete 'check) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (define (benchmark? file stat) + (and (string-prefix? "IMB-" (basename file)) + (executable-file? file))) + + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin"))) + (for-each (lambda (file) + (install-file file bin)) + (find-files "." benchmark?)) + #t)))) + + ;; The makefile doesn't express all the dependencies, it seems. + #:parallel-build? #t + + #:make-flags '("CC=mpicc" "CXX=mpicxx"))) + (home-page "https://software.intel.com/en-us/articles/intel-mpi-benchmarks") + (synopsis "Benchmarks for the Message Passing Interface (MPI)") + (description + "This package provides benchmarks for implementations of the @dfn{Message +Passing Interface} (MPI). It contains MPI performance measurements for +point-to-point and global communication, and file, operations for a range of +message sizes. The generated benchmark data fully characterize: + +@itemize +@item +Performance of a cluster system, including node performance, network latency, +and throughput; +@item +Efficiency of the MPI implementation. +@end itemize") + (license license:cpl1.0))) + +(define-public intel-mpi-benchmarks/openmpi + (intel-mpi-benchmarks openmpi)) + +(define-public imb-openmpi + (deprecated-package "imb-openmpi" intel-mpi-benchmarks/openmpi)) + +(define-public multitime + (package + (name "multitime") + (version "1.4") + (source (origin + (method url-fetch) + (uri (string-append "https://tratt.net/laurie/src/" + "multitime/releases/" + "multitime-" version ".tar.gz")) + (sha256 + (base32 + "0iyfsdrbyqa7a4ifrh19l9a48hgv7ld6m0d8yf9bkl12q0qw91fx")))) + (build-system gnu-build-system) + (arguments '(#:tests? #f)) ; there are no tests + (home-page "https://tratt.net/laurie/src/multitime/") + (synopsis "Time command execution over multiple executions") + (description + "The @code{time} utility is a simple and often effective way of measuring +how long a command takes to run (wall time). Unfortunately, running a command +once can give misleading timings. @code{multitime} is, in essence, a simple +extension to @code{time} which runs a command multiple times and prints the +timing means, standard deviations, mins, medians, and maxes having done so. +This can give a much better understanding of the command's performance.") + (license license:expat))) + +(define-public benchmark + (package + (name "benchmark") + (version "1.5.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/google/benchmark") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0r9dbg4cbk47gwmayys31a83m3y67k0kh1f6pl8i869rbd609ndh")) + (patches (search-patches "benchmark-unbundle-googletest.patch")))) + (build-system cmake-build-system) + (native-inputs + `(("googletest" ,googletest))) + (home-page "https://github.com/google/benchmark") + (synopsis "Microbenchmark support library") + (description + "Benchmark is a library to benchmark code snippets, +similar to unit tests.") + (license license:asl2.0))) + +(define-public bonnie++ + (package + (name "bonnie++") + (version "1.98") + (source (origin + (method url-fetch) + (uri (string-append "https://www.coker.com.au/bonnie++/bonnie++-" + version ".tgz")) + (sha256 + (base32 + "010bmlmi0nrlp3aq7p624sfaj5a65lswnyyxk3cnz1bqig0cn2vf")))) + (build-system gnu-build-system) + (native-inputs + `(("perl" ,perl))) + (arguments '(#:tests? #f)) ; there are no tests + (home-page "https://doc.coker.com.au/projects/bonnie/") + (synopsis "Hard drive and file system benchmark suite") + (description + "Bonnie++ is a benchmark suite that is aimed at performing a number of +simple tests of hard drive and file system performance. Bonnie++ allows you to +benchmark how your file systems perform with respect to data read and write +speed, the number of seeks that can be performed per second, and the number of +file metadata operations that can be performed per second.") + (license license:gpl2))) ;GPL 2 only, see copyright.txt