Tests + fixes for missing string escapes.

Signed-off-by: Erik de Castro Lopo <[email protected]>
Closes: #49

Author: teh

Tests/LiteralParser.hs

@@ -47,6 +47,11 @@ testLiteralParser = describe "Parse literals:" $ do
         testLiteral "'\\u1234'"     `shouldBe` "Right (JSAstLiteral (JSStringLiteral '\\u1234'))"
         testLiteral "'\\uabcd'"     `shouldBe` "Right (JSAstLiteral (JSStringLiteral '\\uabcd'))"
         testLiteral "\"\\r\\n\""    `shouldBe` "Right (JSAstLiteral (JSStringLiteral \"\\r\\n\"))"
+        testLiteral "\"\\b\""           `shouldBe` "Right (JSAstLiteral (JSStringLiteral \"\\b\"))"
+        testLiteral "\"\\f\""           `shouldBe` "Right (JSAstLiteral (JSStringLiteral \"\\f\"))"
+        testLiteral "\"\\t\""           `shouldBe` "Right (JSAstLiteral (JSStringLiteral \"\\t\"))"
+        testLiteral "\"\\v\""           `shouldBe` "Right (JSAstLiteral (JSStringLiteral \"\\v\"))"
+        testLiteral "\"\\0\""           `shouldBe` "Right (JSAstLiteral (JSStringLiteral \"\\0\"))"
         testLiteral "\"hello\\nworld\"" `shouldBe` "Right (JSAstLiteral (JSStringLiteral \"hello\\nworld\"))"
         testLiteral "'hello\\nworld'"   `shouldBe` "Right (JSAstLiteral (JSStringLiteral 'hello\\nworld'))"
 

src/Language/JavaScript/Parser/Lexer.x

@@ -64,8 +64,9 @@ $not_eol_char = ~$eol_char -- anything but an end of line character
 
 $string_chars = [^ \n \r ' \" \\]
 
-@sq_escapes = \\ ( \\ | ' | r | n | x )
-@dq_escapes = \\ ( \\ | \" | r | n | x )
+-- See e.g. http://es5.github.io/x7.html#x7.8.4 (Table 4)
+@sq_escapes = \\ ( \\ | ' | b | f | n | r | t | v | 0 | x )
+@dq_escapes = \\ ( \\ | \" | b | f | n | r | t | v | 0 | x )
 
 @unicode_escape = \\ u $hex_digit{4}