t/mro/pkg_gen.t

   1 #!./perl
   2
   3 use strict;
   4 use warnings;
   5
   6 chdir 't' if -d 't';
   7 require q(./test.pl); plan(tests => 6);
   8
   9 {
  10     package Foo;
  11     our @ISA = qw//;
  12 }
  13
  14 ok(!mro::get_pkg_gen('ReallyDoesNotExist'),
  15     "pkg_gen 0 for non-existant pkg");
  16
  17 my $f_gen = mro::get_pkg_gen('Foo');
  18 ok($f_gen > 0, 'Foo pkg_gen > 0');
  19
  20 {
  21     no warnings 'once';
  22     *Foo::foo_func = sub { 123 };
  23 }
  24 my $new_f_gen = mro::get_pkg_gen('Foo');
  25 ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for methods');
  26 $f_gen = $new_f_gen;
  27
  28 @Foo::ISA = qw/Bar/;
  29 $new_f_gen = mro::get_pkg_gen('Foo');
  30 ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for @ISA');
  31
  32 undef %Foo::;
  33 is(mro::get_pkg_gen('Foo'), 1, "pkg_gen 1 for undef %Pkg::");
  34
  35 delete $::{"Foo::"};
  36 is(mro::get_pkg_gen('Foo'), 0, 'pkg_gen 0 for delete $::{Pkg::}');