(remove!): New tests.

[bpt/guile.git] / test-suite / tests / srfi-1.test

diff --git a/test-suite/tests/srfi-1.test b/test-suite/tests/srfi-1.test
index 1253acb..6746635 100644 (file)
--- a/test-suite/tests/srfi-1.test
+++ b/test-suite/tests/srfi-1.test
@@ -1033,6 +1033,31 @@
   (pass-if (equal? '(2 6) (remove odd? '(1 2 6))))
   (pass-if (equal? '(2 4 6) (remove odd? '(2 4 6)))))
 
+;;
+;; remove!
+;;
+
+(with-test-prefix "remove!"
+
+  (pass-if (equal? '() (remove! odd? '())))
+  (pass-if (equal? '() (remove! odd? (list 1))))
+  (pass-if (equal? '(2) (remove! odd? (list 2))))
+
+  (pass-if (equal? '() (remove! odd? (list 1 3))))
+  (pass-if (equal? '(2) (remove! odd? (list 2 3))))
+  (pass-if (equal? '(2) (remove! odd? (list 1 2))))
+  (pass-if (equal? '(2 4) (remove! odd? (list 2 4))))
+
+  (pass-if (equal? '() (remove! odd? (list 1 3 5))))
+  (pass-if (equal? '(2) (remove! odd? (list 2 3 5))))
+  (pass-if (equal? '(2) (remove! odd? (list 1 2 5))))
+  (pass-if (equal? '(2 4) (remove! odd? (list 2 4 5))))
+
+  (pass-if (equal? '(6) (remove! odd? (list 1 3 6))))
+  (pass-if (equal? '(2 6) (remove! odd? (list 2 3 6))))
+  (pass-if (equal? '(2 6) (remove! odd? (list 1 2 6))))
+  (pass-if (equal? '(2 4 6) (remove! odd? (list 2 4 6)))))
+
 ;;
 ;; span
 ;;