t/31-hints.t

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