Add more srfi-234 tests in the PR

shirok · Oct 21, 2024 · 0b75091 · 0b75091
1 parent ac5fa5e
commit 0b75091
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/test/include/srfi-234-test.scm b/test/include/srfi-234-test.scm
@@ -108,6 +108,16 @@
                                (6 5)
                                (7 4) (7 6) (7 7))))
 
+(test-assert
+ (lset= (lambda (a b) (lset= eqv? a b))
+        '((1) (2))
+        (connected-components '((1 2)))))
+
+(test-assert
+ (lset= (lambda (a b) (lset= eqv? a b))
+        '((1 2))
+        (connected-components '((1 2) (2 1)))))
+
 (test-assert
  (lset= (lambda (a b) (lset= eqv? a b))
         '((1 2) (3 4))
@@ -136,8 +146,6 @@
                             (6 5)
                             (7 4) (7 6) (7 7))))))
 
-
-
 (define (permutations edgelist)
   (if (null? edgelist) '(())
       (apply append