6 use Test::More tests => 2;
11 require Lexical::Types;
15 eval <<' VIVIFICATION_TEST';
16 package Lexical::Types::TestVivification;
18 my Lexical::Types::TestVivification $lexical;
23 # Force %^H repopulation with an Unicode match
29 map { $_, defined $^H{$_} ? $^H{$_} : '(undef)' }
31 is $err, '', 'vivification test code did not croak';
32 is $hints, 'a,1', 'Lexical::Types does not vivify entries in %^H';