view release on metacpan or  search on metacpan

t/test.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use lib qw[ lib ../lib ];

BEGIN {
	plan tests => 21;
}

SKIP: {
	skip "Can't find images", 21
		if !-e "t/source.jpg" || !-e "t/source100x200.jpg";

	eval {
		require Image::Magick;
		require Image::Magick::Thumbnail;
	};
	
	diag $@ if $@;

	skip "This module requires Image::Magick", 21
		if $@;
	
	&img_tests;
};

sub img_tests {
	my $src = Image::Magick->new;
	isa_ok($src, 'Image::Magick');

	my $err = $src->Read('t/source.jpg');
	BAIL_OUT("Didn't get vry far: ".$err) if $err;

	unlink 't/source_thumb.jpg' if -e 't/source_thumb.jpg';

	{
		my ( $thumb, $x, $y, $r);
		($thumb,$x,$y) = Image::Magick::Thumbnail::create($src,50);
		ok($thumb, 'Got thumb') or BAIL_OUT();
		ok ( $x<=50 );
		ok ( $y<=50 );
		$thumb->Write('t/source_thumb.jpg');
		ok (-e 't/source_thumb.jpg');
		unlink 't/source_thumb.jpg' if -e 't/source_thumb.jpg';
	}

	{
		my ( $thumb, $x, $y, $r);
		$src = Image::Magick->new;
		$src->Read('t/source.jpg');
		($thumb,$x,$y) = Image::Magick::Thumbnail::create($src,'20x50');
		ok($thumb);
		ok ($x <= 20);
		ok ($y <= 50);
	}

	{
		my ( $thumb, $x, $y, $r);
		$src = Image::Magick->new;
		$src->Read('t/source100x200.jpg');
		($thumb,$x,$y) = Image::Magick::Thumbnail::create($src,'150x100');
		ok($thumb);
		ok($x <= 150);
		ok($y <= 100);
	}

	{
		my ( $thumb, $x, $y, $r);
		$src = Image::Magick->new;
		$src->Read('t/source100x200.jpg');
		($thumb,$x,$y) = Image::Magick::Thumbnail::create($src,'150x100');
		ok($thumb);
		ok($x <= 150);
		ok($y <= 100);
	}

	{
		my ( $thumb, $x, $y, $r);
		$src = Image::Magick->new;
		$src->Read('t/source100x200.jpg');
		($thumb,$x,$y) = Image::Magick::Thumbnail::create($src,'x200');
		ok($thumb);
		ok($x == 100, "y=".$x);
		ok($y == 200, "y=".$y);
	}

	{
		my ( $thumb, $x, $y, $r);
		$src = Image::Magick->new;
		$src->Read('t/source100x200.jpg');
		($thumb,$x,$y) = Image::Magick::Thumbnail::create($src,'200x');
		ok($thumb);
		ok($x == 200, "y=".$x);
		ok($y == 400, "y=".$y);
	}

	ERRS: {
		no warnings;
		my ( $thumb, $x, $y, $r);
		$src = Image::Magick->new;
		$src->Read('t/source100x200.jpg');
		eval {
			($thumb,$x,$y) = Image::Magick::Thumbnail::create($src,'-1x');
		};
		ok(!$thumb);
	}

}

=head1 TEST F<test.t>

This script tests the module is acceptable and functions as expected.

Reads and writes files, and attempts to clean its own mess.

=head1 COPYRIGT

Copyright (C) Lee Godadrd 2001-2008. all rights reserved.
Available under the same terms as Perl itself.