diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2013-07-31 08:51:36 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2013-07-31 08:51:36 +0100 |
| commit | 4725e868e1e96081bcc0f978318916bd7f8256a9 (patch) | |
| tree | 566991e15ad513ed730a6806ee2b988acc0922c7 /cpan/parent/t | |
| parent | e4fde5ca79509aa64f80d46497b7d5945e066222 (diff) | |
| download | perl-4725e868e1e96081bcc0f978318916bd7f8256a9.tar.gz | |
Upgrade parent from 0.225 to 0.226
Diffstat (limited to 'cpan/parent/t')
| -rw-r--r-- | cpan/parent/t/parent.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/cpan/parent/t/parent.t b/cpan/parent/t/parent.t index 6ee4494e8a..fd1722f668 100644 --- a/cpan/parent/t/parent.t +++ b/cpan/parent/t/parent.t @@ -56,12 +56,15 @@ is( $Eval1::VERSION, '1.01' ); is( $Eval2::VERSION, '1.02' ); +my $expected= q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(\@INC contains:/}; +$expected= q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(you may need to install the reallyReAlLyNotexists module\) \(\@INC contains:/} + if 5.018 <= $]; eval q{use parent 'reallyReAlLyNotexists'}; -like( $@, q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(you may need to install the reallyReAlLyNotexists module\) \(\@INC contains:/}, 'baseclass that does not exist'); +like( $@, $expected, 'baseclass that does not exist'); eval q{use parent 'reallyReAlLyNotexists'}; -like( $@, q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(you may need to install the reallyReAlLyNotexists module\) \(\@INC contains:/}, ' still failing on 2nd load'); +like( $@, $expected, ' still failing on 2nd load'); { my $warning; local $SIG{__WARN__} = sub { $warning = shift }; |