Unescape extracted strings (#83)

Author: cknitt

lib/Message.ml

@@ -14,6 +14,7 @@ let fromStringMap ?description map =
   | _ -> None
 
 let toJson {id; defaultMessage; description} : Yojson.Basic.t =
+  let defaultMessage = Scanf.unescaped defaultMessage in
   match description with
   | Some description ->
     `Assoc

test/Test.ml

@@ -145,6 +145,20 @@ let testExtractIntlPpx () =
   }
 ]|}
 
+let testExtractEscaped () =
+  testExtract ["testData/testEscape"]
+    {|[
+  {
+    "id": "ReScript.decodeError",
+    "defaultMessage":
+      "The configuration could not be decoded.\n\nPlease contact your administrator."
+  },
+  {
+    "id": "ReScript.trackingActive",
+    "defaultMessage": "Tracking active in \"{incident}\""
+  }
+]|}
+
 let testPathNotFoundError () =
   Alcotest.check_raises "dir not found"
     (Extractor.PathNotFound "testData/someDir") (fun () ->
@@ -181,6 +195,7 @@ let testSetExtract =
     test_case "Extract full" `Quick testExtractFull;
     test_case "Extract partial" `Quick testExtractPartial;
     test_case "Extract ReScript" `Quick testExtractReScript;
+    test_case "Extract messages with escape chars" `Quick testExtractEscaped;
     test_case "Extract Intl PPX" `Quick testExtractIntlPpx;
     test_case "Path not found" `Quick testPathNotFoundError;
   ]

test/testData/testEscape/Test_Escape.res

@@ -0,0 +1,10 @@
+<FormattedMessage
+  id="ReScript.decodeError"
+  defaultMessage="The configuration could not be decoded.\n\nPlease contact your administrator."
+/>
+
+<FormattedMessage
+  id="ReScript.trackingActive"
+  defaultMessage="Tracking active in \"{incident}\""
+  values={"incident": "42"}
+/>