X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffacade.lisp;h=c8534cff9edbdca1895e29c6c67e9948cab7e074;hb=9635bd8a9ea703c1ea60feb8c16984692a6af6c0;hp=fea5625b505c3cf7fb43440bf7973216fcd90aa9;hpb=aed61308d0491bc48ce95dcb0b805b2bfa84ef6f;p=cl-mock.git

diff --git a/tests/facade.lisp b/tests/facade.lisp
index fea5625..c8534cf 100644
--- a/tests/facade.lisp
+++ b/tests/facade.lisp
@@ -5,13 +5,13 @@
 (in-suite cl-mock)
 
 (def-test call-with-mocks.empty ()
-  (is (eq T (call-with-mocks
-             (make-mock-bindings)
-             (constantly T)))))
+  (is (equal '(T) (call-with-mocks
+                   (make-mock-bindings)
+                   (constantly T)))))
 
 (def-test call-with-mocks.discards-values ()
   (is (equal
-       '(1 NIL)
+       '((1 2 3) NIL)
        (multiple-value-list
         (call-with-mocks
          (make-mock-bindings)