From d5fb95a58e76f7b16a8255900624f3d48c8c023e Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Sat, 3 Nov 2007 21:18:28 +0100 Subject: [PATCH] some test fixes --- unittests.lisp | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/unittests.lisp b/unittests.lisp index db9eeba..1ce815d 100644 --- a/unittests.lisp +++ b/unittests.lisp @@ -11,30 +11,40 @@ (in-package :cl-user) (defpackage :lisp-stat-unittests - (:use :lift :lisp-stat) + (:use :common-lisp :lift :lisp-stat) (:export run-lisp-stat-tests run-lisp-stat-test scoreboard)) (in-package :lisp-stat-unittests) ;;; TESTS +;;; Need a waz to minimize the possibilities + +(defun run-lisp-stat-tests () + (run-tests :suite 'lisp-stat)) + +(defun run-lisp-stat-test (&rest x) + (run-test x)) + + (deftestsuite lisp-stat () ()) (deftestsuite lisp-stat-lin-alg (lisp-stat) ()) + ;;; and add a test to it (addtest (lisp-stat) (ensure-same (+ 1 1) 2)) ;; => # -;;; add another test using ensure-error -(addtest (lisp-stat-lin-alg) - (ensure-error (let ((x 0)) (/ x)))) -;; => # #+nil(progn +;;; add another test using ensure-error +(addtest (lisp-stat-lin-alg) + (ensure-error (let ((x 0)) (/ x)))) +;; => # ;;; add another, slightly more specific test (addtest (lisp-stat) @@ -370,6 +380,5 @@ ;;; External support for running tests -(defun run-lisp-stat-tests ()) ) \ No newline at end of file -- 2.11.4.GIT