multiline: adding some tests

diff --git a/basis/multiline/multiline-tests.factor b/basis/multiline/multiline-tests.factor
index e7eedf27a9da55bc0732fe3cb15902b2f5ae8061..b8c3fb16aa045ee4cbcd1a3d8cbf40fa80b69ecc 100644 (file)
--- a/basis/multiline/multiline-tests.factor
+++ b/basis/multiline/multiline-tests.factor
@@ -1,4 +1,4 @@
-USING: eval multiline sequences tools.test ;
+USING: accessors eval lexer multiline sequences tools.test ;
 IN: multiline.tests
 
 STRING: test-it
@@ -30,3 +30,9 @@ bar
 }" eval
 ] must-fail
 */
+
+{ "abc" } [ "USE: multiline [=[ abc]=]" eval( -- string ) ] unit-test
+[ "USE: multiline [=[" eval( -- string ) ] [ error>> unexpected? ] must-fail-with
+[ "USE: multiline [=[ abc" eval( -- string ) ] [ error>> unexpected? ] must-fail-with
+[ "USE: multiline [=[ abc\n\n" eval( -- string ) ] [ error>> unexpected? ] must-fail-with
+[ "USE: multiline [=[ hello]=]length" eval( -- string ) ] [ error>> unexpected? ] must-fail-with