-;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-user; -*-
+;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-user; -*-
(in-package #:cl-user)
-
+\f
(defpackage #:cl-mock
(:use #:closer-common-lisp #:alexandria)
- (:export ;;; regular functions
- #:progf
- #:dflet
+ (:export
+ ;; regular functions
+ #:maybe-fdefinition
+ #:set-fdefinition
+ #:set-or-unbind-fdefinition
+ #:call-with-function-bindings
+
+ #:progf
+ #:dflet
+
+ ;; mocking of regular functions
+ #:call-previous
+ #:register-mock
+ #:invocations
+ #:if-called
+ #:unhandled
+ #:answer
+ #:call-with-mocks
+ #:with-mocks
- ;;; mocking of regular functions
- ;;; mocking of generic functions
- ))
+ ;; mocking of generic functions
+ ))