Subject: [PATCH Cuirass 3/3] forges: Use %default-forges-channels instead of %default-channels.

From: Romain GARBAGE <[email-masked]>
Date: Mon, 28 Apr 2025 12:08:48 +0200

* src/cuirass/forges/forgejo.scm (forgejo-pull-request->specification), src/cuirass/forges/gitlab.scm (gitlab-merge-request->specification): Use %default-forges-channels instead of %default-channels.
* tests/forgejo.scm, tests/forges-notification.scm, tests/gitlab.scm : Update tests.
---
 src/cuirass/forges/forgejo.scm |  2 +-
 src/cuirass/forges/gitlab.scm  |  2 +-
 tests/forgejo.scm              |  2 +-
 tests/forges-notification.scm  |  7 ++++---
 tests/gitlab.scm               | 10 +++++-----
 5 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/src/cuirass/forges/forgejo.scm b/src/cuirass/forges/forgejo.scm
index 42fa3f3..bbda806 100644
--- a/src/cuirass/forges/forgejo.scm
+++ b/src/cuirass/forges/forgejo.scm
@@ -168,7 +168,7 @@
               (name project-name)
               (url source-url)
               (branch source-branch))
-             %default-channels))
+             (%default-forges-channels)))
      (priority priority)
      (period period)
      (systems systems)
diff --git a/src/cuirass/forges/gitlab.scm b/src/cuirass/forges/gitlab.scm
index ced8907..922ace0 100644
--- a/src/cuirass/forges/gitlab.scm
+++ b/src/cuirass/forges/gitlab.scm
@@ -139,7 +139,7 @@
               (name project-name)
               (url source-url)
               (branch source-branch))
-             %default-channels))
+             (%default-forges-channels)))
      (priority priority)
      (period period)
      (systems systems)
diff --git a/tests/forgejo.scm b/tests/forgejo.scm
index 6b3e0dd..22d4f70 100644
--- a/tests/forgejo.scm
+++ b/tests/forgejo.scm
@@ -88,7 +88,7 @@
              (name 'project-name)
              (url "https://forgejo.instance.test/source-repo/fork-name.git")
              (branch "test-branch"))
-            %default-channels))
+            (%default-forges-channels)))
     (priority %default-jobset-options-priority)
     (period %default-jobset-options-period)
     (systems %default-jobset-options-systems)
diff --git a/tests/forges-notification.scm b/tests/forges-notification.scm
index fff10ee..fa673f4 100644
--- a/tests/forges-notification.scm
+++ b/tests/forges-notification.scm
@@ -17,6 +17,7 @@
 ;;; along with Cuirass.  If not, see <http://www.gnu.org/
 
 (use-modules (cuirass forges notification)
+             (cuirass forges)
              (cuirass specification)
              (cuirass tests http)
              (fibers)
@@ -34,7 +35,7 @@
                         (name 'project-name)
                         (url "https://instance.local/path/to/channel")
                         (branch "test-branch"))
-                       %default-channels)))))
+                       (%default-forges-channels))))))
     (run-fibers (lambda ()
                   (spawn-forge-notification-service spec)))))
 
@@ -48,7 +49,7 @@
                         (name 'project-name)
                         (url "https://instance.local/path/to/channel")
                         (branch "test-branch"))
-                       %default-channels))
+                       (%default-forges-channels)))
                (properties '((forge-type . unsupported-forge))))))
     (run-fibers (lambda ()
                   (spawn-forge-notification-service spec)))))
@@ -65,7 +66,7 @@
                        (name 'project-name)
                        (url "https://instance.local/path/to/channel")
                        (branch "test-branch"))
-                      %default-channels))
+                      (%default-forges-channels)))
               (properties `((forge-type . ,forge-type)))))
        (channel (make-channel))
        (%handler-values '())
diff --git a/tests/gitlab.scm b/tests/gitlab.scm
index 1e29f73..89331e1 100644
--- a/tests/gitlab.scm
+++ b/tests/gitlab.scm
@@ -208,7 +208,7 @@
              (name 'project-name)
              (url "https://gitlab.instance.test/source-repo/fork-name.git")
              (branch "test-branch"))
-            %default-channels))
+            (%default-forges-channels)))
     (priority %default-jobset-options-priority)
     (period %default-jobset-options-period)
     (systems %default-jobset-options-systems)
@@ -232,7 +232,7 @@
              (name 'project-name)
              (url "https://gitlab.instance.test/source-repo/fork-name.git")
              (branch "test-branch"))
-            %default-channels))
+            (%default-forges-channels)))
     (priority 3)
     (period 25)
     (systems (list "x86_64-linux"
@@ -257,7 +257,7 @@
              (name 'project-name)
              (url "https://gitlab.instance.test/source-repo/fork-name.git")
              (branch "test-branch"))
-            %default-channels))
+            (%default-forges-channels)))
     (priority %default-jobset-options-priority)
     (period %default-jobset-options-period)
     (systems %default-jobset-options-systems)
@@ -281,7 +281,7 @@
              (name 'project-name)
              (url "https://gitlab.instance.test/source-repo/fork-name.git")
              (branch "test-branch"))
-            %default-channels))
+            (%default-forges-channels)))
     (priority %default-jobset-options-priority)
     (period %default-jobset-options-period)
     (systems %default-jobset-options-systems)
@@ -305,7 +305,7 @@
              (name 'project-name)
              (url "https://gitlab.instance.test/source-repo/fork-name.git")
              (branch "test-branch"))
-            %default-channels))
+            (%default-forges-channels)))
     (priority 3)
     (period 25)
     (systems (list "x86_64-linux"
-- 
2.49.0