use Test;
BEGIN { plan tests => 1 }

use Mac::AppleSingleDouble;

my $adfile = new Mac::AppleSingleDouble('./t/.AppleDouble/Perl.com_The_Source_for_Perl');
ok(!$adfile->is_applesingle());
$adfile->close();
