Common Lisp 是否有模拟/存根框架？

Question

是否有用于 Common Lisp 的模拟/存根框架？

EmacsLispMock 看起来不错，但它是一个 Emacs lisp 框架，我正在寻找可以从 Common Lisp 中使用的东西。

有什么建议吗？

Answer 1

以下应该可以满足您的需求

(defmacro with-replaced-function (fdef &rest body)
  (let ((oldf (gensym))
        (result (gensym))
        (name (car fdef))
        (args (cadr fdef))
        (rbody (cddr fdef)))
    `(let ((,oldf (symbol-function ',name)))
       (setf (symbol-function ',name) (lambda ,args ,@rbody))
       (let ((,result (progn ,@body)))
         (setf (symbol-function ',name) ,oldf)
         ,result))))

(defmacro show (x)
  `(format t "~a --> ~a~%"
           ',x ,x))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun foo (x y) (+ x y))

(defun bar (x) (foo x (* x 2)))

(show (bar 42))

(show (with-replaced-function (foo (x y) (* x y))
                              (bar 42)))

(show (bar 42))

宏只是保存符号当前指向的函数，并用提供的存根实现替换它。在块结束时，函数恢复为原始值。

添加保护以防止身体的非本地退出可能是有意义的。

还要注意，如果函数调用已被编译器内联，那么显然更改函数定义将不起作用。 CL 有一个特殊的NOTINLINE 声明可以用来防止这个问题。

Answer 2

正如 Rainer 指出的，文件编译器有时会内联函数，这意味着更改函数定义不会对内联函数的地方产生任何影响。

更改函数名称的定义也不会取代将函数用作文字对象，例如，如果您将 #'my-stubbed-function 保存在某个变量中。

但是，在某些 lisp 实现中，您可以定义函数包装器或使用建议来实现此目的：例如，Allegro CL 有 fwrappers。在 SBCL 中，您可以将 TRACE 与非标准 :break 函数和自定义 *invoke-debugger-hook* 一起使用，我相信其他 lisp 实现也会有类似的东西。

我认为没有人将这些存根方法打包到库中。你能成为第一个！ （它会很棒。我很想用这样的东西。）

Answer 3

这不是最简单的方法吗？

> (defun b () 'original)
B
> (setf f #'b)
#<Compiled-function B #xC2C1546>
> (defun a () (funcall f))
A
> (a)
ORIGINAL
> (setf f #'(lambda () 'stub))
#<Anonymous Function #xC2D990E>
> (a)
STUB
> (setf f #'b)
#<Compiled-function B #xC2C1546>
> (a)
ORIGINAL

Answer 4

我编写了一个库，其宏与@6502 的答案 (with-mocked-functions) 非常相似，但更通用一些。它还提供了with-added-methods，它允许您为有限的动态范围编写模拟方法。你可以在这里找到它：https://github.com/bytecurry/bytecurry.mocks

Answer 5

您不需要 CL 中的模拟/存根框架。

只需使用 ovverides 方法创建从您的类类派生的新 CLOS 以用于您想要存根/模拟的内容，然后您就完成了。

至于存根，为什么不重新定义函数呢？

Answer 6

几年后，有。我们在 Quicklisp 中有 cl-mock 和 mockingbird。

(ql:quickload :mockingbird)

这还允许检查一个函数是否被调用，如果调用了多少次以及使用哪些参数，并且可以存根单个方法。

Answer 7

您可以尝试将函数重新定义包装在宏中

(defmacro with-fun (origfn mockfn &body body)
  `(let ((it ,origfn))
      (setf ,origfn ,mockfn)
     ,@body
      (setf ,origfn ,it)))

这只是一个想法，你必须实现这样的宏。 您可以搜索 profile 实现，它正是这样做的，用另一个函数替换一个函数并添加分析信息。你可以从那里借鉴一些想法。