Add failing astral UTF-16 test.

Author: jamesdbrock

test/Main.purs

@@ -448,6 +448,13 @@ main = do
   parseTest "1*2+3/4-5" (-3) exprTest
   parseTest "ab?" "ab" manySatisfyTest
 
+  parseTest "𝅘𝅥𝅘𝅥𝅮x𝅘𝅥𝅯" "𝅘𝅥𝅘𝅥𝅮x𝅘𝅥𝅯" do
+    quarter <- anyChar
+    eighth <- string "x" <|> string "𝅘𝅥𝅮"
+    letterx <- string "𝅘𝅥𝅯" <|> string "x"
+    sixteenth <- string "𝅘𝅥𝅯" <|> string "x"
+    pure $ singleton quarter <> eighth <> letterx <> sixteenth
+
   let tokpos = const initialPos
   parseTest (fromFoldable [A, B]) A (token tokpos)
   parseTest (fromFoldable [B, A]) B (token tokpos)