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

   1 use Test::Base;
   2
   3 plan tests => 7 * blocks;
   4
   5 run_is 'foo', 'bar';
   6 run_is 'bar', 'baz';
   7 run_is 'baz', 'foo';
   8
   9 for my $block (blocks) {
  10     is $block->foo, $block->bar, $block->name;
  11     is $block->bar, $block->baz, $block->name;
  12     is $block->baz, $block->foo, $block->name;
  13 }
  14
  15 my @blocks = blocks;
  16
  17 is $blocks[0]->foo, "Hey Now\n";
  18 is $blocks[1]->foo, "Holy Cow\n";
  19
  20 __END__
  21
  22
  23 === One
  24 --- foo
  25 Hey Now
  26 --- bar
  27 Hey Now
  28 --- baz
  29 Hey Now
  30
  31
  32 === Two
  33 --- baz
  34 Holy Cow
  35 --- bar
  36 Holy Cow
  37 --- foo
  38 Holy Cow