Subject: [bug#74769] [PATCH Cuirass v2 2/7] tests: Rename specifications-equal? procedure.

From: Romain GARBAGE <[email-masked]>
Date: Thu, 12 Dec 2024 16:57:50 +0100

* tests/common.scm (specifications=?): New variable.
(specifications-equal?): Remove variable.
* tests/gitlab.scm: Use new variable name.
---
 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)
-- 
2.46.0