BEGIN {
plan skip_all => 'Variable::Magic required to test magic'
- unless eval "use Variable::Magic 0.31; 1";
+ unless eval "use Variable::Magic; 1";
}
{
{ package Str; }
BEGIN {
- plan tests => 2 * 6;
+ plan tests => 2 * 8;
+ defined and diag "Using Variable::Magic $_" for $Variable::Magic::VERSION;
}
use Lexical::Types as => 'Lexical::Types::Test';
} else {
eval { $test->() };
}
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
is_deeply $got, $exp, $desc;
}
return $want ? @ret : $ret[0];
}
+sub zzz {
+ my $d = Variable::Magic::getdata($_[0], $Lexical::Types::Test::Str::wiz);
+ isnt $d, undef, 'typed lexicals are tagged';
+ is ref($d), 'HASH', 'typed lexicals are correctly tagged';
+}
+
for (1 .. 2) {
my Str $x = "abc";
my Str $z;
check { $z = "bar" . $x } $z, { set => 1 }, 'scalar assign';
is $z, 'barabcfoo', 'scalar assign correctly';
+
+ zzz($z);
}