Added tests for header data

This commit is contained in:
Stephen Nelson 2013-08-25 14:46:19 -07:00
parent b707790813
commit 175934de43
1 changed files with 4 additions and 0 deletions

View File

@ -25,4 +25,8 @@ my $orig_data = read_file( $orig_file, { 'binmode' => ':raw' });
eq_or_diff(join('', @data), $orig_data, 'data fork matches original');
is_deeply(\@rsrc, [], 'resource fork is empty');
is($hqx->filename(), 'eyeball.gif', 'filename is correct');
is($hqx->type(), '????', 'type is correct');
is($hqx->creator(), '????', 'creator is correct');
done_testing();