4 unless(grep /blib/, @INC) {
7 @INC = qw(: ::lib ::macos:lib);
18 print "not " unless @Errno::EXPORT_OK;
20 die unless @Errno::EXPORT_OK;
22 $err = $Errno::EXPORT_OK[0];
23 $num = &{"Errno::$err"};
25 print "not " unless &{"Errno::$err"} == $num;
29 # Some systems have ESUCCESS 0, that's why exists instead of boolean.
30 print "not " unless exists $!{$err};
34 print "not " if $!{$err};
37 $s1 = join(",",sort keys(%!));
38 $s2 = join(",",sort @Errno::EXPORT_OK);
42 my @s2 = @Errno::EXPORT_OK;
48 print "# These are only in \%!\n";
49 print "# ",join(" ",map { "'$_'" } keys %s1),"\n";
50 print "# These are only in \@EXPORT_OK\n";
51 print "# ",join(" ",map { "'$_'" } keys %s2),"\n";
57 eval { exists $!{[]} };
58 print $@ ? "not ok 6\n" : "ok 6\n";