[cl-utilities-cvs] CVS update: cl-utilities/test.lisp

[Peter Scott]

Update of /project/cl-utilities/cvsroot/cl-utilities
In directory common-lisp.net:/tmp/cvs-serv2061

Modified Files:
	test.lisp 
Log Message:
Added more tests for EXREMUM.

Date: Fri May 13 21:45:58 2005
Author: pscott

Index: cl-utilities/test.lisp
diff -u cl-utilities/test.lisp:1.4 cl-utilities/test.lisp:1.5
--- cl-utilities/test.lisp:1.4	Tue May 10 21:46:38 2005
+++ cl-utilities/test.lisp	Fri May 13 21:45:57 2005
@@ -41,7 +41,11 @@
   (signals no-extremum (extremum '() #'<))
   (is-false (handler-bind ((no-extremum #'continue))
 	      (extremum '() #'<)))
-  (is (= (extremum '(2/3 2 3 4) #'> :key (lambda (x) (/ 1 x))) 2/3)))
+  (is (= (extremum '(2/3 2 3 4) #'> :key (lambda (x) (/ 1 x))) 2/3))
+  (is (= (locally (declare (optimize (speed 3) (safety 0)))
+	   (extremum #(1 23 3 4 5 0) #'>))
+	 23))
+  (is (= (extremum-fastkey '(2/3 2 3 4) #'> :key (lambda (x) (/ 1 x))) 2/3)))
 
 (defun delimited-test (&key (delimiter #\|) (start 0) end
 		       (string "foogo|ogreogrjejgierjijri|bar|baz"))