From 17b219d8c1c3116158f14b8005561be2de11e7c4 Mon Sep 17 00:00:00 2001 From: root Date: Sun, 25 Apr 2021 14:30:59 +0000 Subject: Skip tests if run as root Otherwise, I suspect App::Cpan will not be able to install the module without workarounds on the part of the user. --- t/SMOKE | 2 +- t/TEST.PL | 11 +++++++---- 2 files changed, 8 insertions(+), 5 deletions(-) (limited to 't') diff --git a/t/SMOKE b/t/SMOKE index ede8397..9f53a8f 100755 --- a/t/SMOKE +++ b/t/SMOKE @@ -1,6 +1,6 @@ #!/usr/local/bin/perl # WARNING: this file is generated, do not edit -# generated on Sun Apr 25 00:00:31 2021 +# generated on Sun Apr 25 14:30:31 2021 # 01: /usr/local/lib/perl5/site_perl/mach/5.32/Apache/TestConfig.pm:1003 # 02: /usr/local/lib/perl5/site_perl/mach/5.32/Apache/TestConfig.pm:1095 # 03: /usr/local/lib/perl5/site_perl/mach/5.32/Apache/TestSmoke.pm:775 diff --git a/t/TEST.PL b/t/TEST.PL index 6c1c41c..b1778b2 100644 --- a/t/TEST.PL +++ b/t/TEST.PL @@ -2,9 +2,12 @@ use strict; use warnings FATAL => 'all'; - -use lib qw(lib); - +use lib qw/lib/; use Apache::TestRunPerl (); -Apache::TestRunPerl->new->run(@ARGV); +if ($> == 0) { + print STDERR "Skipping tests, as they must be run as an unprivileged user\n"; +} +else { + Apache::TestRunPerl->new->run(@ARGV); +} -- cgit v1.2.3