Current state.

[cl-mock.git] / tests / methods.lisp

diff --git a/tests/methods.lisp b/tests/methods.lisp
index fa88e4a..89c0860 100644 (file)
--- 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)
-
+\f
 (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)))))