view release on metacpan or  search on metacpan

t/00perlrun.t  view on Meta::CPAN

use Apache::TestRequest qw(GET);
use Apache::TestUtil qw(t_cmp);


plan tests => 10, have_lwp;

# Basic request
for (1..2)
{
	my $response = GET '/test/perlrun/test.pl';
	if(!$response->is_success) {
		ok(0);
		print STDERR "Received failure code: " . $response->code . "\n";
	}
	else {
		ok(1);
	}
}

for (1..2)
{
	foreach my $url qw(/test/perlrunroot/test.pl /test/perlrun2/test2.pl)
	{
		# test configuration setup directly in httpd
		my $response = GET $url;
		if(!$response->is_success) {
			ok(0);
			print STDERR "Received failure code: " . $response->code . "\n";
		}
		else {
			ok(1);
		}
	}
}

# Test indexing
$response = GET '/test/perlrun/';
if($response->is_success) {
	ok(0);
	print STDERR "Should have received failure code, instead got: " . $response->code . "\n";
}
else {
	ok(1);
}


# Test extra_path_info
for (1..2)
{
	$response = GET '/test/perlrun/test/path.pl/JAPH';
	if(!$response->is_success) {
		ok(0);
		print STDERR "Received failure code: " . $response->code . "\n";
	}
	else {
		ok t_cmp('/JAPH', $response->content);
	}
}

# Test bad request (not found)
my $response = GET '/test/perlrun/test/not_found.pl';
if($response->is_success) {
	ok(0);
	print STDERR "Should have failed, instead received: " . $response->code . "\n";
}
else {
	if($response->code != 404) {
		ok(0);
		print STDERR "Should have gotten file not found, instead received: " . $response->code . "\n";
	}
	else {
		ok(1);
	}
}