From: Nikodemus S. <de...@us...> - 2007-12-12 11:22:41
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv22347/tests Modified Files: seq.impure.lisp Log Message: 1.0.12.27: FILL on lists was broken by 1.0.12.16, oops! * Fix it, write some tests as penance. Index: seq.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/seq.impure.lisp,v retrieving revision 1.36 retrieving revision 1.37 diff -u -d -r1.36 -r1.37 --- seq.impure.lisp 29 Nov 2007 17:30:21 -0000 1.36 +++ seq.impure.lisp 12 Dec 2007 11:22:38 -0000 1.37 @@ -1083,5 +1083,21 @@ (delete-duplicates (vector #\a #\b #\c #\a) :test-not (lambda (a b) (not (char-equal a b)))) + +;;; FILL on lists +(let ((l (list 1 2 3))) + (fill l 0 :start 1 :end 2) + (assert (equal l '(1 0 3))) + (fill l 'x :start 2 :end 3) + (assert (equal l '(1 0 x))) + (fill l 'y :start 1) + (assert (equal l '(1 y y))) + (fill l 'z :end 2) + (assert (equal l '(z z y))) + (fill l 1) + (assert (equal l '(1 1 1))) + (assert (raises-error? (fill l 0 :start 4))) + (assert (raises-error? (fill l 0 :end 4))) + (assert (raises-error? (fill l 0 :start 2 :end 1)))) ;;; success |