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

   1 use Test::Base tests => 8;
   2
   3 my $test = Test::Base->new;
   4
   5 my @blocks = $test->filters('chomp')->spec_file('t/spec1')->blocks;
   6
   7 is $blocks[0]->foo, '42';
   8 is $blocks[0]->bar, '44';
   9 is $blocks[1]->xxx, '123';
  10 is $blocks[1]->yyy, '321';
  11
  12 @blocks = Test::Base->new->delimiters('^^^', '###')->blocks;
  13
  14 is $blocks[0]->foo, "42\n";
  15 is $blocks[0]->bar, "44\n";
  16 is $blocks[1]->xxx, "123\n";
  17 is $blocks[1]->yyy, "321\n";
  18
  19 __END__
  20 ^^^ Test one
  21
  22 ### foo
  23 42
  24
  25 ### bar
  26 44
  27
  28 ^^^ Test two
  29
  30 ### xxx
  31 123
  32 ### yyy
  33 321