nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tests: Make #:references-graphs gexp test more tolerant. 

* tests/gexp.scm ("gexp->derivation #:references-graphs"): Use 'lset=' instead
  of 'equal?' since the order in which references are listed in not
  guaranteed.
master
Ludovic Courtès 2015-07-20 13:36:36 +02:00
parent d05c6da05d
commit 72cd8ec0b1
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/gexp.scm
View File

@ -511,7 +511,7 @@
(test-assertm "gexp->derivation #:references-graphs" (test-assertm "gexp->derivation #:references-graphs"
(mlet* %store-monad (mlet* %store-monad
((one (text-file "one" "hello, world")) ((one (text-file "one" (random-text)))
(two (gexp->derivation "two" (two (gexp->derivation "two"
#~(symlink #$one #$output:chbouib))) #~(symlink #$one #$output:chbouib)))
(drv (gexp->derivation "ref-graphs" (drv (gexp->derivation "ref-graphs"
@ -544,12 +544,14 @@
(g-guile -> (derivation->output-path drv))) (g-guile -> (derivation->output-path drv)))
(return (and ok? (return (and ok?
(equal? (call-with-input-file g-one read) (list one)) (equal? (call-with-input-file g-one read) (list one))
(equal? (call-with-input-file g-two read) (lset= string=?
(list one (derivation->output-path two "chbouib"))) (call-with-input-file g-two read)
(list one (derivation->output-path two "chbouib")))
;; Note: %BOOTSTRAP-GUILE depends on the bootstrap Bash. ;; Note: %BOOTSTRAP-GUILE depends on the bootstrap Bash.
(equal? (call-with-input-file g-guile read) (lset= string=?
(list (derivation->output-path guile-drv) bash)))))) (call-with-input-file g-guile read)
(list (derivation->output-path guile-drv) bash))))))
(test-assertm "gexp->derivation #:allowed-references" (test-assertm "gexp->derivation #:allowed-references"
(mlet %store-monad ((drv (gexp->derivation "allowed-refs" (mlet %store-monad ((drv (gexp->derivation "allowed-refs"