use strict;
use Test;
BEGIN { plan tests => 1 }
use Mac::Macbinary;
my $mb = new Mac::Macbinary "t/test.mb";
ok($mb->header->name, "test.txt");
use strict;
use Test;
BEGIN { plan tests => 1 }
use Mac::Macbinary;
my $mb = new Mac::Macbinary "t/test.mb";
ok($mb->header->name, "test.txt");