/usr/share/common-lisp/source/mcclim/Drei/Tests/kill-ring-tests.lisp is in cl-mcclim 0.9.6.dfsg.cvs20100315-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | ;;; -*- Mode: Lisp; Package: COMMON-LISP-USER -*-
;;; (c) copyright 2005 by
;;; Aleksandar Bakic (a_bakic@yahoo.com)
;;; (c) copyright 2006 by
;;; Troels Henriksen (athas@sigkill.dk)
;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Library General Public
;;; License as published by the Free Software Foundation; either
;;; version 2 of the License, or (at your option) any later version.
;;;
;;; This library is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;; Library General Public License for more details.
;;;
;;; You should have received a copy of the GNU Library General Public
;;; License along with this library; if not, write to the
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
;;;
;;; The test cases in this files test the functions of the
;;; DREI-KILL-RING package implementing the kill ring functionality of
;;; Drei.
(in-package :drei-tests)
(def-suite kill-ring-tests :description "The test suite for DREI-KILL-RING
related tests." :in drei-tests)
(in-suite kill-ring-tests)
(test kill-ring-sizing
(let ((random-size (max 5 (random 20))))
(let ((instance (make-instance 'kill-ring :max-size random-size)))
(is (= (kill-ring-max-size instance) random-size)))
(let ((instance (make-instance 'kill-ring :max-size random-size)))
(setf (kill-ring-max-size instance)
(* random-size 2))
(is (= (kill-ring-max-size instance)
(* random-size 2))))
(let ((instance (make-instance 'kill-ring :max-size random-size)))
(is (/= (kill-ring-max-size instance)
(kill-ring-length instance))))))
(test kill-ring-standard-push
(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))
(kill-ring-standard-push instance #(#\C))
(is (= (kill-ring-length instance) 3)))
(let* ((random-size (1+ (random 20)))
(instance (make-instance 'kill-ring :max-size random-size)))
(signals type-error
(kill-ring-standard-push instance nil)))
(let* ((instance (make-instance 'kill-ring :max-size 3)))
(kill-ring-standard-push instance #(#\A))
(kill-ring-standard-push instance #(#\B))
(kill-ring-standard-push instance #(#\C))
(kill-ring-standard-push instance #(#\D))
(kill-ring-standard-push instance #(#\E))
(is (equal (coerce (kill-ring-yank instance) 'string)
"E"))
(rotate-yank-position instance)
(is (equal (coerce (kill-ring-yank instance) 'string)
"D"))
(rotate-yank-position instance)
(is (equal (coerce (kill-ring-yank instance) 'string)
"C"))))
(test kill-ring-concatenating-push
(let* ((instance (make-instance 'kill-ring :max-size 3)))
(kill-ring-standard-push instance #(#\A))
(kill-ring-concatenating-push instance #(#\B))
(is (equal (coerce (kill-ring-yank instance) 'string)
"AB")))
(let* ((instance (make-instance 'kill-ring :max-size 5)))
(kill-ring-standard-push instance #(#\B))
(kill-ring-standard-push instance #(#\Space))
(kill-ring-standard-push instance #(#\A))
(rotate-yank-position instance 2)
(kill-ring-concatenating-push instance #(#\B #\C))
(is (equal (coerce (kill-ring-yank instance) 'string)
"ABC"))))
(test kill-ring-reverse-concatenating-push
(let* ((instance (make-instance 'kill-ring :max-size 3)))
(kill-ring-standard-push instance #(#\A))
(kill-ring-reverse-concatenating-push instance #(#\B))
(is (equal (coerce (kill-ring-yank instance) 'string)
"BA")))
(let* ((instance (make-instance 'kill-ring :max-size 5)))
(kill-ring-standard-push instance #(#\B))
(kill-ring-standard-push instance #(#\Space))
(kill-ring-standard-push instance #(#\A))
(rotate-yank-position instance 2)
(kill-ring-reverse-concatenating-push instance #(#\B #\C))
(is (equal (coerce (kill-ring-yank instance) 'string)
"BCA"))))
(test kill-ring-yank
(let* ((instance (make-instance 'kill-ring :max-size 5)))
(kill-ring-standard-push instance #(#\A))
(is (equal (coerce (kill-ring-yank instance) 'string)
"A")))
(let* ((instance (make-instance 'kill-ring :max-size 5)))
(kill-ring-standard-push instance #(#\A))
(is (equal (coerce (kill-ring-yank instance) 'string)
"A"))
(is (equal (coerce (kill-ring-yank instance) 'string)
"A"))
(is (eq (kill-ring-yank instance)
(kill-ring-yank instance))))
(let* ((instance (make-instance 'kill-ring :max-size 5)))
(signals empty-kill-ring
(kill-ring-yank instance))))
|