POSIX: test that all subroutines are exported

1 files changed, 21 insertions, 1 deletions

diff --git a/ext/POSIX/t/export.t b/ext/POSIX/t/export.t
index 5f71b32bb7..ff852eda17 100644
--- a/ext/POSIX/t/export.t
+++ b/ext/POSIX/t/export.t
@@ -182,7 +182,7 @@ my %expect = (
     ],
 );
 
-plan (tests => 2 * keys %expect);
+plan (tests => 2 * keys(%expect) + keys(%POSIX::));
 
 while (my ($var, $expect) = each %expect) {
     my $have = *{$POSIX::{$var}}{ARRAY};
@@ -190,3 +190,23 @@ while (my ($var, $expect) = each %expect) {
 	   "Correct number of entries for \@POSIX::$var");
     is_deeply([sort @$have], $expect, "Correct entries for \@POSIX::$var");
 }
+
+my %no_export_needed = map +($_ => 1),
+    qw(AUTOLOAD bootstrap constant croak import load_imports
+       unimplemented_message usage);
+
+my %exported = map +($_ => 1),
+    (@POSIX::EXPORT, @POSIX::EXPORT_OK, map @$_, values %POSIX::EXPORT_TAGS);
+
+for my $name (sort keys %POSIX::) {
+    my $code = do { no strict 'refs'; \&{"POSIX::$name"} };
+    if (!defined &$code) {
+        pass("$name need not be exported as it does not name a subroutine");
+    }
+    elsif ($no_export_needed{$name}) {
+        pass("$name need not be exported as it is part of the internals");
+    }
+    else {
+        ok($exported{$name}, "subroutine POSIX::$name is exported somehow");
+    }
+}