"test/xml/Odds_XML-noninteger-team-id.xml",
check "pickle composed with unpickle is the identity (positive(+) line)"
- "test/xml/Odds_XML-positive-line.xml" ]
+ "test/xml/Odds_XML-positive-line.xml",
+
+ check "pickle composed with unpickle is the identity (large file)"
+ "test/xml/Odds_XML-largefile.xml" ]
where
check desc path = testCase desc $ do
(expected, actual) <- pickle_unpickle pickle_message path
"test/xml/Odds_XML-noninteger-team-id.xml",
check "unpickling succeeds (positive(+) line)"
- "test/xml/Odds_XML-positive-line.xml" ]
+ "test/xml/Odds_XML-positive-line.xml",
+
+ check "unpickling succeeds (large file)"
+ "test/xml/Odds_XML-largefile.xml" ]
where
check desc path = testCase desc $ do
actual <- unpickleable path pickle_message