24 lines
767 B
Factor
24 lines
767 B
Factor
USING: accessors eval strings.parser strings.parser.private
|
|
tools.test ;
|
|
IN: strings.parser.tests
|
|
|
|
{ "Hello\n\rworld" } [ "Hello\\n\\rworld" unescape-string ] unit-test
|
|
|
|
{ "Hello\n\rworld" } [ "Hello\n\rworld" ] unit-test
|
|
{ "Hello\n\rworld\n" } [ "Hello\n\rworld
|
|
" ] unit-test
|
|
{ "Hello\n\rworld" "hi" } [ "Hello\n\rworld" "hi" ] unit-test
|
|
{ "Hello\n\rworld" "hi" } [ "Hello\n\rworld" "hi" ] unit-test
|
|
{ "Hello\n\rworld\n" "hi" } [ "Hello\n\rworld
|
|
" "hi" ] unit-test
|
|
{ "Hello\n\rworld\"" "hi" } [ "Hello\n\rworld\"" "hi" ] unit-test
|
|
|
|
{ "foobarbaz" } [ "\"foo\\\nbar\\\r\nbaz\"" eval( -- obj ) ] unit-test
|
|
|
|
{ "\"abc\"" } [ "\"\\\"abc\\\"\"" eval( -- string ) ] unit-test
|
|
|
|
{ "\"\\" } [ "\"\\" ] unit-test
|
|
|
|
{ "\e" } [ "\u00001b" ] unit-test
|
|
{ "\e" } [ "\x1b" ] unit-test
|