Overhaul and version bump.

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

diff --git a/tests/methods.lisp b/tests/methods.lisp
deleted file mode 100644 (file)
index 681712c..0000000
--- a/tests/methods.lisp
+++ /dev/null
@@ -1,27 +0,0 @@
-;; -*- 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 ()
-  ())
-
-(defgeneric baz (foo)
-  (:method ((foo foo))
-    42))
-
-(def-test gf.simple ()
-  (progm
-      '((baz NIL (list)))
-      '((lambda (list) list))
-    (is (equal '(1 2 3) (baz '(1 2 3))))
-    (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)))))