test_on_delete_cascade :: TestTree
test_on_delete_cascade = testGroup "cascading delete tests"
[ check "deleting news deletes its children"
- "test/xml/newsxml.xml" ]
+ "test/xml/newsxml.xml"
+ 4 -- 2 news_teams and 2 news_locations that should remain.
+ ]
where
- check desc path = testCase desc $ do
+ check desc path expected = testCase desc $ do
news <- unsafe_unpickle path pickle_message
let a = undefined :: News
let b = undefined :: NewsTeam
count_d <- countAll d
count_e <- countAll e
return $ count_a + count_b + count_c + count_d + count_e
- -- There are 2 news_teams and 2 news_locations that should remain.
- let expected = 4
actual @?= expected