~ruther/guix-local: channels: Tweak test.

36d654fa540539413b88cf8ec62a0fb55280f820 — Ludovic Courtès 2 years ago 88e8b80

channels: Tweak test.

* tests/channels.scm ("latest-channel-instances excludes duplicate channel dependencies"):
Use ‘equal?’ rather than ‘string=?’ since we can get #f.

Change-Id: I437b9d7e23200cf0c98b1593e68b1d355bc2de01

patch browse .tar.gz

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

M tests/channels.scm

M tests/channels.scm => tests/channels.scm +3 -3

@@ 191,9 191,9 @@
                            (and (eq? (channel-name
                                       (channel-instance-channel instance))
                                      'test-channel)
-                                (string=? (channel-commit
-                                           (channel-instance-channel instance))
-                                          "abc1234")))
+                                (equal? (channel-commit
+                                         (channel-instance-channel instance))
+                                        "abc1234")))
                          instances)))))))
 
 (test-equal "latest-channel-instances #:validate-pull"