+
+instance DbImport PlayerListing where
+ dbimport = import_generic ( (concatMap player_listings) . listings)
+
+
+-- * Tasty Tests
+injuries_detail_tests :: TestTree
+injuries_detail_tests =
+ testGroup
+ "InjuriesDetail tests"
+ [ test_pickle_of_unpickle_is_identity ]
+
+
+test_pickle_of_unpickle_is_identity :: TestTree
+test_pickle_of_unpickle_is_identity =
+ testCase "pickle composed with unpickle is the identity" $ do
+ let path = "test/xml/Injuries_Detail_XML.xml"
+ (expected :: [Message], actual) <- pickle_unpickle "message" path
+ actual @?= expected