serializationTest :: SimpleTestCase -> TestTree
serializationTest (msg, actual, expected) = testCase msg $ do
        let actualIPC    = Blaze.toByteString $ IPC.asyncIPC actual
            msg' = unlines [
                msg
              , "   actual  =" ++ (unpack . encode $ actualIPC)
              , "   expected=" ++ unpack expected
              , "   expectedValue=" ++ show actual
              ]
        assertEqual msg'  (fst . decode $ expected) actualIPC
serializationTest :: SimpleTestCase -> TestTree
serializationTest (msg, actual, expected) = testCase msg $ do
        let actualIPC    = Blaze.toByteString $ IPC.asyncIPC actual
            msg' = unlines [
                msg
              , "   actual  =" ++ (unpack . encode $ actualIPC)
              , "   expected=" ++ unpack expected
              , "   expectedValue=" ++ show actual
              ]
        assertEqual msg'  (fst . decode $ expected) actualIPC
serializationTest (msg, actual, expected) = testCase msg $ do
        let actualIPC    = Blaze.toByteString $ IPC.asyncIPC actual
            msg' = unlines [
                msg
              , "   actual  =" ++ (unpack . encode $ actualIPC)
              , "   expected=" ++ unpack expected
              , "   expectedValue=" ++ show actual
              ]
        assertEqual msg'  (fst . decode $ expected) actualIPC