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"))