tests = TestList
  [ TestCase $ "foo@bar{}"  @=? makeMessage "foo" "bar" "{}"
  , TestCase $ "member@bar{\"me\":true,\"name\":\"bar\",\"id\":\"foo\"}" @=?
               makeMessageT "bar" (Member "foo" "bar" True)
  ]
tests = TestList
  [ TestCase $ "foo@bar{}"  @=? makeMessage "foo" "bar" "{}"
  , TestCase $ "member@bar{\"me\":true,\"name\":\"bar\",\"id\":\"foo\"}" @=?
               makeMessageT "bar" (Member "foo" "bar" True)
  ]
tests = TestList
  [ TestCase $ "foo@bar{}"  @=? makeMessage "foo" "bar" "{}"
  , TestCase $ "member@bar{\"me\":true,\"name\":\"bar\",\"id\":\"foo\"}" @=?
               makeMessageT "bar" (Member "foo" "bar" True)
  ]