multiline: remove HEREDOC:

[factor.git] / basis / multiline / multiline-tests.factor

diff --git a/basis/multiline/multiline-tests.factor b/basis/multiline/multiline-tests.factor
index dbc2688f4e26d1105a5a14402364f5232e6327d3..e7eedf27a9da55bc0732fe3cb15902b2f5ae8061 100644 (file)
--- a/basis/multiline/multiline-tests.factor
+++ b/basis/multiline/multiline-tests.factor
@@ -9,68 +9,6 @@ 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
-
-! there's a space after xyz
-{ "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
-
 /*
 <<
 SYNTAX: MULTILINE-LITERAL: parse-here suffix! ;