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

   1 use Test::Base;
   2
   3 __DATA__
   4 ===
   5 --- in lines tail
   6 one
   7 two
   8 three
   9 --- out
  10 three
  11
  12 ===
  13 --- in lines tail=2 join
  14 one
  15 two
  16 three
  17 --- out
  18 two
  19 three