summary refs log tree commit diff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2024-01-31 08:36:02 +0100
committerLudovic Courtès <ludo@gnu.org>2024-01-31 09:07:25 +0100
commit36d654fa540539413b88cf8ec62a0fb55280f820 (patch)
tree636f33010ec7f9e183f64329d8f6dd6ee776021e /tests
parent88e8b807d6af3cf2902909d295cd3194aa7ea684 (diff)
downloadguix-36d654fa540539413b88cf8ec62a0fb55280f820.tar.gz
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
Diffstat (limited to 'tests')
-rw-r--r--tests/channels.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/channels.scm b/tests/channels.scm
index 6c4276deb4..27e8487fbc 100644
--- a/tests/channels.scm
+++ b/tests/channels.scm
@@ -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"