From 9635bd8a9ea703c1ea60feb8c16984692a6af6c0 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Thu, 18 Dec 2014 16:26:54 +0000 Subject: [PATCH] Fix tests for new return values. --- tests/facade.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 1.7.10.4