From: Christophe Rhodes <csr21@cantab.net>
Date: Wed, 11 Sep 2013 05:10:20 +0000 (+0100)
Subject: rename recently-added tests
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=56b6d13d2758753d18a7413aa14ea25d025cf13e;p=sbcl.git

rename recently-added tests

use only keyword symbols in the names to assist in continuous
integration
---

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 4484eb7..e5de532 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -2043,8 +2043,7 @@
 (defmethod shared-initialize :around ((instance bug-1179858) (slot-names t) &key)
   (call-next-method))
 
-(with-test (:name (make-instance :fallback-generator-initarg-handling
-                   :bug-1179858))
+(with-test (:name (:make-instance :fallback-generator-initarg-handling :bug-1179858))
   ;; Now compile a lambda containing MAKE-INSTANCE to exercise the
   ;; fallback constructor generator. Call the resulting compiled
   ;; function to trigger the bug.
@@ -2058,22 +2057,21 @@
 (defmethod shared-initialize :around ((instance bug-1179858b) (slot-names t) &key)
   (call-next-method))
 
-(with-test (:name (make-instance :fallback-generator-non-keyword-initarg
-                   :bug-1179858))
+(with-test (:name (:make-instance :fallback-generator-non-keyword-initarg :bug-1179858))
   (flet ((foo= (n i) (= (bug-1179858b-foo i) n)))
     (assert
      (foo= 14 (funcall (compile nil '(lambda () (make-instance 'bug-1179858b))))))
     (assert
      (foo= 15 (funcall (compile nil '(lambda () (make-instance 'bug-1179858b 'foo 15))))))))
 
-(with-test (:name (cpl-violation-setup :bug-309076))
+(with-test (:name (:cpl-violation-setup :bug-309076))
   (assert (raises-error?
            (progn
              (defclass bug-309076-broken-class (standard-class) ()
                (:metaclass sb-mop:funcallable-standard-class))
              (sb-mop:finalize-inheritance (find-class 'bug-309076-broken-class))))))
 
-(with-test (:name (cpl-violation-irrelevant-class :bug-309076))
+(with-test (:name (:cpl-violation-irrelevant-class :bug-309076))
   (defclass bug-309076-class (standard-class) ())
   (defmethod sb-mop:validate-superclass ((x bug-309076-class) (y standard-class)) t)
   (assert (typep (make-instance 'bug-309076-class) 'bug-309076-class)))