From 726c76f9f8acfc49e7aade1bcc5ea39575a91a81 Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Fri, 7 Nov 2008 18:04:38 +0100
Subject: [PATCH] better test management.

---
 src/unittests/unittests.lisp | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/src/unittests/unittests.lisp b/src/unittests/unittests.lisp
index 547baab..69843d8 100644
--- a/src/unittests/unittests.lisp
+++ b/src/unittests/unittests.lisp
@@ -69,7 +69,9 @@
 ;; To do.
 
 (defmethod numerical= ((a array) (b array) &key (tol 0.00001))
-  (print (format nil "checking equality for array a ~w and array b=~w" a b))
+;;   (print (format nil
+;; 		 "checking equality for array a ~w and array b=~w"
+;; 		 a b))
   ;;; FIXME Warning!  Need to generalize past  2-d array!!
   (if (/= (array-dimensions a) (array-dimensions b))
       nil
@@ -135,3 +137,19 @@
    ))
 
 ;; (describe (run-tests :suite 'lisp-stat-ut-testsupport2))
+
+#|
+(describe 
+ (run-test
+  :test-case 'numerical=a2
+  :suite 'lisp-stat-ut-testsupport2 ))
+|#
+
+
+#|
+(describe 
+ (run-test
+  :test-case 'numerical=a1
+  :suite 'lisp-stat-ut-testsupport2 ))
+|#
+
-- 
2.11.4.GIT