1 ;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-mock-tests; -*-
3 (in-package #:cl-mock-tests)
7 (def-test dflet.calls-binding ()
11 (def-test dflet.notinline.works ()
12 (declare (notinline foo bar))
17 (def-test dflet.simple-mock ()
18 (defun foo (&optional (string "Hello, World!"))
24 ((equalp string "Hello, World!")
27 (is (eql 43 (foo "HELLO, WORLD!")))))
29 (def-test dflet.package-locks ()
30 "Either we can rebind LIST, or an error occurs and the binding is not
33 (handler-case (dflet ((list ()))
36 (is (eq #'list list))))))
38 (def-test dflet.package-locks.order.1 ()
50 (is (eq #'foo foo))))))
52 (def-test dflet.package-locks.order.2 ()
64 (is (eq #'foo foo))))))