use strict;
use warnings;

use Test::More;

use GD::Simple;
use Image::Square;

plan tests => 3;

my $horizontal = GD::Simple->new(160, 90, 1);
$horizontal->bgcolor('red');
$horizontal->rectangle(10,10,150,80);

my $left = GD::Simple->new(90, 90, 1);
$left->bgcolor('red');
$left->rectangle(10,10,90,80);

my $center = GD::Simple->new(90, 90, 1);
$center->bgcolor('red');
$center->rectangle(0,10,90,80);

my $right = GD::Simple->new(90, 90, 1);
$right->bgcolor('red');
$right->rectangle(0,10,80,80);

my $square = Image::Square->new($horizontal->gd);

my $im_left = $square->square(0, 0);
cmp_ok($im_left->png, 'eq', $left->png, 'left image');

my $im_center = $square->square(0, 0.5);
cmp_ok($im_center->png(5), 'eq', $center->png(5), 'center image');

my $im_right = $square->square(0, 1);
cmp_ok($im_right->png(5), 'eq', $right->png(5), 'right image');