strings.parser: adding error tests.
parent
6dd1172a8d
commit
68bdd4196b
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue