use strict;
use warnings;
use utf8;
use Test::More tests => 5;
use Test::Exception;
use Path::Class;
require( file(__FILE__)->dir->file(qw{ .. util.pl})->absolute->stringify );
BEGIN { use_ok 'Data::Petitcom::Resource::GRP' }
my $grp = new_ok 'Data::Petitcom::Resource::GRP';
isa_ok $grp, 'Data::Petitcom::Resource';
subtest 'data' => sub {
ok $grp->data( LoadData('GRP.bmp') );
dies_ok { $grp->data( LoadData('CHR.bmp') ) }, 'only 256x192 supported';
};
subtest 'save' => sub {
my $data = LoadData('GRP.bmp');
$grp->data($data);
my $ptc = $grp->save();
is_deeply [ unpack 'C*', $ptc->dump ], [ unpack 'C*', LoadData('GRP.ptc') ];
};