view release on metacpan or  search on metacpan

t/simple_request.t  view on Meta::CPAN

#!/usr/bin/perl
# vim: syntax=perl

use strict;

# Check for Apache::FakeRequest, skip tests otherwise
eval "require Apache::FakeRequest;";
if ($@) {
	print "1..0 # Skip looks like Apache2, haven't updated test yet.\n";
	exit;
}

# Number of tests.
print "1..2\n";

undef $@;
eval "require Apache::GD::Graph;";
if ($@) {
	print "not ok 1\n";
} else {
	print "ok 1\n";
}

my $request = new Apache::FakeRequest (
	args => 'data1=[1,2,3,4,5]&cache=0',
);

# Redirect STDOUT to a file to examine result.
my $result_file = "/tmp/Apache::GD::Graph-test-$$";

*OLDOUT = 0; # Silence "used only once" warning...
open OLDOUT, ">&STDOUT";
open STDOUT, ">$result_file" or do {
	print STDERR "Could not redirect STDOUT to $result_file: $!\n";
	print "not ok 2\n";
	exit;
};

my $return_val = Apache::GD::Graph::handler($request);

close STDOUT;
open STDOUT, ">&OLDOUT";

if ($return_val < 0) {
	print STDERR "Handler returned unsuccessfully.\n";
	print "not ok 2\n";
	exit;
}

open RESULT, $result_file or do {
	print STDERR "Could not open $result_file: $!\n";
	print "not ok 2\n";
	exit;
};

my $line1 = scalar <RESULT>;
close RESULT;
unlink $result_file;

if ($line1 !~ /PNG/) {
	print STDERR "Result not a PNG file!\n";
	print "not ok 2\n";
	exit;
}

print "ok 2\n";

package Apache::FakeRequest;