mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 06:46:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

channels: Tweak test.

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

Change-Id: I437b9d7e23200cf0c98b1593e68b1d355bc2de01
This commit is contained in:
Ludovic Courtès 2024-01-31 08:36:02 +01:00
parent 88e8b807d6
commit 36d654fa54
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/channels.scm
View file

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