t/15pkg_gen.t

   1 #!./perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 4;
   7
   8 BEGIN { use_ok('MRO::Compat') }
   9
  10 {
  11     package Foo;
  12     our @ISA = qw//;
  13 }
  14
  15 my $f_gen = mro::get_pkg_gen('Foo');
  16 ok($f_gen > 0, 'Foo pkg_gen > 0');
  17
  18 {
  19     no warnings 'once';
  20     *Foo::foo_func = sub { 123 };
  21 }
  22 my $new_f_gen = mro::get_pkg_gen('Foo');
  23 ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for methods');
  24 $f_gen = $new_f_gen;
  25
  26 @Foo::ISA = qw/Bar/;
  27 $new_f_gen = mro::get_pkg_gen('Foo');
  28 ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for @ISA');
  29