1 files changed, 17 insertions, 0 deletions
diff --git a/t/13_bug_46303.t b/t/13_bug_46303.t
new file mode 100644
index 0000000..b5a685a
--- /dev/null
+++ b/t/13_bug_46303.t
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use strict;
+
+BEGIN {
+    $|  = 1;
+    $^W = 1;
+}
+use Archive::Zip qw( :ERROR_CODES );
+use Test::More tests => 4;
+
+my $zip = Archive::Zip->new();
+isa_ok($zip, 'Archive::Zip');
+is($zip->read('t/data/perl.zip'), AZ_OK, 'Read file');
+
+is($zip->extractTree(undef, 'extracted/xTree'), AZ_OK, 'Extracted archive');
+ok(-d 'extracted/xTree/foo', 'Checked directory');