1 ;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-mock-tests; -*-
3 (in-package #:cl-mock-tests)
5 (import 'cl-mock::(progm))
14 (def-test gf.simple ()
17 '((lambda (list) list))
18 (is (equal '(1 2 3) (baz '(1 2 3))))
19 (signals error (equal T (baz T)))
20 (is (equal 42 (baz (make-instance 'foo))))))