Fix tests for new return values.

[cl-mock.git] / tests / facade.lisp

diff --git a/tests/facade.lisp b/tests/facade.lisp
index 86962a4..c8534cf 100644 (file)
--- a/tests/facade.lisp
+++ b/tests/facade.lisp
@@ -1,17 +1,17 @@
-;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-mock-tests; -*-
+;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-mock-tests; -*-
 
 (in-package #:cl-mock-tests)
-
-(import 'cl-mock::(call-with-mocks make-mock-bindings register-mock if-called when-called call-previous))
+\f
+(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)