Add m.reaction decode test

Author: nvmd

test/Spec.hs

@@ -96,6 +96,13 @@ spec = describe "unit tests" $ do
                 mtBody srcMsg `shouldBe` " * > :typo"
                 mtBody message `shouldBe` "> :hello"
             _ -> error $ show resp
+    it "decode reaction" $ do
+        resp <- decodeResp <$> BS.readFile "test/data/reaction.json"
+        case resp of
+            Right (Right (EventReaction eventID (Annotation annText))) -> do
+                eventID `shouldBe` EventID "$eventID"
+                annText `shouldBe` "\128077"    -- :+1:
+            _ -> error $ show resp
     it "encode room message" $
         encodePretty (RoomMessageText (MessageText "Hello" TextType Nothing Nothing))
             `shouldBe` "{\"body\":\"Hello\",\"msgtype\":\"m.text\"}"

test/data/reaction.json

@@ -0,0 +1,7 @@
+{
+  "m.relates_to": {
+    "event_id": "$eventID",
+    "key": "👍",
+    "rel_type": "m.annotation"
+  }
+}