1 USING: eval multiline sequences tools.test ;
10 { "foo\nbar\n" } [ test-it ] unit-test
15 { "foo\nbar\n" } [ HEREDOC: END
25 { " END\n" } [ HEREDOC: END
30 { "\n" } [ HEREDOC: END
35 { "x\n" } [ HEREDOC: END
40 { "x\n" } [ HEREDOC: END
45 ! there's a space after xyz
46 { "xyz \n" } [ HEREDOC: END
51 { "} ! * # \" «\n" } [ HEREDOC: END
56 { 21 "foo\nbar\n" " HEREDOC: FOO\n FOO\n" 22 } [ 21 HEREDOC: X
76 SYNTAX: MULTILINE-LITERAL: parse-here suffix! ;
81 CONSTANT: foo { MULTILINE-LITERAL:
87 ! Make sure parse-here fails if extra crap appears on the first line
89 "CONSTANT: foo { MULTILINE-LITERAL: asdfasfdasdfas