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

   1 use Test::Base tests => 4;
   2
   3 my $block = first_block;
   4 ok((not defined &Test::Base::Block::bogus_method),
   5    "Method doesn't exist");
   6 ok((not exists $block->{bogus_method}),
   7    "Slot really doesn't exist");
   8 ok((not defined $block->bogus_method),
   9    "Method is callable");
  10 my @list_context = $block->bogus_method;
  11 ok @list_context == 0,
  12    "Returns nothing in list context";
  13
  14 __DATA__
  15 === One
  16 --- xyz
  17 Flavor