From: Jarkko Hietaniemi Date: Mon, 10 Dec 2001 01:26:53 +0000 (+0000) Subject: Root is the lizard king. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=860599f1563eb187b3ec0b74653ad9a88d0147d0;p=p5sagit%2Fp5-mst-13.2.git Root is the lizard king. p4raw-id: //depot/perl@13579 --- diff --git a/lib/Net/t/netrc.t b/lib/Net/t/netrc.t index c7bbc04..edde65a 100644 --- a/lib/Net/t/netrc.t +++ b/lib/Net/t/netrc.t @@ -58,13 +58,24 @@ SKIP: { $stat[2] = 077; ok( !defined(Net::Netrc::_readrc()), '_readrc() should not read world-writable file' ); - ok( $warn =~ /^Bad permissions/, '... and should warn about it' ); + ok( $warn =~ /^Bad permissions:/, '... and should warn about it' ); # the owner field should still not match $stat[2] = 0; - ok( !defined(Net::Netrc::_readrc()), - '_readrc() should not read file owned by someone else' ); - ok( $warn =~ /^Not owner/, '... and should warn about it' ); + + my $olduid = $>; + eval { $> = 1 }; # switch uid away from root (may not be impelemented) + + SKIP: { + skip("don't you know what absolutely power does to you?", 2) + if $> == 0; + + ok( !defined(Net::Netrc::_readrc()), + '_readrc() should not read file owned by someone else' ); + ok( $warn =~ /^Not owner:/, '... and should warn about it' ); + } + + eval { $> = $olduid }; # switch uid back (may not be implemented) } # this field must now match, to avoid the last-tested warning