t/31-hints.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7
   8 SKIP: {
   9  skip 'This would require extensive work to be okay with perl 5.8' => 1
  10                                                                   if $] < 5.010;
  11
  12  local %^H = (a => 1);
  13
  14  require indirect;
  15
  16  # Force %^H repopulation with an Unicode match
  17  my $x = "foo";
  18  utf8::upgrade($x);
  19  $x =~ /foo/i;
  20
  21  my $hints = join ',',
  22               map { $_, defined $^H{$_} ? $^H{$_} : '(undef)' }
  23                sort keys(%^H);
  24  is $hints, 'a,1', 'indirect does not vivify entries in %^H';
  25 }