4 unless(grep /blib/, @INC) {
6 @INC = '../lib' if -d '../lib';
14 print "not " unless @Errno::EXPORT_OK;
16 die unless @Errno::EXPORT_OK;
18 $err = $Errno::EXPORT_OK[0];
19 $num = &{"Errno::$err"};
21 print "not " unless &{"Errno::$err"} == $num;
25 print "not " unless $!{$err};
29 print "not " if $!{$err};
32 $s1 = join(",",sort keys(%!));
33 $s2 = join(",",sort @Errno::EXPORT_OK);
35 print "not " unless $s1 eq $s2;