diff options
author | Steffen Mueller <smueller@cpan.org> | 2013-02-17 13:02:23 +0100 |
---|---|---|
committer | Steffen Mueller <smueller@cpan.org> | 2013-02-17 13:03:56 +0100 |
commit | 0ba3239af5e18df853bb840a5955321367b7e3e8 (patch) | |
tree | dcadc0fd183cc828dc6873f67ff8a3f19555ccbd /dist | |
parent | b9929960b4602ae88b3f04bf15fa8cd2bf8a5c05 (diff) | |
download | perl-0ba3239af5e18df853bb840a5955321367b7e3e8.tar.gz |
[perl #116587] Data::Dumper intermittently fails tests on 5.8.*
In a nutshell, we don't care enough about 5.8 to try really hard to fix
(obscure) vstring problems there. But we care enough not to make DD fail
its tests because of such a corner case. We don't want to screw all
users that are trapped in the last decade.
Thus, skip certain tests pre-5.10.
Diffstat (limited to 'dist')
-rw-r--r-- | dist/Data-Dumper/t/dumper.t | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/dist/Data-Dumper/t/dumper.t b/dist/Data-Dumper/t/dumper.t index 6f618def54..c1e5fe6274 100644 --- a/dist/Data-Dumper/t/dumper.t +++ b/dist/Data-Dumper/t/dumper.t @@ -1510,9 +1510,16 @@ VSTRINGS_CORRECT \v65.66.6_7, \~v190.189.188 ); - TEST q(Data::Dumper->Dump(\@::_v, [qw(a b c d)])), 'vstrings'; - TEST q(Data::Dumper->Dumpxs(\@::_v, [qw(a b c d)])), 'xs vstrings' - if $XS; + if ($] >= 5.010) { + TEST q(Data::Dumper->Dump(\@::_v, [qw(a b c d)])), 'vstrings'; + TEST q(Data::Dumper->Dumpxs(\@::_v, [qw(a b c d)])), 'xs vstrings' + if $XS; + } + else { # Skip tests before 5.10. vstrings considered funny before + SKIP_TEST "vstrings considered funny before 5.10.0"; + SKIP_TEST "vstrings considered funny before 5.10.0 (XS)" + if $XS; + } } ############# 384 |