test_on_delete_cascade :: TestTree
test_on_delete_cascade = testGroup "cascading delete tests"
[ check "deleting news deletes its children"
test_on_delete_cascade :: TestTree
test_on_delete_cascade = testGroup "cascading delete tests"
[ check "deleting news deletes its children"
news <- unsafe_unpickle path pickle_message
let a = undefined :: News
let b = undefined :: NewsTeam
news <- unsafe_unpickle path pickle_message
let a = undefined :: News
let b = undefined :: NewsTeam