convert-binhex/t/hex_to_bin_oo.t
2013-08-25 14:46:19 -07:00

33 lines
776 B
Perl

use strict;
use warnings;
use Test::Most;
use FindBin '$Bin';
use File::Slurp;
use autodie;
my $binhex_file = "$Bin/../testin/eyeball.gif.hqx";
my $orig_file = "$Bin/../testin/eyeball.gif";
use Convert::BinHex;
# Test hex to bin, OO interface
open( my $in_fh, $binhex_file);
my $hqx = Convert::BinHex->open( FH => $in_fh );
$hqx->read_header();
my @data = $hqx->read_data();
my @rsrc = $hqx->read_resource();
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();