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

   1 use Test::Base tests => 4;
   2
   3 my ($block1, $block2) = blocks;
   4
   5 is $block1->foo, "line 1\nline 2\n";
   6 is $block1->bar, "line1\nline2\n";
   7 is $block2->foo, "aaa\n\nbbb\n";
   8 is $block2->bar, "\nxxxx\n\nyyyy\n\n";
   9
  10
  11 __END__
  12
  13 === One
  14
  15 --- foo
  16 line 1
  17 line 2
  18
  19 --- bar
  20
  21 line1
  22 line2
  23
  24 === Two
  25
  26 --- bar -trim
  27
  28 xxxx
  29
  30 yyyy
  31
  32 --- foo
  33
  34 aaa
  35
  36 bbb
  37
  38