mirror of
https://github.com/stephenenelson/convert-binhex.git
synced 2024-06-02 04:41:28 +00:00
Added tests for header data
This commit is contained in:
parent
b707790813
commit
175934de43
|
@ -25,4 +25,8 @@ my $orig_data = read_file( $orig_file, { 'binmode' => ':raw' });
|
||||||
eq_or_diff(join('', @data), $orig_data, 'data fork matches original');
|
eq_or_diff(join('', @data), $orig_data, 'data fork matches original');
|
||||||
is_deeply(\@rsrc, [], 'resource fork is empty');
|
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();
|
done_testing();
|
||||||
|
|
Loading…
Reference in New Issue
Block a user