basis/multiline/multiline-tests.factor

   1 USING: eval multiline sequences tools.test ;
   2 IN: multiline.tests
   3
   4 STRING: test-it
   5 foo
   6 bar
   7
   8 ;
   9
  10 { "foo\nbar\n" } [ test-it ] unit-test
  11
  12 /*
  13 <<
  14 SYNTAX: MULTILINE-LITERAL: parse-here suffix! ;
  15 >>
  16
  17 { { "bar" } }
  18 [
  19     CONSTANT: foo { MULTILINE-LITERAL:
  20 bar
  21 ;
  22 } foo
  23 ] unit-test
  24
  25 ! Make sure parse-here fails if extra crap appears on the first line
  26 [
  27     "CONSTANT: foo { MULTILINE-LITERAL: asdfasfdasdfas
  28 bar
  29 ;
  30 }" eval
  31 ] must-fail
  32 */