diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-01-28 21:49:09 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-01-28 21:49:09 +0000 |
commit | 389a4e4715e6ffb82e224f8268b4ce4fcd507d1c (patch) | |
tree | ded06bdda5058e8d3946519dfcf90911625d3e35 /test-suite/tests/srfi-1.test | |
parent | d64179499cf766863b38735d7f24b5ed13584c42 (diff) | |
download | guile-389a4e4715e6ffb82e224f8268b4ce4fcd507d1c.tar.gz |
(remove!): New tests.
Diffstat (limited to 'test-suite/tests/srfi-1.test')
-rw-r--r-- | test-suite/tests/srfi-1.test | 25 |
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 ;; |