Add SportInfo support for Cbask_Tourn_Leaders_XML.dtd.

[dead/htsn-import.git] / src / TSN / XML / SportInfo.hs

diff --git a/src/TSN/XML/SportInfo.hs b/src/TSN/XML/SportInfo.hs
index 6dc1bbbc5fc22e402f4ab3fe69808b7c85e16775..39eb0b825244ebebdce252b1844eb0bae0736b48 100644 (file)
--- a/src/TSN/XML/SportInfo.hs
+++ b/src/TSN/XML/SportInfo.hs
@@ -18,7 +18,7 @@
 module TSN.XML.SportInfo (
   dtds,
   parse_xml,
-  sportinfo_tests,
+  sport_info_tests,
   -- * WARNING: these are private but exported to silence warnings
   SportInfoConstructor(..) )
 where
@@ -58,7 +58,7 @@ import Xml (
   unsafe_read_document )
 
 
--- | The DTDs for everything that we consider "Sport Info."
+-- | The DTDs for everything that we consider \"Sport Info.\"
 --
 --   TODO: This is the list from the old implementation. We need to
 --   make sure that we are really receiving XML for these DTDs
@@ -71,33 +71,33 @@ dtds =
     "CBASK_AssistsXML.dtd",
     "Cbask_Awards_XML.dtd",
     "CBASK_BlocksXML.dtd",
-    "Cbask_Conf_Standings_XML.dtd", -- no dtd
-    "Cbask_DivII_III_Indv_Stats_XML.dtd", -- no dtd
-    "Cbask_DivII_Team_Stats_XML.dtd", -- no dtd
-    "Cbask_DivIII_Team_Stats_XML.dtd", -- no dtd
-    "CBASK_FGPctXML.dtd", -- no dtd
-    "CBASK_FoulsXML.dtd", -- no dtd
-    "CBASK_FTPctXML.dtd", -- no dtd
+    "Cbask_Conf_Standings_XML.dtd",
+    "Cbask_DivII_III_Indv_Stats_XML.dtd",
+    "Cbask_DivII_Team_Stats_XML.dtd",
+    "Cbask_DivIII_Team_Stats_XML.dtd",
+    "CBASK_FGPctXML.dtd",
+    "CBASK_FoulsXML.dtd",
+    "CBASK_FTPctXML.dtd",
     "Cbask_Indv_No_Avg_XML.dtd", -- no dtd
-    "Cbask_Indv_Scoring_XML.dtd", -- no dtd
+    "Cbask_Indv_Scoring_XML.dtd",
     "Cbask_Indv_Shooting_XML.dtd", -- no dtd
-    "CBASK_MinutesXML.dtd", -- no dtd
-    "Cbask_Polls_XML.dtd", -- no dtd
-    "CBASK_ReboundsXML.dtd", -- no dtd
-    "CBASK_ScoringLeadersXML.dtd", -- no dtd
+    "CBASK_MinutesXML.dtd",
+    "Cbask_Polls_XML.dtd",
+    "CBASK_ReboundsXML.dtd",
+    "CBASK_ScoringLeadersXML.dtd",
     "CBASK_StealsXML.dtd", -- no dtd
     "Cbask_Team_Scoring_Rebound_Margin_XML.dtd", -- no dtd
     "Cbask_Team_Scoring_XML.dtd", -- no dtd
     "Cbask_Team_Shooting_Pct_XML.dtd", -- no dtd
-    "Cbask_Team_ThreePT_Made_XML.dtd", -- no dtd
-    "Cbask_Team_ThreePT_PCT_XML.dtd", -- no dtd
-    "Cbask_Team_Win_Pct_XML.dtd", -- no dtd
-    "Cbask_Top_Twenty_Five_XML.dtd", -- no dtd
-    "CBASK_TopTwentyFiveResult_XML.dtd", -- no dtd
-    "Cbask_Tourn_Awards_XML.dtd", -- no dtd
-    "Cbask_Tourn_Champs_XML.dtd", -- no dtd
-    "Cbask_Tourn_Indiv_XML.dtd", -- no dtd
-    "Cbask_Tourn_Leaders_XML.dtd", -- no dtd
+    "Cbask_Team_ThreePT_Made_XML.dtd",
+    "Cbask_Team_ThreePT_PCT_XML.dtd",
+    "Cbask_Team_Win_Pct_XML.dtd",
+    "Cbask_Top_Twenty_Five_XML.dtd",
+    "CBASK_TopTwentyFiveResult_XML.dtd",
+    "Cbask_Tourn_Awards_XML.dtd",
+    "Cbask_Tourn_Champs_XML.dtd",
+    "Cbask_Tourn_Indiv_XML.dtd",
+    "Cbask_Tourn_Leaders_XML.dtd",
     "Cbask_Tourn_MVP_XML.dtd", -- no dtd
     "Cbask_Tourn_Records_XML.dtd", -- no dtd
     "LeagueScheduleXML.dtd", -- no dtd
