view release on metacpan or  search on metacpan

t/01tiler.t  view on Meta::CPAN

my $testno = 1;

my @imgfiles = ('t/imgs/smallimg.png', 't/imgs/mediumimg.png', 't/imgs/bigimg.png');
#
#	if standalone, add any path prefix
@imgfiles = map "$ARGV[0]/$_", @imgfiles
	if $ARGV[0];

my @images = ();
push @images, GD::Image->newFromPng($_)
	foreach (@imgfiles);

srand(time());

sub report_result {
	my ($result, $testmsg, $okmsg, $notokmsg) = @_;

	if ($result) {

		$okmsg = '' unless $okmsg;