mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-17 12:30:38 +02:00
Code Releases Activity

gnu: stress-ng: Update to 0.18.04.

Browse source 
* gnu/packages/admin.scm (stress-ng): Update to 0.18.04.
[arguments]: Skip more broken tests.

Change-Id: Idd1d63e4b24304f5d97d50d7385bf64193fc43c1
This commit is contained in:
Tobias Geerinckx-Rice 2024-09-08 02:00:00 +02:00
parent 278cce9f61
commit bf6138e9ac
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 16 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

23
gnu/packages/admin.scm
View file

@ -2604,7 +2604,7 @@ system is under heavy load.")
(define-public stress-ng (define-public stress-ng
(package (package
(name "stress-ng") (name "stress-ng")
(version "0.13.10") (version "0.18.04")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -2613,12 +2613,12 @@ system is under heavy load.")
(commit (string-append "V" version)))) (commit (string-append "V" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1z9vjn2131iv3pwrh04z6r5ygi1qgad5bi3jhghcvc3v1b4k5ran")))) (base32 "100w4qkrzpg7jjl4dw0c376xi811qnjmlbffiy43i945f9vl3dc7"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
;; XXX The test suite seems to cause instability on the VisionFive 2 ;; XXX The test suite seems to cause instability on the VisionFive 2
;; build machines, maybe it's stressing them as intended but this is ;; build machines, maybe it's stressing them as intended but this is
;; unhelpful ;; unhelpful.
(list #:tests? (not (target-riscv64?)) (list #:tests? (not (target-riscv64?))
#:make-flags #:make-flags
#~(list (string-append "CC=" #$(cc-for-target)) #~(list (string-append "CC=" #$(cc-for-target))
@ -2638,10 +2638,19 @@ system is under heavy load.")
(lambda* (#:key tests? #:allow-other-keys #:rest args) (lambda* (#:key tests? #:allow-other-keys #:rest args)
(when tests? (when tests?
(substitute* "debian/tests/fast-test-all" (substitute* "debian/tests/fast-test-all"
(("EXCLUDE=\"" exclude=) (("^EXCLUDE=\"" exclude=)
(string-append exclude= (string-append
;; Fails if host kernel denies ptracing. exclude=
"ptrace "))) (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) (apply (assoc-ref %standard-phases 'check)
`(,@args #:test-target "fast-test-all")))))))) `(,@args #:test-target "fast-test-all"))))))))
(inputs (inputs