-- are not retained.
--
module TSN.XML.InjuriesDetail (
+ pickle_message,
+ -- * Tests
injuries_detail_tests,
- pickle_message )
+ -- * WARNING: these are private but exported to silence warnings
+ PlayerListingConstructor(..) )
where
import Data.Time ( UTCTime )
xpElem,
xpInt,
xpList,
+ xpOption,
xpPrim,
xpText,
- xpText0,
xpWrap )
import TSN.Picklers( xp_date, xp_team_id )
name :: String,
injury :: String,
status :: String,
- fantasy :: String, -- ^ Nobody knows what this is.
+ fantasy :: Maybe String, -- ^ Nobody knows what this is.
injured :: Bool,
injury_type :: String -- ^ "type" is a reserved keyword so we can't use it
}
(xpElem "Name" xpText)
(xpElem "Injury" xpText)
(xpElem "Status" xpText)
- (xpElem "Fantasy" xpText0)
+ (xpElem "Fantasy" $ xpOption xpText)
(xpElem "Injured" xpPrim)
(xpElem "Type" xpText)
where
listings m,
time_stamp m)
+--
+-- Tasty Tests
+--
--- * Tasty Tests
+-- | A list of all tests for this module.
+--
injuries_detail_tests :: TestTree
injuries_detail_tests =
testGroup
test_unpickle_succeeds ]
--- | Warning, succeess of this test does not mean that unpickling
--- succeeded.
+-- | If we unpickle something and then pickle it, we should wind up
+-- with the same thing we started with. WARNING: succeess of this
+-- test does not mean that unpickling succeeded.
+--
test_pickle_of_unpickle_is_identity :: TestTree
test_pickle_of_unpickle_is_identity = testGroup "pickle-unpickle tests"
[ check "pickle composed with unpickle is the identity"
actual @?= expected
+-- | Make sure we can actually unpickle these things.
+--
test_unpickle_succeeds :: TestTree
test_unpickle_succeeds = testGroup "unpickle tests"
[ check "unpickling succeeds"