strings.parser: fix bug with octal escape followed by more numbers

[factor.git] / core / strings / parser / parser-tests.factor

diff --git a/core/strings/parser/parser-tests.factor b/core/strings/parser/parser-tests.factor
index 441177eea44d92ee4c0062bbe1f780ff33db66e2..42bf70932ef7dd4a551e9aae17017c22eac0acc6 100644 (file)
--- a/core/strings/parser/parser-tests.factor
+++ b/core/strings/parser/parser-tests.factor
@@ -29,6 +29,7 @@ USING: accessors eval kernel lexer strings.parser tools.test ;
 { "foo bar" } [ "\"foo \\\nbar\"" eval( -- obj ) ] unit-test
 
 { "a" } [ "\"\\141\"" eval( -- obj ) ] unit-test
+{ "a1" } [ "\"\\1411\"" eval( -- obj ) ] unit-test
 { "\0" } [ "\"\\0\"" eval( -- obj ) ] unit-test
 { "\x01" } [ "\"\\01\"" eval( -- obj ) ] unit-test
 { "\n" } [ "\"\\012\"" eval( -- obj ) ] unit-test