Changeset 13592

Timestamp:

09/11/11 19:24:13 (12 years ago)

Author:

ehuelsmann

Message:

Remove debug PRINT forms and correct return value expectations.

File:

• trunk/abcl/test/lisp/abcl/mop-tests.lisp (modified) (5 diffs)

trunk/abcl/test/lisp/abcl/mop-tests.lisp

@@ -309 +309 @@
 (deftest dmc-return.1
     (define-method-combination dmc-test-return-foo)
-  'dmc-test-return-foo)
+  dmc-test-return-foo)
 
 (deftest dmc-return.2
     (define-method-combination dmc-test-return-bar :operator and)
-  'dmc-test-return-bar)
+  dmc-test-return-bar)
 
 (deftest dmc-return.3
@@ -330 +330 @@
                              (make-method ,form)))
             form)))
-  'dmc-test-return)
+  dmc-test-return)
 
 ;; A method combination which originally failed;
@@ -490 +490 @@
 
 (define-method-combination dmc-test-mc.4 ()
-  ((methods ()))
+  ((methods *))
   (:arguments object)
   `(unwind-protect
@@ -527 +527 @@
   ((method-list *))
   (:arguments arg1 arg2 &aux (extra :extra))
-  (print (type-of method-list))
-  (print method-list)
   `(progn ,@(mapcar (lambda (method) `(call-method ,method)) method-list)))
 
@@ -585 +583 @@
 (deftest dmc-test-mc.7a
     (equal (apply #'dmc-test-mc.7 :foo (list 1 2 3 4 5 6 7 8))
-           '(:foo 8)))
+           '(:foo 8))
+  T)