initial tests for pattern-specializer stuff

[specializable.git] / language-extension.pattern-specializer.asd

diff --git a/language-extension.pattern-specializer.asd b/language-extension.pattern-specializer.asd
index 1377c8791b40eacc0e1361ebdd822953577da64e..6e5ae96a1915751d7765d678b7fc4b4bc3a7f8b0 100644 (file)
--- a/language-extension.pattern-specializer.asd
+++ b/language-extension.pattern-specializer.asd
@@ -27,4 +27,23 @@
                  :components ((:file       "package")
                               (:file       "protocol")
                               (:file       "optima-extensions")
-                              (:file       "pattern-specializer")))))
+                              (:file       "pattern-specializer"))))
+
+  :in-order-to ((test-op (test-op :language-extension.pattern-specializer-test))))
+
+(defsystem :language-extension.pattern-specializer-test
+  :author      "Jan Moringen <jmoringe@techfak.uni-bielefeld.de>"
+  :license     "LLGPLv3; see COPYING file for details."
+  :description "Tests for the language-extension.pattern-specializer system."
+  :depends-on  (:fiveam
+
+                :language-extension.pattern-specializer)
+  :components  ((:module     "test"
+                 :pathname   "test/pattern-specializer"
+                 :serial     t
+                 :components ((:file       "package")
+                              (:file       "optima-extensions")))))
+
+(defmethod perform ((operation test-op)
+                    (component (eql (find-system :language-extension.pattern-specializer-test))))
+  (funcall (read-from-string "pattern-specializer.test:run-tests")))