diff options
| author | Jan Dubois <jand@activestate.com> | 1999-05-29 10:46:22 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-05-29 11:38:16 +0000 |
| commit | df284ca62f93ff88d4c63e48e99c91be1f08c052 (patch) | |
| tree | 8981182d3b0930f2bc749d4ce51afae5e3d5e9e3 | |
| parent | 465a6d9ae5ab40b1ce4df1a9bfec4f9247dd9272 (diff) | |
| download | perl-df284ca62f93ff88d4c63e48e99c91be1f08c052.tar.gz | |
Safeguard against unimplemented functions in pwuid.t and grent.t
To: Gurusamy Sarathy <gsar@activestate.com>
Cc: perl5-porters@perl.org
Message-ID: <374f8007.2016008@smtp1.ibm.net>
p4raw-id: //depot/cfgperl@3505
| -rwxr-xr-x | t/op/grent.t | 5 | ||||
| -rwxr-xr-x | t/op/pwent.t | 5 |
2 files changed, 10 insertions, 0 deletions
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') { |