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

Oops. Fixed silly bug in test case.

parent 5fa89770
......@@ -27,7 +27,7 @@
(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