In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/04e5ac63d9ec63668adef6a2f488bbfb22cce7a8?hp=b0413f463ee989f4bfc29e4acfcfc4873d4dc3ce>
- Log ----------------------------------------------------------------- commit 04e5ac63d9ec63668adef6a2f488bbfb22cce7a8 Author: Nicholas Clark <[email protected]> Date: Thu Aug 20 21:12:44 2009 +0100 Instead of trusting mro::get_linear_isa(), test it against the expected output. ----------------------------------------------------------------------- Summary of changes: t/mro/isa_dfs.t | 14 +++++++++++++- 1 files changed, 13 insertions(+), 1 deletions(-) diff --git a/t/mro/isa_dfs.t b/t/mro/isa_dfs.t index 6eabf1f..889ee6e 100644 --- a/t/mro/isa_dfs.t +++ b/t/mro/isa_dfs.t @@ -43,9 +43,21 @@ package main; require mro; +my %expect = + ( + klonk => [qw(klonk)], + urkkk => [qw(urkkk klonk kapow)], + kapow => [qw(kapow)], + kayo => [qw(kayo)], + thwacke => [qw(thwacke)], + zzzzzwap => [qw(zzzzzwap thwacke kapow)], + whamm => [qw(whamm kapow thwacke)], + ); + foreach my $package (qw(klonk urkkk kapow kayo thwacke zzzzzwap whamm)) { my $ref = bless [], $package; - my $isa = mro::get_linear_isa($package); + my $isa = $expect{$package}; + is("@{mro::get_linear_isa($package)}", "@$isa", "\...@isa for $package"); foreach my $class ($package, @$isa, 'UNIVERSAL') { isa_ok($ref, $class, $package); -- Perl5 Master Repository
