+
+-- | Repeat of 'test_pickle_of_unpickle_is_identity1' with a different
+-- XML file.
+test_pickle_of_unpickle_is_identity2 :: TestTree
+test_pickle_of_unpickle_is_identity2 =
+ testCase "pickle composed with unpickle is the identity (with Editor)" $ do
+ let path = "test/xml/newsxml-with-editor.xml"
+ (expected :: [MessageXml], actual) <- pickle_unpickle "message" path
+ actual @?= expected
+
+test_unpickle_succeeds1 :: TestTree
+test_unpickle_succeeds1 =
+ testCase "unpickling succeeds" $ do
+ let path = "test/xml/newsxml.xml"
+ actual <- unpickleable path pickle_message
+ let expected = True
+ actual @?= expected
+
+test_unpickle_succeeds2 :: TestTree
+test_unpickle_succeeds2 =
+ testCase "unpickling succeeds (with Editor)" $ do
+ let path = "test/xml/newsxml-with-editor.xml"
+ actual <- unpickleable path pickle_message
+ let expected = True
+ actual @?= expected