15 Test::More::pass('no segfault');
27 Test::More::is( $^H{'foo'}, 'bar', 'hinthash intact' );
37 'Tied hinthash values not present in extended caller() on perls older than 5.10'
38 .', regardless of mode (PP or XS)',
40 ) if ($] < 5.010_000);
42 Test::More::is( ( (caller(0))[10] || {} )->{foo}, 'bar', 'hinthash values visible in caller' );