~ruther/guix-local: tests: 'topologically-sorted' test handles different references orders.

58cbbe4b5562ed8be5c7c6fbdf2b2d8384a5dc8a — Ludovic Courtès 12 years ago 220193a

tests: 'topologically-sorted' test handles different references orders.

* tests/store.scm ("topologically-sorted, more difficult"): Arrange to
  handle a different ordering of (references %store y).

patch browse .tar.gz

1 files changed, 12 insertions(+), 3 deletions(-)

M tests/store.scm

M tests/store.scm => tests/store.scm +12 -3

@@ 190,9 190,18 @@
          (s1 (topologically-sorted %store (list y)))
          (s2 (topologically-sorted %store (list c y)))
          (s3 (topologically-sorted %store (cons y (references %store y)))))
-    (and (equal? s1 (list w x a b c d y))
-         (equal? s2 (list a b c w x d y))
-         (lset= string=? s1 s3))))
+    ;; The order in which 'references' returns the references of Y is
+    ;; unspecified, so accommodate.
+    (let* ((x-then-d? (equal? (references %store y) (list x d))))
+      (and (equal? s1
+                   (if x-then-d?
+                       (list w x a b c d y)
+                       (list a b c d w x y)))
+           (equal? s2
+                   (if x-then-d?
+                       (list a b c w x d y)
+                       (list a b c d w x y)))
+           (lset= string=? s1 s3)))))
 
 (test-assert "log-file, derivation"
   (let* ((b (add-text-to-store %store "build" "echo $foo > $out" '()))