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

   1 use Test::Base;
   2
   3 plan tests => 1 * blocks;
   4
   5 # A silly test instead of pod2html
   6 for my $block (blocks) {
   7     is(
   8         uc($block->pod),
   9         $block->upper,
  10         $block->name,
  11     );
  12 }
  13
  14 __END__
  15 === Header 1 Test
  16 --- pod
  17 =head1 The Main Event
  18 --- upper
  19 =HEAD1 THE MAIN EVENT
  20 === List Test
  21 --- pod
  22 =over
  23 =item * one
  24 =item * two
  25 =back
  26 --- upper
  27 =OVER
  28 =ITEM * ONE
  29 =ITEM * TWO
  30 =BACK