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

   1 use Test::Base;
   2
   3 filters qw(norm trim chomp);
   4
   5 plan tests => 1 * blocks;
   6
   7 my $c = next_block;
   8 is_deeply $c->input, $c->output;
   9
  10 $c = next_block;
  11 is $c->input, $c->output;
  12
  13 __END__
  14 ===
  15 --- input lines chomp chop array
  16 one
  17 two
  18 three
  19 --- output eval
  20 [qw(on tw thre)]
  21
  22
  23 ===
  24 --- input chomp chop
  25 one
  26 two
  27 three
  28 --- output eval
  29 "one\ntwo\nthre"
  30