t/TEST.PL


1
2
3
4
5
6
7
8
9
10
11
12
13

#!perl

use strict;
use warnings FATAL => 'all';
use lib qw/lib/;
use Apache::TestRunPerl ();

if ($> == 0) {
	print STDERR "Skipping tests, as they must be run as an unprivileged user\n";
}
else {
	Apache::TestRunPerl->new->run(@ARGV);
}