Commit edccfb8c authored by Ryszard Szopa's avatar Ryszard Szopa
Browse files

corrected error in named-many-to-many test case.

darcs-hash:c8b196eca54108b38750e3b1ab732ba67cbdd71c
parent 69f6c101
......@@ -120,12 +120,13 @@ metaclass set to HTML and the right connection-spec."
(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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment