branch: main
commit 51efb1380a602bb2bab8f4c9d569b78ffcb5a71d
Author: Romain GARBAGE <[email protected]>
AuthorDate: Thu Dec 12 16:57:50 2024 +0100
tests: Rename specifications-equal? procedure.
* tests/common.scm (specifications=?): New variable.
(specifications-equal?): Remove variable.
* tests/gitlab.scm: Use new variable name.
Signed-off-by: Ludovic Courtès <[email protected]>
---
tests/common.scm | 4 ++--
tests/gitlab.scm | 10 +++++-----
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/tests/common.scm b/tests/common.scm
index 5054ea0..488d8db 100644
--- a/tests/common.scm
+++ b/tests/common.scm
@@ -31,7 +31,7 @@
test-init-db!
with-guix-daemon
wait-for-bridge
- specifications-equal?))
+ specifications=?))
(define %db
(make-parameter #f))
@@ -125,7 +125,7 @@ Return the socket on success and #f on failure."
(strerror (system-error-errno args)))
#f)))))))
-(define (specifications-equal? spec1 spec2)
+(define (specifications=? spec1 spec2)
"Return true if SPEC2 and SPEC2 are equivalent, false otherwise."
(and (eq? (specification-name spec1)
(specification-name spec2))
diff --git a/tests/gitlab.scm b/tests/gitlab.scm
index adf94cc..117a94d 100644
--- a/tests/gitlab.scm
+++ b/tests/gitlab.scm
@@ -158,7 +158,7 @@
}")
(test-assert "default-json"
- (specifications-equal?
+ (specifications=?
(let ((event (json->gitlab-event default-mr-json)))
(gitlab-merge-request->specification
(gitlab-event-value event)
@@ -177,7 +177,7 @@
(systems (list "x86_64-linux")))))
(test-assert "custom-json"
- (specifications-equal?
+ (specifications=?
(let ((event (json->gitlab-event custom-mr-json)))
(gitlab-merge-request->specification
(gitlab-event-value event)
@@ -197,7 +197,7 @@
"aarch64-linux")))))
(test-assert "custom-json-multiple-packages"
- (specifications-equal?
+ (specifications=?
(let ((event (json->gitlab-event custom-mr-json-multiple-packages)))
(gitlab-merge-request->specification
(gitlab-event-value event)
@@ -216,7 +216,7 @@
(systems (list "x86_64-linux")))))
(test-assert "custom-json-name-prefix"
- (specifications-equal?
+ (specifications=?
(let ((event (json->gitlab-event custom-mr-json-name-prefix)))
(gitlab-merge-request->specification
(gitlab-event-value event)
@@ -235,7 +235,7 @@
(systems (list "x86_64-linux")))))
(test-assert "custom-json-build-all"
- (specifications-equal?
+ (specifications=?
(let ((event (json->gitlab-event custom-mr-json-build-all)))
(gitlab-merge-request->specification
(gitlab-event-value event)
