view release on metacpan or  search on metacpan

t/00.t  view on Meta::CPAN

use Test::Simple 'no_plan';
use lib './lib';
use Image::Magick;
use Image::Magick::Square;

my $abs = './t/Hillary1.jpg';

my $abs1 = $abs.'.sq.jpg';



# 1
my $i = new Image::Magick;
$i->Read($abs);
ok( ! is_square($i),'is not square yet' );

ok( $i->Trim2Square, 'Trim2Square' );
ok( is_square($i),'is square now' );
$i->Write($abs1);

my $s = new Image::Magick;
$s->read($abs1);
ok( is_square($s),'saved is square');




# 2
my $i2 = new Image::Magick;
$i2->Read($abs);
ok( ! is_square($i2),'is not square yet' );

Image::Magick::Square::create($i2);
ok( is_square($i2) ,'is square now');





sub is_square {
   my $o = shift;
   my($w,$h) = $o->Get('Width','Height');
   $h and $w or die;
   return ( $w == $h ? 1 : 0 );
}