run() added in vgplot-test.

volkers · Aug 25, 2013 · 810629c · 810629c
1 parent 19a767c
commit 810629c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/package-test.lisp b/package-test.lisp
@@ -1,4 +1,5 @@
 (defpackage :vgplot-test
-  (:use :cl :lisp-unit :vgplot))
-  ;; (:import-from :lisp-unit :define-test :assert-equal :run-tests))
+  (:use :cl :lisp-unit :vgplot)
+  (:export :run))
+
 
diff --git a/vgplot-test.lisp b/vgplot-test.lisp
@@ -20,9 +20,6 @@
 
 (in-package #:vgplot-test)
 
-;; call these tests by running:
-;; (lisp-unit:run-tests :all :vgplot-test)
-
 (setq lisp-unit:*print-failures* t)
 
 (define-test test-get-separator
@@ -42,3 +39,6 @@
   (assert-equal 20 (vgplot::count-data-columns "1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0" #\,))
   (assert-equal 2 (vgplot::count-data-columns "		1.7e179 ; 87654321 # comment" #\;))
 )
+
+(defun run ()
+  (lisp-unit:run-tests :all :vgplot-test))