From: Vincent Pit Date: Thu, 21 Jun 2012 16:50:19 +0000 (+0200) Subject: Teach t/35-stash.t about perl 5.17.1 X-Git-Tag: rt77991~10 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=274cdb1b1834de4831b38d060cdd2808aa3a9549;p=perl%2Fmodules%2FVariable-Magic.git Teach t/35-stash.t about perl 5.17.1 --- diff --git a/t/35-stash.t b/t/35-stash.t index d8b8168..ac00467 100644 --- a/t/35-stash.t +++ b/t/35-stash.t @@ -215,6 +215,9 @@ cast %Hlagh::, $wiz; { local %mg; + my @expected_stores = map { ($_) x 2 } qw; + push @expected_stores, 'nevermentioned' if "$]" < 5.017_001; + eval q{ package Hlagh; undef &nevermentioned; @@ -223,11 +226,7 @@ cast %Hlagh::, $wiz; }; is $@, '', 'stash: delete executed fine'; - is_deeply \%mg, { - store => [ - qw - ], - }, 'stash: delete'; + is_deeply \%mg, { store => \@expected_stores }, 'stash: delete'; } END {