Refactorize tests in cl-icalendar-tests.asd

cl-icalendar-tests.asd

@@ -0,0 +1,52 @@
+;;                                                               -*- Lisp -*-
+;; cl-icalendar-tests.asd --
+;;
+;; Copyright (C) 2010 David Vazquez
+;;
+;; This file is part of cl-icalendar.
+;;
+;; cl-icalendar is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; cl-icalendar 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 General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with cl-icalendar.  If not, see <http://www.gnu.org/licenses/>.
+;;
+
+(defclass test-file (static-file)
+  nil)
+
+(defsystem :cl-icalendar-tests
+  :name "iCalendar library tests"
+  :license "GPLv3+"
+  :depends-on (:cl-icalendar :fiveam)
+  :serial t
+  :components
+  ((:module "tests"
+            :serial t
+            :components
+            ((:test-file "test-types.001")
+             (:test-file "test-icalendar.001")
+             (:test-file "test-icalendar.002")
+             (:test-file "test-icalendar.003")
+             (:test-file "test-icalendar.004")
+             (:test-file "test-icalendar.005")
+             (:test-file "test-icalendar.006")
+             (:file "package")
+             (:file "tsuite")
+             (:file "test-types")
+             (:file "test-types-date")
+             (:file "test-types-recur")))))
+
+
+(defmethod perform ((op test-op) (c (eql (find-system :cl-icalendar-tests))))
+  (funcall (intern "RUN-TESTS" (find-package :cl-icalendar-tests))))
+
+
+;;; cl-icalendar-tests.asd ends here

cl-icalendar.asd

@@ -68,40 +68,9 @@
              (:doc-file "fdl.texi")
              (:doc-file "version.texi")))))
 
-
-
-(defclass test-file (static-file)
-  nil)
-
-(defsystem :cl-icalendar-tests
-  :name "iCalendar library tests"
-  :license "GPLv3+"
-  :depends-on (:cl-icalendar :fiveam)
-  :serial t
-  :components
-  ((:module "tests"
-            :serial t
-            :components
-            ((:test-file "test-types.001")
-             (:test-file "test-icalendar.001")
-             (:test-file "test-icalendar.002")
-             (:test-file "test-icalendar.003")
-             (:test-file "test-icalendar.004")
-             (:test-file "test-icalendar.005")
-             (:test-file "test-icalendar.006")
-             (:file "package")
-             (:file "tsuite")
-             (:file "test-types")
-             (:file "test-types-date")
-             (:file "test-types-recur")))))
-
 (defmethod perform ((op test-op) (c (eql (find-system :cl-icalendar))))
   (operate 'load-op ':cl-icalendar-tests)
   (operate 'test-op ':cl-icalendar-tests))
-
-(defmethod perform ((op test-op) (c (eql (find-system :cl-icalendar-tests))))
-  (funcall (intern "RUN-TESTS" (find-package :cl-icalendar-tests))))
-
 
 
 (defsystem :cl-icalendar-iterate

translate.lisp

@@ -19,7 +19,8 @@
 
 (in-package :cl-icalendar)
 
-(defvar *translate-table* *standard-vendor*)
+(defvar *translate-table*
+  (make-hash-table :test #'equalp))
 
 (defun translate (entity kind)
   (let ((kindtable (gethash kind *translate-table*)))