USING: accessors eval multiline tools.test ;
IN: multiline.tests

STRING: test-it
foo
bar

;

[ "foo\nbar\n" ] [ test-it ] unit-test


! HEREDOC:

[ "foo\nbar\n" ] [ HEREDOC: END
foo
bar
END
] unit-test

[ "" ] [ HEREDOC: END
END
] unit-test

[ " END\n" ] [ HEREDOC: END
 END
END
] unit-test

[ "\n" ] [ HEREDOC: END

END
] unit-test

[ "x\n" ] [ HEREDOC: END
x
END
] unit-test

[ "x\n" ] [ HEREDOC:       END
x
END
] unit-test

[ "xyz \n" ] [ HEREDOC: END
xyz 
END
] unit-test

[ "} ! * # \" «\n" ] [ HEREDOC: END
} ! * # " «
END
] unit-test

[ 21 "foo\nbar\n" " HEREDOC: FOO\n FOO\n" 22 ] [ 21 HEREDOC: X
foo
bar
X
HEREDOC: END
 HEREDOC: FOO
 FOO
END
22 ] unit-test

[ "lol\n xyz\n" ]
[
HEREDOC: xyz
lol
 xyz
xyz
] unit-test


[ "lol" ]
[ DELIMITED: aol
lolaol ] unit-test

[ "whoa" ]
[ DELIMITED: factor blows my mind
whoafactor blows my mind ] unit-test