-gameinfo_test_files :: [FilePath]
-gameinfo_test_files =
- [ "test/xml/gameinfo/CBASK_Lineup_XML.xml",
- "test/xml/gameinfo/cbaskpreviewxml.xml",
- "test/xml/gameinfo/cflpreviewxml.xml",
- "test/xml/gameinfo/Matchup_NBA_NHL_XML.xml",
- "test/xml/gameinfo/MLB_Gaming_Matchup_XML.xml",
- "test/xml/gameinfo/MLB_Lineup_XML.xml",
- "test/xml/gameinfo/MLB_Matchup_XML.xml",
- "test/xml/gameinfo/mlbpreviewxml.xml",
- "test/xml/gameinfo/MLS_Preview_XML.xml",
- "test/xml/gameinfo/NBA_Gaming_Matchup_XML.xml",
- "test/xml/gameinfo/NBALineupXML.xml",
- "test/xml/gameinfo/NBA_Playoff_Matchup_XML.xml",
- "test/xml/gameinfo/NCAA_FB_Preview_XML.xml",
- "test/xml/gameinfo/nbapreviewxml.xml",
- "test/xml/gameinfo/nflpreviewxml.xml",
- "test/xml/gameinfo/nhlpreviewxml.xml",
- "test/xml/gameinfo/recapxml.xml" ]
-
-
--- | Make sure we can parse every element of 'gameinfo_test_files'.
+game_info_test_files :: [FilePath]
+game_info_test_files =
+ map (change_suffix . add_path) dtds
+ where
+ add_path = ("test/xml/gameinfo/" ++ )
+ change_suffix = replace ".dtd" ".xml"
+
+-- | Make sure we can parse every element of 'game_info_test_files'.