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

   1 use Test::Base;
   2
   3 filters 'chomp';
   4 spec_file 't/spec2';
   5
   6 plan tests => 3 * blocks;
   7
   8 run {
   9     my $block = shift;
  10     is ref($block), 'Test::Base::Block';
  11 };
  12
  13 my @blocks = blocks;
  14
  15 is($blocks[0]->foo, 1);
  16 is($blocks[0]->bar, 2);
  17 is($blocks[1]->foo, 3);
  18 is($blocks[1]->bar, 4);