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 fails on perl 5.11.x even without using indirect' => 1
  10                                               if "$]" >= 5.011 and "$]" < 5.012;
  11  local %^H = (a => 1);
  12
  13  require indirect;
  14
  15  # Force %^H repopulation with an Unicode match
  16  my $x = "foo";
  17  utf8::upgrade($x);
  18  $x =~ /foo/i;
  19
  20  my $hints = join ',',
  21               map { $_, defined $^H{$_} ? $^H{$_} : '(undef)' }
  22                sort keys(%^H);
  23  is $hints, 'a,1', 'indirect does not vivify entries in %^H';
  24 }