basis/multiline/multiline-tests.factor

   1 USING: accessors eval multiline 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 [ "foo\nbar\n" ] [ <" foo
  12 bar
  13 "> ] unit-test
  14
  15 [ "hello\nworld" ] [ <" hello
  16 world"> ] unit-test
  17
  18 [ "hello" "world" ] [ <" hello"> <" world"> ] unit-test
  19
  20 [ "\nhi" ] [ <"
  21 hi"> ] unit-test
  22
  23
  24 ! HEREDOC:
  25
  26 [ "foo\nbar\n" ] [ HEREDOC: END
  27 foo
  28 bar
  29 END
  30 ] unit-test
  31
  32 [ "" ] [ HEREDOC: END
  33 END
  34 ] unit-test
  35
  36 [ " END\n" ] [ HEREDOC: END
  37  END
  38 END
  39 ] unit-test
  40
  41 [ "\n" ] [ HEREDOC: END
  42
  43 END
  44 ] unit-test
  45
  46 [ "x\n" ] [ HEREDOC: END
  47 x
  48 END
  49 ] unit-test
  50
  51 [ "x\n" ] [ HEREDOC:       END
  52 x
  53 END
  54 ] unit-test
  55
  56 [ "xyz \n" ] [ HEREDOC: END
  57 xyz
  58 END
  59 ] unit-test
  60
  61 [ "} ! * # \" «\n" ] [ HEREDOC: END
  62 } ! * # " «
  63 END
  64 ] unit-test
  65
  66 [ 21 "foo\nbar\n" " HEREDOC: FOO\n FOO\n" 22 ] [ 21 HEREDOC: X
  67 foo
  68 bar
  69 X
  70 HEREDOC: END
  71  HEREDOC: FOO
  72  FOO
  73 END
  74 22 ] unit-test
  75
  76 [ "lol\n xyz\n" ]
  77 [
  78 HEREDOC: xyz
  79 lol
  80  xyz
  81 xyz
  82 ] unit-test
  83
  84
  85 [ "lol" ]
  86 [ DELIMITED: aol
  87 lolaol ] unit-test
  88
  89 [ "whoa" ]
  90 [ DELIMITED: factor blows my mind
  91 whoafactor blows my mind ] unit-test