]> git.vpit.fr Git - perl/modules/Variable-Magic.git/commitdiff
Better metasyntactic variable names for t/35-stash.t
authorVincent Pit <vince@profvince.com>
Mon, 23 Mar 2009 14:25:51 +0000 (15:25 +0100)
committerVincent Pit <vince@profvince.com>
Mon, 23 Mar 2009 14:32:01 +0000 (15:32 +0100)
t/35-stash.t

index dc66fa6fc154040fb8989c1e707643832bb7cad5..1f42afd22c8f8673d1f427bf6e4b510eb3c29774 100644 (file)
@@ -42,17 +42,17 @@ cast %Hlagh::, $wiz;
  eval q{
   die "ok\n";
   package Hlagh;
-  our $a;
+  our $thing;
   {
    package NotHlagh;
-   our $x = @Hlagh::b;
+   our $what = @Hlagh::stuff;
   }
  };
 
  is $@, "ok\n", 'stash: variables compiled fine';
  is_deeply \%mg, {
-  fetch => [ qw/a b/ ],
-  store => [ qw/a b/ ],
+  fetch => [ qw/thing stuff/ ],
+  store => [ qw/thing stuff/ ],
  }, 'stash: variables';
 }