GNU bug report logs - #74769
[PATCH Cuirass 0/4] Forgejo event support

Previous Next

Full log

Message #26 received at 74769 <at> debbugs.gnu.org (full text, mbox):

From: Romain GARBAGE <romain.garbage <at> inria.fr>
To: 74769 <at> debbugs.gnu.org
Cc: ludovic.courtes <at> inria.fr, Romain GARBAGE <romain.garbage <at> inria.fr>
Subject: [PATCH Cuirass v2 2/7] tests: Rename specifications-equal? procedure.
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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.