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

   1 use Test::Base tests => 6;
   2
   3 my @blocks = blocks;
   4
   5 is $blocks[0]->description, 'One Time';
   6 is $blocks[1]->description, "This is the real description\nof the test.";
   7 is $blocks[2]->description, '';
   8 is $blocks[3]->description, '';
   9 is $blocks[4]->description, 'Three Tips';
  10 is $blocks[5]->description, 'Description goes here.';
  11
  12 __END__
  13 === One Time
  14 === Two Toes
  15 This is the real description
  16 of the test.
  17 --- foo
  18 bar
  19 ===
  20
  21 ===
  22 === Three Tips
  23
  24 --- beezle
  25 blob
  26
  27 ===
  28 Description goes here.
  29 --- data
  30 Some data