1 ;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-mock-tests; -*-
3 (in-package #:cl-mock-tests)
7 (def-test progf.calls-binding ()
8 (progf '(foo) (list (lambda () 23))
11 (def-test dflet.calls-binding ()
15 (def-test dflet.notinline.works ()
16 (declare (notinline foo bar))
21 (def-test dflet.simple-mock ()
22 (defun foo (&optional (string "Hello, World!"))
28 ((equalp string "Hello, World!")
31 (is (eql 43 (foo "HELLO, WORLD!")))))
33 (def-test dflet.package-locks ()
34 "Either we can rebind LIST, or an error occurs and the binding is not
37 (handler-case (dflet ((list ()))
40 (is (eq #'list list))))))
42 (def-test dflet.package-locks.order.1 ()
54 (is (eq #'foo foo))))))
56 (def-test dflet.package-locks.order.2 ()
68 (is (eq #'foo foo))))))