Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
submarine
submarine
Commits
edccfb8c
Commit
edccfb8c
authored
Sep 20, 2007
by
Ryszard Szopa
Browse files
corrected error in named-many-to-many test case.
darcs-hash:c8b196eca54108b38750e3b1ab732ba67cbdd71c
parent
69f6c101
Changes
1
Hide whitespace changes
Inline
Side-by-side
submarine-tests.lisp
View file @
edccfb8c
...
...
@@ -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
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment