aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-07-20 13:36:36 +0200
committerLudovic Courtès <ludo@gnu.org>2015-07-20 13:37:45 +0200
commit72cd8ec0b1465ddf5465bc2d75b3ca343aad99dd (patch)
tree28c38807687c46598d47dbff1284599d84144648
parentd05c6da05d99275176c8d0e2c9d4aadecefbee9c (diff)
downloadgnu-guix-72cd8ec0b1465ddf5465bc2d75b3ca343aad99dd.tar
gnu-guix-72cd8ec0b1465ddf5465bc2d75b3ca343aad99dd.tar.gz
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.
-rw-r--r--tests/gexp.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm
index 740d74620e..0749811ea8 100644
--- a/tests/gexp.scm
+++ b/tests/gexp.scm
@@ -511,7 +511,7 @@
(test-assertm "gexp->derivation #:references-graphs"
(mlet* %store-monad
- ((one (text-file "one" "hello, world"))
+ ((one (text-file "one" (random-text)))
(two (gexp->derivation "two"
#~(symlink #$one #$output:chbouib)))
(drv (gexp->derivation "ref-graphs"
@@ -544,12 +544,14 @@
(g-guile -> (derivation->output-path drv)))
(return (and ok?
(equal? (call-with-input-file g-one read) (list one))
- (equal? (call-with-input-file g-two read)
- (list one (derivation->output-path two "chbouib")))
+ (lset= string=?
+ (call-with-input-file g-two read)
+ (list one (derivation->output-path two "chbouib")))
;; Note: %BOOTSTRAP-GUILE depends on the bootstrap Bash.
- (equal? (call-with-input-file g-guile read)
- (list (derivation->output-path guile-drv) bash))))))
+ (lset= string=?
+ (call-with-input-file g-guile read)
+ (list (derivation->output-path guile-drv) bash))))))
(test-assertm "gexp->derivation #:allowed-references"
(mlet %store-monad ((drv (gexp->derivation "allowed-refs"