From: Olof-Joachim Frahm Date: Mon, 10 Jun 2013 22:03:46 +0000 (+0200) Subject: Add PROGF to export, tests. X-Git-Tag: 1.0.0~9 X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e9132a193bc1e4d3cc10b9a2d57d0844a8a9a06f;p=cl-mock.git Add PROGF to export, tests. --- diff --git a/src/package.lisp b/src/package.lisp index a41f543..b145b4f 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -5,6 +5,7 @@ (defpackage #:cl-mock (:use #:closer-common-lisp #:alexandria) (:export ;;; regular functions + #:progf #:dflet ;;; mocking of regular functions diff --git a/tests/functions.lisp b/tests/functions.lisp index 4b0a000..c3219b2 100644 --- a/tests/functions.lisp +++ b/tests/functions.lisp @@ -4,6 +4,10 @@ (in-suite cl-mock) +(def-test progf.calls-binding () + (progf '(foo) (list (lambda () 23)) + (is (eql 23 (foo))))) + (def-test dflet.calls-binding () (dflet ((foo () 23)) (is (eql 23 (foo)))))