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

   1 use Test::Base;
   2
   3 filters qw(norm trim chomp);
   4
   5 plan tests => 1 * blocks;
   6
   7 my @blocks = blocks;
   8
   9 is $blocks[0]->input, "I am the foo";
  10 is $blocks[1]->input, "One\n\nTwo\n\nThree";
  11 is $blocks[2]->input, "Che!\n";
  12
  13 __END__
  14 ===
  15 --- input
  16 I am the foo
  17 ===
  18 --- input
  19
  20 One
  21
  22 Two
  23
  24 Three
  25
  26 ===
  27 --- input chomp -chomp
  28 Che!
  29