From e9132a193bc1e4d3cc10b9a2d57d0844a8a9a06f Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Tue, 11 Jun 2013 00:03:46 +0200 Subject: [PATCH] Add PROGF to export, tests. --- src/package.lisp | 1 + tests/functions.lisp | 4 ++++ 2 files changed, 5 insertions(+) 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))))) -- 1.7.10.4