From: Vincent Pit Date: Mon, 23 Mar 2009 14:25:51 +0000 (+0100) Subject: Better metasyntactic variable names for t/35-stash.t X-Git-Tag: v0.33~4 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=commitdiff_plain;h=63629d8ba1033ced266fc831fd4089a0f76c006d Better metasyntactic variable names for t/35-stash.t --- diff --git a/t/35-stash.t b/t/35-stash.t index dc66fa6..1f42afd 100644 --- a/t/35-stash.t +++ b/t/35-stash.t @@ -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'; }