
20 Aug
2006
20 Aug
'06
12:52 p.m.
Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv30619 Modified Files: kill-ring-test.lisp Log Message: Oops. Fixed silly bug in test case. --- /project/climacs/cvsroot/climacs/kill-ring-test.lisp 2006/07/27 10:39:32 1.1 +++ /project/climacs/cvsroot/climacs/kill-ring-test.lisp 2006/08/20 12:52:07 1.2 @@ -27,7 +27,7 @@ t) (deftest kill-ring-standard-push.test-1 - (let* ((random-size (min 3 (random 20))) + (let* ((random-size (max 3 (random 20))) (instance (make-instance 'kill-ring :max-size random-size))) (kill-ring-standard-push instance #(#\A)) (kill-ring-standard-push instance #(#\B))