1 ;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-mock-tests; -*-
3 (in-package #:cl-mock-tests)
7 (def-test answer.simple ()
11 (is (eql 42 (foo 1)))))
13 (def-test answer.literal ()
23 (is (eql 42 (foo 'foo)))))
25 (def-test answer.times ()
33 (def-test answer.call-previous ()
35 (answer foo 3 (call-previous))
37 (is (eq 'foo (foo)))))