mirror of
https://github.com/stephenenelson/convert-binhex.git
synced 2024-11-22 17:30:57 +00:00
29 lines
619 B
Perl
29 lines
619 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');
|
||
|
|
|
||
|
|
done_testing();
|