-- other... disorganized... information.
--
module TSN.XML.Odds (
+ dtd,
pickle_message,
-- * Tests
odds_tests,
(=.),
(==.),
countAll,
- executeRaw,
+ deleteAll,
insert_,
migrate,
runMigration,
unsafe_unpickle )
+-- | The DTD to which this module corresponds. Used to invoke dbimport.
+--
+dtd :: String
+dtd = "Odds_XML.dtd"
+
+
--
-- DB/XML data types
--
--
test_on_delete_cascade :: TestTree
test_on_delete_cascade = testGroup "cascading delete tests"
- [ check "deleting odds deleted its children"
+ [ check "deleting odds deletes its children"
"test/xml/Odds_XML.xml"
13 -- 5 casinos, 8 teams
,
- check "deleting odds deleted its children (non-int team_id)"
+ check "deleting odds deletes its children (non-int team_id)"
"test/xml/Odds_XML-noninteger-team-id.xml"
51 -- 5 casinos, 46 teams
,
migrate e
migrate f
_ <- dbimport odds
- -- No idea how 'delete' works, so do this instead.
- executeRaw False "DELETE FROM odds;" []
+ deleteAll a
count_a <- countAll a
count_b <- countAll b
count_c <- countAll c