use Test::More tests => 17;
-use Variable::Magic qw/wizard cast/;
+use Variable::Magic qw<wizard cast>;
my $wiz = eval { wizard get => sub { undef } };
is($@, '', 'wizard creation doesn\'t croak');
my $u = $b;
is_deeply(\@callers, [
- [ 'main', $0, __LINE__-2 ],
+ ([ 'main', $0, __LINE__-2 ]) x 2,
], 'caller into callback returns the right thing');
@callers = ();
$u = $b;
is_deeply(\@callers, [
- [ 'main', $0, __LINE__-2 ],
+ ([ 'main', $0, __LINE__-2 ]) x 2,
], 'caller into callback returns the right thing (second time)');
{
@callers = ();
my $u = $b;
is_deeply(\@callers, [
- [ 'main', $0, __LINE__-2 ],
+ ([ 'main', $0, __LINE__-2 ]) x 2,
], 'caller into callback into block returns the right thing');
}
eval { my $u = $b };
is($@, '', 'caller into callback doesn\'t croak');
is_deeply(\@callers, [
- ([ 'main', $0, __LINE__-3 ]) x 2,
+ ([ 'main', $0, __LINE__-3 ]) x 3,
], 'caller into callback into eval returns the right thing');