Add README.
[cl-mock.git] / tests / methods.lisp
1 ;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-mock-tests; -*-
2
3 (in-package #:cl-mock-tests)
4
5 (import 'cl-mock::(progm))
6
7 (defclass foo ()
8   ())
9
10 (defgeneric baz (foo)
11   (:method ((foo foo))
12     42))
13
14 (def-test gf.simple ()
15   (progm
16       '((baz NIL (list)))
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))))))