This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
5911b77688f39f4c89f75830c3e72fe9b9d3107c
[perl5.git] / t / comp / hints.t
1 #!./perl -w
2
3 BEGIN { print "1..7\n"; }
4 BEGIN {
5     print "not " if exists $^H{foo};
6     print "ok 1 - \$^H{foo} doesn't exist initially\n";
7 }
8 {
9     # simulate a pragma -- don't forget HINT_LOCALIZE_HH
10     BEGIN { $^H |= 0x00020000; $^H{foo} = "a"; }
11     BEGIN {
12         print "not " if $^H{foo} ne "a";
13         print "ok 2 - \$^H{foo} is now 'a'\n";
14     }
15     {
16         BEGIN { $^H |= 0x00020000; $^H{foo} = "b"; }
17         BEGIN {
18             print "not " if $^H{foo} ne "b";
19             print "ok 3 - \$^H{foo} is now 'b'\n";
20         }
21     }
22     BEGIN {
23         print "not " if $^H{foo} ne "a";
24         print "ok 4 - \$H^{foo} restored to 'a'\n";
25     }
26     CHECK {
27         print "not " if exists $^H{foo};
28         print "ok 6 - \$^H{foo} doesn't exist when compilation complete\n";
29     }
30     print "not " if exists $^H{foo};
31     print "ok 7 - \$^H{foo} doesn't exist at runtime\n";
32 }
33 BEGIN {
34     print "not " if exists $^H{foo};
35     print "ok 5 - \$^H{foo} doesn't exist while finishing compilation\n";
36 }