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

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