[climacs-cvs] CVS climacs

[thenriksen]

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