4 unless(grep /blib/, @INC) {
7 @INC = qw(: ::lib ::macos:lib);
14 use Test::More tests => 10;
20 BAIL_OUT("No errno's are exported") unless @Errno::EXPORT_OK;
22 my $err = $Errno::EXPORT_OK[0];
23 my $num = &{"Errno::$err"};
25 is($num, &{"Errno::$err"});
33 ok(join(",",sort keys(%!)) eq join(",",sort @Errno::EXPORT_OK));
35 eval { exists $!{[]} };
38 eval {$!{$err} = "qunckkk" };
39 like($@, qr/^ERRNO hash is read only!/);
41 eval {delete $!{$err}};
42 like($@, qr/^ERRNO hash is read only!/);
44 # The following tests are in trouble if some OS picks errno values
45 # through Acme::MetaSyntactic::batman
47 ok(! exists($!{EFLRBBB}));