]> git.vpit.fr Git - perl/modules/autovivification.git/blob - t/42-deparse.t
Make multideref work with stores
[perl/modules/autovivification.git] / t / 42-deparse.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More;
7
8 use lib 't/lib';
9 use VPIT::TestHelpers;
10
11 load_or_skip_all('B::Deparse', undef, [ ]);
12
13 plan tests => 2;
14
15 my $bd = B::Deparse->new;
16
17 {
18  no autovivification qw<fetch strict>;
19
20  sub blech { my $key = $_[0]->{key} }
21 }
22
23 {
24  my $undef;
25  eval 'blech($undef)';
26  like $@, qr/Reference vivification forbidden/, 'Original blech() works';
27 }
28
29 {
30  my $code = $bd->coderef2text(\&blech);
31  my $undef;
32  eval "$code; blech(\$undef)";
33  like $@, qr/Reference vivification forbidden/, 'Deparsed blech() works';
34 }