Commit | Line | Data |
71cfadf5 |
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 | |