6 use Test::More tests => 2;
9 skip 'This fails on perl 5.11.x even without using Lexical::Types' => 2
10 if "$]" >= 5.011 and "$]" < 5.012;
13 require Lexical::Types;
17 eval <<' VIVIFICATION_TEST';
18 package Lexical::Types::TestVivification;
20 my Lexical::Types::TestVivification $lexical;
25 # Force %^H repopulation with an Unicode match
31 map { $_, defined $^H{$_} ? $^H{$_} : '(undef)' }
33 is $err, '', 'vivification test code did not croak';
34 is $hints, 'a,1', 'Lexical::Types does not vivify entries in %^H';