-- automatically. The root message is not retained.
--
module TSN.XML.Injuries (
- Message,
- injuries_tests )
+ pickle_message,
+ -- * Tests
+ injuries_tests,
+ -- * WARNING: these are private but exported to silence warnings
+ ListingConstructor(..) )
where
import Data.Data ( Data )
import Test.Tasty.HUnit ( (@?=), testCase )
import Text.XML.HXT.Core (
PU,
- XmlPickler(..),
xp4Tuple,
xp6Tuple,
xpAttr,
from_tuple = uncurryN InjuriesTeam
to_tuple m = (team_name m, team_league m)
-instance XmlPickler InjuriesTeam where
- xpickle = pickle_injuries_team
pickle_listing :: PU Listing
pickle_listing =
from_tuple = uncurryN Listing
to_tuple l = (team l, teamno l, injuries l, updated l)
-instance XmlPickler Listing where
- xpickle = pickle_listing
-
pickle_message :: PU Message
pickle_message =
listings m,
time_stamp m)
-instance XmlPickler Message where
- xpickle = pickle_message
-
+--
+-- Tasty Tests
+--
--- * Tasty Tests
+-- | A list of all tests for this module.
+--
injuries_tests :: TestTree
injuries_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 =
testCase "pickle composed with unpickle is the identity" $ do
actual @?= expected
+-- | Make sure we can actually unpickle these things.
+--
test_unpickle_succeeds :: TestTree
test_unpickle_succeeds =
testCase "unpickling succeeds" $ do