From 8ec84fe54e0bd4f04dfb29b37beedcda066f62c9 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Mon, 12 May 2003 23:05:50 +0000
Subject: [PATCH] (delete, delete!): Test predicate call arg order.

---
 test-suite/tests/srfi-1.test | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/test-suite/tests/srfi-1.test b/test-suite/tests/srfi-1.test
index 003c47ef9..deef6d035 100644
--- 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
 ;;