diff --git a/gnu/packages/benchmark.scm b/gnu/packages/benchmark.scm index 2fc4082ed1..b7bb332fc7 100644 --- a/gnu/packages/benchmark.scm +++ b/gnu/packages/benchmark.scm @@ -10,6 +10,7 @@ ;;; Copyright © 2020 malte Frank Gerdes ;;; Copyright © 2020, 2021 Maxim Cournoyer ;;; Copyright © 2020 Greg Hogan +;;; Copyright © 2021 Arun Isaac ;;; ;;; This file is part of GNU Guix. ;;; @@ -353,3 +354,41 @@ (define-public python-locust the user is too low. To raise such limit on a Guix System, refer to @samp{info guix --index-search=pam-limits-service}.") (license license:expat))) + +(define-public interbench + (package + (name "interbench") + (version "0.31") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ckolivas/interbench") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0ifnw8vnkcgrksx7g5d9ii4kjppqnk32lvrybdybmibyvag6zfdc")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; no tests + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-broken-makefile + (lambda _ + ;; Remove erroneous "-lm" target + (substitute* "Makefile" + (("hackbench.o -lm") "hackbench.o")))) + (delete 'configure) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (install-file "interbench" (string-append out "/bin")) + (install-file "interbench.8" (string-append out "/share/man/man8")))))))) + (home-page "http://users.on.net/~ckolivas/interbench/") + (synopsis "Interactivity benchmark") + (description "interbench is designed to benchmark interactivity on Linux. +It is designed to measure the effect of changes in Linux kernel design or +system configuration changes such as CPU, I/O scheduler and filesystem changes +and options. With careful benchmarking, different hardware can be compared.") + (license license:gpl2+)))