-;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-mock-tests; -*-
+;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-mock-tests; -*-
(in-package #:cl-mock-tests)
-
+\f
(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)))))