+-- | 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