diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-07-20 13:36:36 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-07-20 13:37:45 +0200 |
| commit | 72cd8ec0b1465ddf5465bc2d75b3ca343aad99dd (patch) | |
| tree | 28c38807687c46598d47dbff1284599d84144648 | |
| parent | d05c6da05d99275176c8d0e2c9d4aadecefbee9c (diff) | |
| download | patches-72cd8ec0b1465ddf5465bc2d75b3ca343aad99dd.tar patches-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.scm | 12 |
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" |