Commit 32a7f325 authored by Troels Henriksen's avatar Troels Henriksen

Oops. Fixed silly bug in test case.

parent 5fa89770
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment