steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

strings.parser: adding error tests.

locals-and-roots
John Benediktsson 2016-04-04 15:13:46 -07:00
parent 6dd1172a8d
commit 68bdd4196b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/strings/parser/parser-tests.factor
View File

@ -1,4 +1,4 @@
USING: eval strings.parser tools.test ; USING: accessors kernel eval strings.parser tools.test ;
{ "Hello\n\rworld" } [ "Hello\\n\\rworld" unescape-string ] unit-test { "Hello\n\rworld" } [ "Hello\\n\\rworld" unescape-string ] unit-test
@ -14,6 +14,9 @@ USING: eval strings.parser tools.test ;
{ "foobarbaz" } [ "\"foo\\\nbar\\\r\nbaz\"" eval( -- obj ) ] unit-test { "foobarbaz" } [ "\"foo\\\nbar\\\r\nbaz\"" eval( -- obj ) ] unit-test
{ "\"abc\"" } [ "\"\\\"abc\\\"\"" eval( -- string ) ] unit-test { "\"abc\"" } [ "\"\\\"abc\\\"\"" eval( -- string ) ] unit-test
[ "\"" eval( -- string ) ] [ error>> "Unterminated string" = ] must-fail-with
[ "\"abc" eval( -- string ) ] [ error>> "Unterminated string" = ] must-fail-with
[ "\"abc\n\n" eval( -- string ) ] [ error>> "Unterminated string" = ] must-fail-with
{ "\"\\" } [ "\"\\" ] unit-test { "\"\\" } [ "\"\\" ] unit-test