6 use Test::More tests => 4;
14 eval 'no autovivification; use autovivification::TestRequired1; $blurp->{x}';
15 is $@, '', 'first require test doesn\'t croak prematurely';
16 is_deeply $blurp, { r1_main => { }, r1_eval => { } },
17 'first require vivified correctly';
22 eval 'no autovivification; use autovivification::TestRequired2; $blurp->{a}';
23 is $@, '', 'second require test doesn\'t croak prematurely';
25 $expect = { r1_main => { }, r1_eval => { } };
26 $expect->{r2_eval} = { } if $] < 5.009005;
27 is_deeply $blurp, $expect, 'second require test didn\'t vivify';