vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/subclass.t

   1 use lib 't';
   2 use TestBass tests => 7;
   3
   4 eval "use Test::Base";
   5 is "$@", '', 'ok to import parent class *after* subclass';
   6
   7 my @blocks = blocks;
   8
   9 is ref(default_object), 'TestBass';
  10
  11 is $blocks[0]->el_nombre, 'Test One';
  12
  13 ok $blocks[0]->can('feedle'), 'Does feedle method exist?';
  14
  15 run_is xxx => 'yyy';
  16
  17 run_like_hell 'thunk', qr(thunk,.*ile.*unk);
  18
  19 __DATA__
  20 === Test One
  21 --- xxx lines foo_it join
  22 a lion
  23 a tiger
  24 a liger
  25 --- yyy
  26 foo - a lion
  27 foo - a tiger
  28 foo - a liger
  29
  30 ===
  31 --- thunk
  32 A thunk, a pile of junk
  33 ===
  34 --- thunk
  35 A thunk, a jile of punk