Added optima test suite.

cl-test-grid · Mar 23, 2013 · ea41332 · ea41332
1 parent f875533
commit ea41332
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 4 deletions.
diff --git a/README.org b/README.org
@@ -103,9 +103,9 @@
   - fresh recompilation and loading of every ASDF system found in Quicklisp;
   - testsuites of some of the libraries.
 
-  For testsuites we have so far considered 114 libraries,
+  For testsuites we have so far considered 115 libraries,
   starting from more often downloaded ones.
-  59 of these libraries have appropriate test suites
+  60 of these libraries have appropriate test suites
   (fully automated, no user interaction is needed) which
   are added to the cl-test-grid.
 

diff --git a/docs/coverage.org b/docs/coverage.org
@@ -202,6 +202,7 @@
 + named-readtables 2012-03-07 (strange thing: it contains a copy of RT
                                test framework, but in it's own package
                                named-readtables-test)
++ optima 2013-03-12
 +2 osicat 2012-03-07 (has test suite, but has difficult :no-resource
                       condition - cffi-groveler involved)
 - parse-number 2012-03-07 (there is a test.lisp and it's easy to run,

diff --git a/testsuites/testsuites.lisp b/testsuites/testsuites.lisp
@@ -88,7 +88,7 @@ just passed to the QUICKLISP:QUICKLOAD."
     :cl-project            :trivial-http         :cl-store            :hu.dwim.stefil
     :kmrcl                 :cxml-stp             :hu.dwim.walker      :hu.dwim.defclass-star
     :bknr-datastore        :yaclml               :com.google.base     :external-program
-    :cl-mustache           :trivial-gray-streams :drakma)
+    :cl-mustache           :trivial-gray-streams :drakma              :optima)
   "All the libraries currently supported by the test-grid.")
 
 (defun clean-rt (&optional (rt-package :rtest))
@@ -899,4 +899,9 @@ just passed to the QUICKLISP:QUICKLOAD."
       (format t "~A~%" c)
       (format t "Can't load drakma-test. Most likely we deal with an old version of drakma where test suite is not implemented yet.~%")
       (RETURN-FROM libtest :no-resource)))
-  (run-fiveam-test-suite :drakma))
+  (run-fiveam-test-suite :drakma))
+
+(defmethod libtest ((library-name (eql :optima)))
+  ;; The test framework used: eos.
+  (ql:quickload :optima.test)
+  (run-eos-test-suites (read-from-string "optima.test::optima-test")))