15 Test::More::pass('no segfault');
27 Test::More::is( $^H{'foo'}, 'bar', 'compiletime hinthash intact after n::c' );
33 $^H{'foo'}, 'bar', 'compile-time hinthash intact in inner scope'
42 'Tied hinthash values not present in extended caller() on perls older than 5.10'
43 .', regardless of mode (PP or XS)',
45 ) if ($] < 5.010_000);
47 Test::More::is( ( (caller(0))[10] || {} )->{foo}, 'bar', 'hinthash values visible in caller' );