vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/split-regexp.t

   1 use Test::Base;
   2
   3 __DATA__
   4 ===
   5 --- (xxx) chomp split=// reverse join
   6 one
   7 two
   8 --- (yyy) chomp
   9 owt
  10 eno
  11
  12 ===
  13 --- (xxx) split=/[XY]/ join=-: oneXtwoYthree
  14 --- (yyy): one-two-three
  15
  16 ===
  17 --- (xxx) split join=-: one two three
  18 --- (yyy): one-two-three