[Sbcl-commits] CVS: sbcl/tests debug.impure.lisp, 1.36, 1.37 packages.impure.lisp, 1.5, 1.6 seq.impure.lisp, 1.34, 1.35

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv25586/tests

Modified Files:
	debug.impure.lisp packages.impure.lisp seq.impure.lisp 
Log Message:
1.0.6.18: Two fixes from Eric Marsden
	... DEFPACKAGE :USE/:IMPORT-FROM takes package designators
	... REMOVE-DUPLICATES / :TEST-NOT / vectors
	Include test cases, and do a little bit of other tidying
	of test case expected failures.


Index: debug.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/debug.impure.lisp,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- debug.impure.lisp	5 Apr 2007 15:56:47 -0000	1.36
+++ debug.impure.lisp	3 Jun 2007 20:02:35 -0000	1.37
@@ -206,7 +206,7 @@
 
 (with-test (:name (:throw :no-such-tag)
             :fails-on '(or
-                        (and :x86 (or :linux sunos))
+                        (and :x86 (or :sunos))
                         :alpha
                         :mips))
   (progn
@@ -251,7 +251,7 @@
 
 ;;; FIXME: This test really should be broken into smaller pieces
 (with-test (:name (:backtrace :misc)
-            :fails-on '(and :x86 (or :linux :sunos)))
+            :fails-on '(and :x86 (or :sunos)))
   (macrolet ((with-details (bool &body body)
                `(let ((sb-debug:*show-entry-point-details* ,bool))
                  ,@body)))

Index: packages.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/packages.impure.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- packages.impure.lisp	2 Mar 2007 02:02:04 -0000	1.5
+++ packages.impure.lisp	3 Jun 2007 20:02:35 -0000	1.6
@@ -24,3 +24,8 @@
 
 (make-package "FOO")
 (assert (shadow #\a :foo))
+
+(defpackage :PACKAGE-DESIGNATOR-1 (:use #.(find-package :cl)))
+
+(defpackage :PACKAGE-DESIGNATOR-2
+  (:import-from #.(find-package :cl) "+"))

Index: seq.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/seq.impure.lisp,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- seq.impure.lisp	10 Apr 2007 13:50:46 -0000	1.34
+++ seq.impure.lisp	3 Jun 2007 20:02:35 -0000	1.35
@@ -1075,4 +1075,10 @@
       (assert (test-inlined-bashing i))
       until (= i sb-vm:n-word-bits))
 
+;;; tests from the Sacla test suite via Eric Marsden, 2007-05-07
+(remove-duplicates (vector 1 2 2 1) :test-not (lambda (a b) (not (= a b))))
+
+(delete-duplicates (vector #\a #\b #\c #\a)
+                   :test-not (lambda (a b) (not (char-equal a b))))
+
 ;;; success