view release on metacpan or  search on metacpan

t/02-inherit.t  view on Meta::CPAN

my @sector_data = map { chr ord $_ } split //, '1234';
my $sector_data = $diskLayoutObj->sector_data(1, 1, @sector_data);
$sector_data =~ s/(.)/sprintf "\$%02x", ord $1/eg;
is($sector_data, '$31$32$33$34', 'sector_data - write physical sector data into disk image from array');
}
#########################
{
my $diskLayoutObj = D64::MyLayout->new();
my $filename = tmpnam() . '.d64';
my $saveOK = $diskLayoutObj->save_as($filename);
my $mtime_create = (stat($filename))[9];
sleep 2;
$diskLayoutObj = D64::MyLayout->new($filename);
$saveOK = $diskLayoutObj->save();
my $mtime_modify = (stat($filename))[9];
cmp_ok($mtime_create, '!=', $mtime_modify, 'save - overwrite file loaded during object instance initialization');
unlink($filename);
}
#########################