Subject: [PATCH Cuirass 1/3] tests: common: Improve specifications=?.

From: Romain GARBAGE <[email-masked]>
Date: Fri, 7 Mar 2025 12:00:23 +0100

* tests/common.scm (specifications=?): Add check for channel commit.
---
 tests/common.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/common.scm b/tests/common.scm
index 479fef3..4974812 100644
--- a/tests/common.scm
+++ b/tests/common.scm
@@ -149,5 +149,9 @@ Return the socket on success and #f on failure."
                     (specification-channels spec1))
                (map channel-branch
                     (specification-channels spec2)))
+       (equal? (map channel-commit
+                    (specification-channels spec1))
+               (map channel-commit
+                    (specification-channels spec2)))
        (equal? (specification-properties spec1)
                (specification-properties spec2))))

base-commit: 520b2fdbd96e953fc2d4b56e78e52a81fc11e2b7
-- 
2.48.1