Blame t/15pkg_gen.t

Packit 4c8e34
use strict;
Packit 4c8e34
use warnings;
Packit 4c8e34
Packit 4c8e34
use Test::More tests => 3;
Packit 4c8e34
Packit 4c8e34
use MRO::Compat;
Packit 4c8e34
Packit 4c8e34
{
Packit 4c8e34
    package Foo;
Packit 4c8e34
    our @ISA = qw//;
Packit 4c8e34
}
Packit 4c8e34
Packit 4c8e34
my $f_gen = mro::get_pkg_gen('Foo');
Packit 4c8e34
ok($f_gen > 0, 'Foo pkg_gen > 0');
Packit 4c8e34
Packit 4c8e34
{
Packit 4c8e34
    no warnings 'once';
Packit 4c8e34
    *Foo::foo_func = sub { 123 };
Packit 4c8e34
}
Packit 4c8e34
my $new_f_gen = mro::get_pkg_gen('Foo');
Packit 4c8e34
ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for methods');
Packit 4c8e34
$f_gen = $new_f_gen;
Packit 4c8e34
Packit 4c8e34
@Foo::ISA = qw/Bar/;
Packit 4c8e34
$new_f_gen = mro::get_pkg_gen('Foo');
Packit 4c8e34
ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for @ISA');
Packit 4c8e34