From df284ca62f93ff88d4c63e48e99c91be1f08c052 Mon Sep 17 00:00:00 2001 From: Jan Dubois Date: Sat, 29 May 1999 10:46:22 +0200 Subject: Safeguard against unimplemented functions in pwuid.t and grent.t To: Gurusamy Sarathy Cc: perl5-porters@perl.org Message-ID: <374f8007.2016008@smtp1.ibm.net> p4raw-id: //depot/cfgperl@3505 --- t/op/grent.t | 5 +++++ t/op/pwent.t | 5 +++++ 2 files changed, 10 insertions(+) diff --git a/t/op/grent.t b/t/op/grent.t index 9b06f11a3e..c9d3797533 100755 --- a/t/op/grent.t +++ b/t/op/grent.t @@ -3,6 +3,11 @@ BEGIN { chdir 't' if -d 't'; unshift @INC, "../lib" if -d "../lib"; + eval {my @n = getgrgid 0}; + if ($@ && $@ =~ /(The \w+ function is unimplemented)/) { + print "1..0 # Skip: $1\n"; + exit 0; + } eval { require Config; import Config; }; my $reason; if ($Config{'i_grp'} ne 'define') { diff --git a/t/op/pwent.t b/t/op/pwent.t index feee6f2b90..788d2f2701 100755 --- a/t/op/pwent.t +++ b/t/op/pwent.t @@ -3,6 +3,11 @@ BEGIN { chdir 't' if -d 't'; unshift @INC, "../lib" if -d "../lib"; + eval {my @n = getpwuid 0}; + if ($@ && $@ =~ /(The \w+ function is unimplemented)/) { + print "1..0 # Skip: $1\n"; + exit 0; + } eval { require Config; import Config; }; my $reason; if ($Config{'i_pwd'} ne 'define') { -- cgit v1.2.1