81 lines
860 B
Factor
81 lines
860 B
Factor
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
|