extra/splitting/extras/extras-tests.factor

   1
   2 USING: ascii kernel math sequences strings tools.test ;
   3
   4 { { } } [ { } { 0 } split* ] unit-test
   5 { { { 1 2 3 } } } [ { 1 2 3 } { 0 } split* ] unit-test
   6 { { { 0 } } } [ { 0 } { 0 } split* ] unit-test
   7 { { { 0 } { 0 } } } [ { 0 0 } { 0 } split* ] unit-test
   8 { { { 1 2 } { 0 } { 3 } { 0 } { 0 } } } [ { 1 2 0 3 0 0 } { 0 } split* ] unit-test
   9 { { "hello" } } [ "hello" " " split* ] unit-test
  10 { { " " " " "hello" } } [ "  hello" " " split* ] unit-test
  11 { { "hello" " " " " " " "world" } } [ "hello   world" " " split* ] unit-test
  12 { { "hello" " " " " " " "world" " " } } [ "hello   world " " " split* ] unit-test
  13
  14 { { } } [ { } [ 0 > ] split*-when ] unit-test
  15 { { { 0 } } } [ { 0 } [ 0 > ] split*-when ] unit-test
  16 { { { 0 0 } } } [ { 0 0 } [ 0 > ] split*-when ] unit-test
  17 { { { 1 } { 2 } { 0 } { 3 } { 0 0 } } } [ { 1 2 0 3 0 0 } [ 0 > ] split*-when ] unit-test
  18 { { { 1 } { 2 3 } { 1 } { 4 5 } { 1 } { 6 } } } [
  19     1 { 1 2 3 1 4 5 1 6 } [ dupd = ] split*-when nip
  20 ] unit-test
  21
  22 { { "hello" " " " " " " "world" } } [
  23     "hello   world"
  24     [ [ blank? ] find drop ] split-find
  25     [ >string ] map
  26 ] unit-test
  27
  28 { { } } [ "" " " split-harvest ] unit-test
  29 { { "a" } } [ "a" " " split-harvest ] unit-test
  30 { { "a" } } [ " a" " " split-harvest ] unit-test
  31 { { "a" } } [ " a " " " split-harvest ] unit-test
  32 { { "a" "b" } } [ "a b" " " split-harvest ] unit-test
  33 { { "a" "b" } } [ " a b" " " split-harvest ] unit-test
  34 { { "a" "b" } } [ " a b " " " split-harvest ] unit-test
  35 { { "a" "b" "c" } } [ "a b c" " " split-harvest ] unit-test
  36 { { "a" "b" "c" } } [ "a  b c" " " split-harvest ] unit-test
  37 { { "a" "b" "c" } } [ "a  b  c" " " split-harvest ] unit-test
  38 { { "a" "b" "c" } } [ " a  b  c" " " split-harvest ] unit-test
  39 { { "a" "b" "c" } } [ " a  b  c " " " split-harvest ] unit-test