mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

(remove!): New tests.

Browse source
This commit is contained in:
Kevin Ryde 2005-01-28 21:49:09 +00:00
parent d64179499c
commit 389a4e4715
1 changed files with 25 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

25
test-suite/tests/srfi-1.test
View file

@ -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
;;