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))))))