git.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/slice.t

   1 use Test::Base;
   2
   3 __DATA__
   4 ===
   5 --- in lines slice=0,2 join
   6 one
   7 two
   8 three
   9 four
  10 five
  11 --- out
  12 one
  13 two
  14 three
  15
  16 ===
  17 --- in lines slice=2,3 join
  18 one
  19 two
  20 three
  21 four
  22 five
  23 --- out
  24 three
  25 four
  26
  27 ===
  28 --- in lines slice=1 join
  29 one
  30 two
  31 three
  32 --- out
  33 two