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