+
+
+-- | Make sure we can unpickle the sample file.
+--
+test_unpickle_succeeds :: TestTree
+test_unpickle_succeeds =
+ testCase "unpickling succeeds" $ do
+ let path = "test/xml/Heartbeat.xml"
+ actual <- unpickleable path pickle_message
+ let expected = True
+ actual @?= expected