-- | Assert there are on `ErrorResponse` in the list.
assertNoErrorResponse :: Either Error [ServerMessage] -> Assertion
assertNoErrorResponse (Left e) = assertFailure $ "Got Error" ++ show e
assertNoErrorResponse :: Either Error [ServerMessage] -> Assertion
assertNoErrorResponse (Left e) = assertFailure $ "Got Error" ++ show e
assertNoErrorResponse (Left e) = assertFailure $ "Got Error" ++ show e