1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#!perl
use strict;
use warnings;
use Test::More tests => 12;
use lib 't/lib';
{
my @w;
my $x;
my $res = eval {
local $SIG{__WARN__} = sub { push @w, join '', 'warn:', @_ };
no autovivification qw/warn fetch/;
$x->{a};
};
is @w, 1, 'warned only once';
like $w[0], qr/^warn:Reference was vivified at \Q$0\E line ${\(__LINE__-3)}/,
'warning looks correct';
is_deeply $x, undef, 'didn\'t vivified';
is $res, undef, 'returned undef';
}
our $blurp;
{
local $blurp;
eval 'no autovivification; use autovivification::TestRequired1; $blurp->{x}';
is $@, '', 'first require test doesn\'t croak prematurely';
is_deeply $blurp, { r1_main => { }, r1_eval => { } },
'first require vivified correctly';
}
{
local $blurp;
eval 'no autovivification; use autovivification::TestRequired2; $blurp->{a}';
is $@, '', 'second require test doesn\'t croak prematurely';
my $expect;
$expect = { r1_main => { }, r1_eval => { } };
$expect->{r2_eval} = { } if $] < 5.009005;
is_deeply $blurp, $expect, 'second require test didn\'t vivify';
}
# This test may not fail for the old version when ran in taint mode
{
my $err = eval <<' SNIP';
use autovivification::TestRequired4::a0;
autovivification::TestRequired4::a0::error();
SNIP
is $err, '', 'RT #50570';
}
# This test must be in the topmost scope
BEGIN { eval 'use autovivification::TestRequired5::a0' }
my $err = autovivification::TestRequired5::a0::error();
is $err, '', 'identifying requires by their eval context pointer is not enough';
{
local $blurp;
no autovivification;
use autovivification::TestRequired6;
autovivification::TestRequired6::bar();
is_deeply $blurp, { }, 'vivified without eval';
$blurp = undef;
autovivification::TestRequired6::baz();
is_deeply $blurp, { }, 'vivified with eval';
}
|
