]> git.vpit.fr Git - perl/modules/indirect.git/blob - t/31-hints.t
Make sure the module is loaded in the first thread first
[perl/modules/indirect.git] / 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 }