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 ! HEREDOC:
  14
  15 { "foo\nbar\n" } [ HEREDOC: END
  16 foo
  17 bar
  18 END
  19 ] unit-test
  20
  21 { "" } [ HEREDOC: END
  22 END
  23 ] unit-test
  24
  25 { " END\n" } [ HEREDOC: END
  26  END
  27 END
  28 ] unit-test
  29
  30 { "\n" } [ HEREDOC: END
  31
  32 END
  33 ] unit-test
  34
  35 { "x\n" } [ HEREDOC: END
  36 x
  37 END
  38 ] unit-test
  39
  40 { "x\n" } [ HEREDOC:       END
  41 x
  42 END
  43 ] unit-test
  44
  45 ! there's a space after xyz
  46 { "xyz \n" } [ HEREDOC: END
  47 xyz
  48 END
  49 ] unit-test
  50
  51 { "} ! * # \" «\n" } [ HEREDOC: END
  52 } ! * # " «
  53 END
  54 ] unit-test
  55
  56 { 21 "foo\nbar\n" " HEREDOC: FOO\n FOO\n" 22 } [ 21 HEREDOC: X
  57 foo
  58 bar
  59 X
  60 HEREDOC: END
  61  HEREDOC: FOO
  62  FOO
  63 END
  64 22 ] unit-test
  65
  66 { "lol\n xyz\n" }
  67 [
  68 HEREDOC: xyz
  69 lol
  70  xyz
  71 xyz
  72 ] unit-test
  73
  74
  75 { "lol" }
  76 [ DELIMITED: aol
  77 lolaol ] unit-test
  78
  79 { "whoa" }
  80 [ DELIMITED: factor blows my mind
  81 whoafactor blows my mind ] unit-test
  82
  83 <<
  84 SYNTAX: MULTILINE-LITERAL: parse-here suffix! ;
  85 >>
  86
  87 { { "bar" } }
  88 [
  89     CONSTANT: foo { MULTILINE-LITERAL:
  90 bar
  91 ;
  92 } foo
  93 ] unit-test
  94
  95
  96 ! Make sure parse-here fails if extra crap appears on the first line
  97 [
  98     "CONSTANT: foo { MULTILINE-LITERAL: asdfasfdasdfas
  99 bar
 100 ;
 101 }" eval
 102 ] must-fail