deserializationTest :: SimpleTestCase -> TestTree
deserializationTest (msg, actual, expected) = testCase msg $ do
        let actualDecoded = A.parseOnly (IPC.ipcParser <* A.endOfInput) (fst . decode $ expected)
        case actualDecoded of
          Left m  -> assertFailure m
          Right v -> assertEqual msg v actual

-- | Day used for tests.
--
-- Needs to be the first day and month to not upset some tests.
deserializationTest :: SimpleTestCase -> TestTree
deserializationTest (msg, actual, expected) = testCase msg $ do
        let actualDecoded = A.parseOnly (IPC.ipcParser <* A.endOfInput) (fst . decode $ expected)
        case actualDecoded of
          Left m  -> assertFailure m
          Right v -> assertEqual msg v actual

-- | Day used for tests.
--
-- Needs to be the first day and month to not upset some tests.
deserializationTest (msg, actual, expected) = testCase msg $ do
        let actualDecoded = A.parseOnly (IPC.ipcParser <* A.endOfInput) (fst . decode $ expected)
        case actualDecoded of
          Left m  -> assertFailure m
          Right v -> assertEqual msg v actual

-- | Day used for tests.
--
-- Needs to be the first day and month to not upset some tests.