corrected error in named-many-to-many test case.
Wed Sep 19 18:30:15 PDT 2007 Ryszard Szopa <ryszard.szopa@gmail.com>
* corrected error in named-many-to-many test case.
diff -rN -u old-submarine/submarine-tests.lisp new-submarine/submarine-tests.lisp
--- old-submarine/submarine-tests.lisp 2014-07-23 17:17:26.000000000 -0700
+++ new-submarine/submarine-tests.lisp 2014-07-23 17:17:26.000000000 -0700
@@ -120,12 +120,13 @@
(foo2 (make-and-save 'foo)))
(relate bar foo :relation 'barfoo-1)
(relate bar foo2 :relation 'barfoo-2)
- (is (relatedp foo bar 'barfoo-1))
- (is-false (relatedp bar foo2 'barfoo-1))
- (is (relatedp bar foo2 'barfoo-2))
+
+ (is (relatedp foo bar :relation 'barfoo-1))
+ (is-false (relatedp bar foo2 :relation 'barfoo-1))
+
+ (is (relatedp bar foo2 :relation 'barfoo-2))
(unrelate bar foo2 :relation 'barfoo-2)
- (is-false (relatedp foo2 bar 'barfoo-2))))
-
+ (is-false (relatedp foo2 bar :relation 'barfoo-2))))
(db-test (many-to-many-redefinition :depends-on many-to-many-definition)
(finishes
(defdao-example foo ()