X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmethods.lisp;fp=tests%2Fmethods.lisp;h=89c08602303901e7fc41253fbd82dd14121fbc02;hb=82370fd12b07679559c9e0b3f720aade582d42fb;hp=fa88e4af20c5fef4b08677d10c063a0e2f8e3c41;hpb=eb6e5aec7684f2db4bab65b46b7d067d598bff85;p=cl-mock.git

diff --git a/tests/methods.lisp b/tests/methods.lisp
index fa88e4a..89c0860 100644
--- a/tests/methods.lisp
+++ b/tests/methods.lisp
@@ -1,7 +1,7 @@
 ;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8-unix; package: cl-mock-tests; -*-
 
 (in-package #:cl-mock-tests)
-
+
 (in-suite cl-mock)
 
 (defclass foo ()
@@ -16,5 +16,12 @@
       '((baz NIL (list)))
       '((lambda (list) list))
     (is (equal '(1 2 3) (baz '(1 2 3))))
-    (signals error (equal T (baz T)))
-    (is (equal 42 (baz (make-instance 'foo))))))
+    (signals error (eq T (baz T)))
+    (is (eql 42 (baz (make-instance 'foo))))))
+
+(def-test gf.overwrite ()
+  (progm
+      '((baz NIL (foo)))
+      '((lambda (foo) 23))
+    (is (eql 23 (baz (make-instance 'foo)))))
+  (is (eql 42 (baz (make-instance 'foo)))))