#!/usr/bin/perl -wT
use strict;
use lib '.';
use Piece;

my $i = new Piece('i');
die unless ($i->width(0) == 1);
die unless ($i->height(0) == 4);
die unless ($i->width(90) == 4);
die unless ($i->height(90) == 1);
die unless ($i->width(180) == 1);
die unless ($i->height(180) == 4);
die unless ($i->width(270) == 4);
die unless ($i->height(270) == 1);

my $j = new Piece('j');
die unless ($j->width(0) == 2);
die unless ($j->height(0) == 3);
die unless ($j->width(90) == 3);
die unless ($j->height(90) == 2);
die unless ($j->width(180) == 2);
die unless ($j->height(180) == 3);
die unless ($j->width(270) == 3);
die unless ($j->height(270) == 2);

die unless ($j->cell(0,0,0) eq '.');
die unless ($j->cell(0,1,0) eq 'j');
die unless ($j->cell(0,0,1) eq '.');
die unless ($j->cell(0,1,1) eq 'j');
die unless ($j->cell(0,0,2) eq 'j');
die unless ($j->cell(0,1,2) eq 'j');

die unless ($j->cell(90,0,0) eq 'j');
die unless ($j->cell(90,1,0) eq 'j');
die unless ($j->cell(90,2,0) eq 'j');
die unless ($j->cell(90,0,1) eq '.');
die unless ($j->cell(90,1,1) eq '.');
die unless ($j->cell(90,2,1) eq 'j');

die unless ($j->cell(270,0,0) eq 'j');
die unless ($j->cell(270,1,0) eq '.');
die unless ($j->cell(270,2,0) eq '.');
die unless ($j->cell(270,0,1) eq 'j');
die unless ($j->cell(270,1,1) eq 'j');
die unless ($j->cell(270,2,1) eq 'j');

die unless ($j->cell(180,0,0) eq 'j');
die unless ($j->cell(180,1,0) eq 'j');
die unless ($j->cell(180,0,1) eq 'j');
die unless ($j->cell(180,1,1) eq '.');
die unless ($j->cell(180,0,2) eq 'j');
die unless ($j->cell(180,1,2) eq '.');