@@ -304,8 +304,8 @@ mkPersist tsn_codegen_config [groundhog|
 
 -- | A list of all tests for this module.
 --
-sportinfo_tests :: TestTree
-sportinfo_tests =
+sport_info_tests :: TestTree
+sport_info_tests =
   testGroup
     "SportInfo tests"
     [ test_parse_xml_succeeds,
@@ -314,22 +314,44 @@ sportinfo_tests =
 
 -- | Sample XML documents for SportInfo types.
 --
-sportinfo_test_files :: [FilePath]
-sportinfo_test_files =
-  [ "test/xml/sportinfo/CBASK_3PPctXML.xml",
-    "test/xml/sportinfo/Cbask_All_Tourn_Teams_XML.xml",
-    "test/xml/sportinfo/CBASK_AssistsXML.xml",
-    "test/xml/sportinfo/Cbask_Awards_XML.xml",
-    "test/xml/sportinfo/CBASK_BlocksXML.xml"
+sport_info_test_files :: [FilePath]
+sport_info_test_files =
+  map ("test/xml/sportinfo/" ++) [
+    "CBASK_3PPctXML.xml",
+    "Cbask_All_Tourn_Teams_XML.xml",
+    "CBASK_AssistsXML.xml",
+    "Cbask_Awards_XML.xml",
+    "CBASK_BlocksXML.xml",
+    "Cbask_Conf_Standings_XML.xml",
+    "Cbask_DivII_III_Indv_Stats_XML.xml",
+    "Cbask_DivII_Team_Stats_XML.xml",
+    "Cbask_DivIII_Team_Stats_XML.xml",
+    "CBASK_FGPctXML.xml",
+    "CBASK_FoulsXML.xml",
+    "CBASK_FTPctXML.xml",
+    "Cbask_Indv_Scoring_XML.xml",
+    "CBASK_MinutesXML.xml",
+    "Cbask_Polls_XML.xml",
+    "CBASK_ReboundsXML.xml",
+    "CBASK_ScoringLeadersXML.xml",
+    "Cbask_Team_ThreePT_Made_XML.xml",
+    "Cbask_Team_ThreePT_PCT_XML.xml",
+    "Cbask_Team_Win_Pct_XML.xml",
+    "Cbask_Top_Twenty_Five_XML.xml",
+    "CBASK_TopTwentyFiveResult_XML.xml",
+    "Cbask_Tourn_Awards_XML.xml",
+    "Cbask_Tourn_Champs_XML.xml",
+    "Cbask_Tourn_Indiv_XML.xml",
+    "Cbask_Tourn_Leaders_XML.xml"
   ]
 
 
 
--- | Make sure we can parse every element of 'sportinfo_test_files'.
+-- | Make sure we can parse every element of 'sport_info_test_files'.
 --
 test_parse_xml_succeeds :: TestTree
 test_parse_xml_succeeds =
-  testGroup "parse_xml" $ map check sportinfo_test_files
+  testGroup "parse_xml" $ map check sport_info_test_files
   where
     check t = testCase t $ do
       x <- unsafe_read_document t
@@ -341,14 +363,14 @@ test_parse_xml_succeeds =
       actual @?= expected
 
 
--- | Ensure that each element of 'sportinfo_test_files' can be imported
+-- | Ensure that each element of 'sport_info_test_files' can be imported
 --   by counting the total number of database records (after
 --   importing) and comparing it against the length of
---   'sportinfo_test_files'.
+--   'sport_info_test_files'.
 --
 test_dbimport_succeeds :: TestTree
 test_dbimport_succeeds = testCase "dbimport succeeds" $ do
-  xmltrees <- mapM unsafe_read_document sportinfo_test_files
+  xmltrees <- mapM unsafe_read_document sport_info_test_files
   let msgs = rights $ map (parse_xml "dummy") xmltrees
   actual <- withSqliteConn ":memory:" $ runDbConn $ do
                 runMigration silentMigrationLogger $ do
@@ -358,4 +380,4 @@ test_dbimport_succeeds = testCase "dbimport succeeds" $ do
 
   actual @?= expected
   where
-    expected = length sportinfo_test_files
+    expected = length sport_info_test_files