eval { ($fh1, $name3) = Archive::Zip::tempFile("ziptest"); };
ok($@, "Test that tempfile() failed");
is($fh1, undef, "Test correct returns from failed tempFile call" );
is($name3, undef, "Test correct returns from failed tempFile call");
ok(chmod(0700, 'ziptest'), "chmod ziptemp directory to cleanup");
is(rmdir('ziptest'), 1, "Remove ziptemp") || diag $!;
ok(! -d 'ziptest', "Was ziptest deleted?");