diff --git a/t/hex_to_bin_oo.t b/t/hex_to_bin_oo.t index 670f05a..0e14b1e 100644 --- a/t/hex_to_bin_oo.t +++ b/t/hex_to_bin_oo.t @@ -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();