diff options
author | Tobias Geerinckx-Rice <me@tobias.gr> | 2024-09-08 02:00:00 +0200 |
---|---|---|
committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2024-09-08 02:00:00 +0200 |
commit | a4e57de06163bdc5f355116697aac0f6b6e36c21 (patch) | |
tree | e25485b2612ddcacfd3ce1ba6830ff0d2e07ee12 /gnu/packages | |
parent | bf6138e9ac1eb5965efb196c171d7e665100dbaa (diff) | |
download | guix-a4e57de06163bdc5f355116697aac0f6b6e36c21.tar.gz guix-a4e57de06163bdc5f355116697aac0f6b6e36c21.zip |
gnu: stress-ng: Reduce test coverage.
* gnu/packages/admin.scm (stress-ng)[arguments]: Delete the
'check-a-little-harder phase.
Change-Id: I32dc1a0fcad4a0f4763954f060d0b19cbeef23ca
Diffstat (limited to 'gnu/packages')
-rw-r--r-- | gnu/packages/admin.scm | 25 |
1 files changed, 4 insertions, 21 deletions
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 7a5fb3ca29..512c34f095 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -2629,30 +2629,13 @@ system is under heavy load.") "/share/stress-ng/example-jobs") (string-append "BASHDIR=" #$output "/share/bash-completion/completions")) + ;; There is also a fast-test-all that very briefly runs every single + ;; stressor, but its utility is questionable compared to its cost. + ;; See this package's git history for details & which tests to skip. #:test-target "lite-test" #:phases #~(modify-phases %standard-phases - (delete 'configure) ; no configure script - (add-after 'check 'check-a-little-harder - ;; XXX Guix supports only one #:test-target. Run more tests. - (lambda* (#:key tests? #:allow-other-keys #:rest args) - (when tests? - (substitute* "debian/tests/fast-test-all" - (("^EXCLUDE=\"" exclude=) - (string-append - exclude= - (string-join - '("fpunch" ;fails for reasons not investigated - "prio-inv" ;requires elevated privileges - "ptrace") ;fails if host kernel denies ptracing - " ") " ")) - ;; There's a commented list of ‘tests that can lock up - ;; some kernels or are CPU/arch specific’. Uncomment it. - (("#(EXCLUDE=)" _ uncomment) uncomment) - ;; Make it so that both lists are appended, with spaces. - (("EXCLUDE=\"") "EXCLUDE+=\" ")) - (apply (assoc-ref %standard-phases 'check) - `(,@args #:test-target "fast-test-all")))))))) + (delete 'configure)))) ;no configure script (inputs (list keyutils kmod |