diff options
Diffstat (limited to 'dist/ExtUtils-Install/t/Install.t')
| -rw-r--r-- | dist/ExtUtils-Install/t/Install.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/dist/ExtUtils-Install/t/Install.t b/dist/ExtUtils-Install/t/Install.t index 47fcc264e0..e45e1dd362 100644 --- a/dist/ExtUtils-Install/t/Install.t +++ b/dist/ExtUtils-Install/t/Install.t @@ -226,7 +226,10 @@ SKIP: { }, ]); - ok( !-w "$bigdir/DummyHard.pm", 'DummyHard.pm not writeable' ); + SKIP: { + skip 'everywhere is writable to root', 1 if $> == 0; + ok( !-w "$bigdir/DummyHard.pm", 'DummyHard.pm not writeable' ); + } use File::Compare; ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyHard.pm"), @@ -250,7 +253,10 @@ SKIP: { }, ]); - ok( !-w "$bigdir/DummyOrig.pm", 'DummyOrig.pm not writeable' ); + SKIP: { + skip 'everywhere is writable to root', 1 if $> == 0; + ok( !-w "$bigdir/DummyOrig.pm", 'DummyOrig.pm not writeable' ); + } ok( !-l "$bigdir/Dummy.pm", 'Dummy.pm not a link' ); ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyOrig.pm"), "orig file should be different"); |