From 4e31df217f9b60ca122cc4fdb5ac73c1752ded38 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 12 Jul 2007 18:04:37 +0200 Subject: Unit tests: stylistic improvements. darcs-hash:2597f205c56b144d476c58b71b8433650439c972 --- tests.lisp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/tests.lisp b/tests.lisp index d405c51..e106f34 100644 --- a/tests.lisp +++ b/tests.lisp @@ -28,16 +28,16 @@ (deftestsuite mulk-lambda-fn1 (mulk-lambda) () (:tests - ((ensure (= (funcall (fn () _) 42) - 42))) + ((ensure-same (funcall (fn () _) 42) + 42)) ((ensure-error (funcall (fn _) 42))) - ((ensure (= (funcall (fn1 _) 42) - 42))) + ((ensure-same (funcall (fn1 _) 42) + 42)) ((ensure-error (funcall (fn +)))) - ((ensure (eql (funcall (fn1 +)) - +))) - ((ensure (= (funcall (fn #'+)) - 0))) + ((ensure-same (funcall (fn1 +)) + +)) + ((ensure-same (funcall (fn #'+)) + 0)) ((ensure (functionp (funcall (fn1 #'+))))))) @@ -49,7 +49,7 @@ ((ensure (functionp (funcall (fn1 (fn1 _)))))) ((ensure (functionp (funcall (efn1 (efn1 _)))))) ((ensure-same (funcall (fn1 _3) 1 2 3 4 5) - 4)) + 4)) ((ensure-error (funcall (efn1 _3) 1 2 3 4 5))))) -- cgit v1.2.3