view release on metacpan or  search on metacpan

t/03-entry.t  view on Meta::CPAN

my ($d64, $entryObj, $filename) = create_test_image();
my $bytes = join '', map { chr ord $_; } split //, $entryObj->get_bytes();
my $newEntryObj = D64::Disk::Dir::Entry->new($bytes);
is(ref $newEntryObj, 'D64::Disk::Dir::Entry', 'new - creating new directory entry object and initializing it');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
my $bytes = join '', map { sprintf "%02x", ord $_; } split //, $entryObj->get_bytes();
is($bytes, '82010a31a0a0a0a0a0a0a0a0a0a0a0a0a0a0a00000000000000000000100', 'get_bytes - getting 30 bytes of data describing directory entry on disk');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
my $type = $entryObj->get_type();
is($type, 'prg', 'get_type - getting the actual filetype');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
$entryObj->set_type(T_DEL);
my $type = $entryObj->get_type();
is($type, 'del', 'set_type - setting the actual filetype');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
eval { $entryObj->set_type(0xfe); };
like($@, qr/An illegal file type:/, 'set_type - detecting an attempt to set a illegal filetype');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
my $closed = $entryObj->get_closed();
cmp_ok($closed, '==', 1, 'get_closed - getting "Closed" flag');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
$entryObj->set_closed(0);
my $closed = $entryObj->get_closed();
cmp_ok($closed, '==', 0, 'set_closed - resetting "Closed" flag');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
eval { $entryObj->set_closed(2); };
like($@, qr/An illegal closed flag/, 'set_closed - detecting an attempt to pass an illegal closed flag');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
my $locked = $entryObj->get_locked();
cmp_ok($locked, '==', 0, 'get_locked - getting "Locked" flag');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
my $track = $entryObj->get_track();
like($track, qr/^\d+$/, 'get_track - getting track location of first sector of file');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
my $sector = $entryObj->get_sector();
like($sector, qr/^\d+$/, 'get_sector - getting sector location of first sector of file');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
my $convert2ascii = 1;
my $name = $entryObj->get_name($convert2ascii);
is($name, '1', 'get_name - getting filename converted to ASCII string');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
my $warning_message = capture_stderr { $entryObj->get_side_track(); };
like($warning_message, qr/not a REL file/, 'get_side_track - getting first side-sector block for non-relative file');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
my $size = $entryObj->get_size();
cmp_ok($size, '==', 1, 'get_size - getting file size in sectors');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
my $fh = new IO::Scalar;
$entryObj->print_entry($fh);
my $entry_content = ${$fh->sref};
like($entry_content, qr/^1.*"1".*prg.*$/, 'print_entry - printing out directory entry details to opened handle');
free_test_image($d64, $filename);
}
#########################
{
my ($d64, $entryObj, $filename) = create_test_image();
my $entry_content = capture_stdout { $entryObj->print_entry(); };
like($entry_content, qr/^1.*"1".*prg.*$/, 'print_entry - printing out directory entry details to standard output');
free_test_image($d64, $filename);
}
#########################