From b1ed390f11ec7e990761bb0d628b79d21efd4b62 Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Sun, 4 Nov 2007 23:35:44 +0100
Subject: [PATCH] Prototype and testing examples.

---
 ls-demo.lisp   | 34 ++++++++++++++++++++++++++++++++--
 unittests.lisp |  3 ++-
 2 files changed, 34 insertions(+), 3 deletions(-)

diff --git a/ls-demo.lisp b/ls-demo.lisp
index 4ff7dc5..77ac388 100644
--- a/ls-demo.lisp
+++ b/ls-demo.lisp
@@ -191,11 +191,41 @@
 
 ;;; OBJECT SYSTEM
 
+(in-package :ls-user)
 (defproto *test-proto*)
-
 *test-proto*
-
 (defmeth *test-proto* :make-data (&rest args) nil)
+(send *test-proto* :make-data)
+
+
+
+
+;;; Testing 
+
+(in-package :lisp-stat-unittests)
+(testsuites)
+(print-tests)
+(run-tests)
+(last-test-status)
+;;(failures)
+
+(testsuite-tests 'lisp-stat)
+(run-tests :suite 'lisp-stat)
+(describe (run-tests :suite 'lisp-stat))
+
+
+(run-tests :suite 'lisp-stat-probdistn)
+(describe (run-tests :suite 'lisp-stat-probdistn))
+
+
+
+(run-tests :suite 'lisp-stat-spec-fns)
+(describe (run-tests :suite 'lisp-stat-spec-fns))
+
 
+(find-testsuite 'lisp-stat-lin-alg)
+(testsuite-tests 'lisp-stat-lin-alg)
+(run-tests :suite 'lisp-stat-lin-alg)
+(describe (run-tests :suite 'lisp-stat-lin-alg))
 
 
diff --git a/unittests.lisp b/unittests.lisp
index 545fdb8..a7da677 100644
--- a/unittests.lisp
+++ b/unittests.lisp
@@ -34,7 +34,8 @@
 (defun run-lisp-stat-test (&rest x)
   (run-test x))
 
-
+(defun almost= (a b &key (tol 0.000001)) 
+   (< (abs (- a b)) tol))
 
 (deftestsuite lisp-stat () ())
 (deftestsuite lisp-stat-lin-alg (lisp-stat) ())
-- 
2.11.4.GIT