1 USING: accessors eval lexer multiline sequences tools.test ;
10 { "foo\nbar\n" } [ test-it ] unit-test
14 SYNTAX: MULTILINE-LITERAL: parse-here suffix! ;
19 CONSTANT: foo { MULTILINE-LITERAL:
25 ! Make sure parse-here fails if extra crap appears on the first line
27 "CONSTANT: foo { MULTILINE-LITERAL: asdfasfdasdfas
34 { "abc" } [ "USE: multiline [=[ abc]=]" eval( -- string ) ] unit-test
35 [ "USE: multiline [=[" eval( -- string ) ] [ error>> unexpected? ] must-fail-with
36 [ "USE: multiline [=[ abc" eval( -- string ) ] [ error>> unexpected? ] must-fail-with
37 [ "USE: multiline [=[ abc\n\n" eval( -- string ) ] [ error>> unexpected? ] must-fail-with
38 [ "USE: multiline [=[ hello]=]length" eval( -- string ) ] [ error>> unexpected? ] must-fail-with