mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

(delete, delete!): Test predicate call arg order.

Browse source
This commit is contained in:
Kevin Ryde 2003-05-12 23:05:50 +00:00
parent a658e41bee
commit 8ec84fe54e
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -21,6 +21,22 @@
(test-suite lib))
;;
;; delete and delete!
;;
(let ()
(define (common-tests delete-proc)
(pass-if "called arg order"
(equal? '(1 2 3)
(delete-proc 3 '(1 2 3 4 5) <))))
(with-test-prefix "delete"
(common-tests delete))
(with-test-prefix "delete!"
(common-tests delete!)))
;;
;; drop
;;