#!/usr/bin/perl -w
use strict;
use File::Copy;
use File::Path;
use Labyrinth::DIUtils::GD;
use Test::More tests => 18;
eval {
my $di = Labyrinth::DIUtils::GD->new();
};
like($@,qr/no image specified/,'no file passed');
eval {
my $di = Labyrinth::DIUtils::GD->new( 'unknown.jpg' );
};
like($@,qr/no image file found/,'missing file passed');
eval {
my $example = 't/samples/testfile.jpg';
my $sample = 't/test/sample.jpg';
my $thumbnail = 't/test/thumbnail.png';
my $thumbnail2 = 't/test/thumbnail2.png';
mkdir('t/test');
copy($example,$sample);
my $di = Labyrinth::DIUtils::GD->new( $sample );
isa_ok($di,'Labyrinth::DIUtils::GD');
is($di->{image},$sample);
is($di->rotate(),undef,'no rotation');
is($di->rotate(45),undef,'unsupported rotation');
is($di->rotate(90),1,'90 degrees rotation');
is($di->rotate(180),1,'180 degrees rotation');
is($di->rotate(270),1,'270 degrees rotation');
is($di->reduce(200,200),undef,'no reduction');
is($di->reduce(200,100),1,'width reduction');
is($di->reduce(100,200),1,'height reduction');
is($di->reduce(),1,'default reduction');
is($di->thumb(),undef,'no thumbnail');
is($di->thumb($thumbnail),1,'default thumbnail');
ok(-f $thumbnail);
is($di->thumb($thumbnail2,120),1,'set thumbnail');
ok(-f $thumbnail2);
rmtree('t/test');
};
diag($@) if($@);