From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Thu, 18 Dec 2014 16:26:54 +0000 (+0000)
Subject: Fix tests for new return values.
X-Git-Tag: 1.0.0~2
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-mock.git;a=commitdiff_plain;h=9635bd8a9ea703c1ea60feb8c16984692a6af6c0

Fix tests for new return values.
---

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)