basis/multiline/multiline-tests.factor

   1 USING: 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 ] unit-test
  30
  31 [ "foo\nbar" ] [ HEREDOC: END
  32 foo
  33 barEND ] unit-test
  34
  35 [ "" ] [ HEREDOC: END
  36 END ] unit-test
  37
  38 [ " " ] [ HEREDOC: END
  39  END ] unit-test
  40
  41 [ "\n" ] [ HEREDOC: END
  42
  43 END ] unit-test
  44
  45 [ "x" ] [ HEREDOC: END
  46 xEND ] unit-test
  47
  48 [ "xyz " ] [ HEREDOC: END
  49 xyz END ] unit-test
  50
  51 [ "} ! * # \" «\n" ] [ HEREDOC: END
  52 } ! * # " «
  53 END ] unit-test
  54
  55 [ 21 "foo\nbar" " HEREDOC: FOO\n FOO\n" 22 ] [ 21 HEREDOC: X
  56 foo
  57 barX HEREDOC: END ! mumble
  58  HEREDOC: FOO
  59  FOO
  60 END 22 ] unit-test
  61