HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a658e41
)
(delete, delete!): Test predicate call arg order.
author
Kevin Ryde
<user42@zip.com.au>
Mon, 12 May 2003 23:05:50 +0000
(23:05 +0000)
committer
Kevin Ryde
<user42@zip.com.au>
Mon, 12 May 2003 23:05:50 +0000
(23:05 +0000)
test-suite/tests/srfi-1.test
patch
|
blob
|
blame
|
history
diff --git
a/test-suite/tests/srfi-1.test
b/test-suite/tests/srfi-1.test
index
003c47e
..
deef6d0
100644
(file)
--- a/
test-suite/tests/srfi-1.test
+++ b/
test-suite/tests/srfi-1.test
@@
-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
;;