summaryrefslogtreecommitdiff
path: root/test-suite/tests/srfi-1.test
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-01-28 21:49:09 +0000
committerKevin Ryde <user42@zip.com.au>2005-01-28 21:49:09 +0000
commit389a4e4715e6ffb82e224f8268b4ce4fcd507d1c (patch)
treeded06bdda5058e8d3946519dfcf90911625d3e35 /test-suite/tests/srfi-1.test
parentd64179499cf766863b38735d7f24b5ed13584c42 (diff)
downloadguile-389a4e4715e6ffb82e224f8268b4ce4fcd507d1c.tar.gz
(remove!): New tests.
Diffstat (limited to 'test-suite/tests/srfi-1.test')
-rw-r--r--test-suite/tests/srfi-1.test25
1 files changed, 25 insertions, 0 deletions
diff --git a/test-suite/tests/srfi-1.test b/test-suite/tests/srfi-1.test
index 1253acb75..6746635d5 100644
--- a/test-suite/tests/srfi-1.test
+++ b/test-suite/tests/srfi-1.test
@@ -1034,6 +1034,31 @@
(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
;;