cl-mock + prove hello

cl-mock-hello.lisp

(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload :cl-mock)
  (ql:quickload :prove))

(defpackage cl-mock-hello
  (:use :cl :cl-mock :prove)
  (:export :run))

(in-package :cl-mock-hello)

(defun foo (a b)
  (format nil "A=~a B=~a" a b))

(defun run ()
  (foo :spam :eggs))

(setq prove:*default-reporter* :fiveam)

(plan 1)

(is (with-mocks ()
      (prog2
          (answer foo 42)
          (run)
        (equal (invocations 'foo)
               '((foo :spam :eggs)))))
    42)

(finalize)