X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F35-stash.t;h=ac004677e69bfa1836087af2476e8b3bd5e0a858;hb=274cdb1b1834de4831b38d060cdd2808aa3a9549;hp=d8b8168ac6e79e1b8036896dbcd71b242eb4fe2a;hpb=02f11dff4858109f73a7c12ca146b9e33c9e229b;p=perl%2Fmodules%2FVariable-Magic.git

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<nevermentioned eat shoot>;
+ 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<nevermentioned nevermentioned eat eat shoot shoot nevermentioned>
-  ],
- }, 'stash: delete';
+ is_deeply \%mg, { store => \@expected_stores }, 'stash: delete';
 }
 
 END {