basis/multiline/multiline-tests.factor

   1 USING: accessors 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 { "xyz \n" } [ HEREDOC: END
  46 xyz
  47 END
  48 ] unit-test
  49
  50 { "} ! * # \" «\n" } [ HEREDOC: END
  51 } ! * # " «
  52 END
  53 ] unit-test
  54
  55 { 21 "foo\nbar\n" " HEREDOC: FOO\n FOO\n" 22 } [ 21 HEREDOC: X
  56 foo
  57 bar
  58 X
  59 HEREDOC: END
  60  HEREDOC: FOO
  61  FOO
  62 END
  63 22 ] unit-test
  64
  65 { "lol\n xyz\n" }
  66 [
  67 HEREDOC: xyz
  68 lol
  69  xyz
  70 xyz
  71 ] unit-test
  72
  73
  74 { "lol" }
  75 [ DELIMITED: aol
  76 lolaol ] unit-test
  77
  78 { "whoa" }
  79 [ DELIMITED: factor blows my mind
  80 whoafactor blows my mind ] unit-test
  81
  82 <<
  83 SYNTAX: MULTILINE-LITERAL: parse-here suffix! ;
  84 >>
  85
  86 { { "bar" } }
  87 [
  88     CONSTANT: foo { MULTILINE-LITERAL:
  89 bar
  90 ;
  91 } foo
  92 ] unit-test
  93
  94
  95 ! Make sure parse-here fails if extra crap appears on the first line
  96 [
  97     "CONSTANT: foo { MULTILINE-LITERAL: asdfasfdasdfas
  98 bar
  99 ;
 100 }" eval
 101 ] must-fail