1 files changed, 62 insertions, 0 deletions
diff --git a/t/04_readmember.t b/t/04_readmember.t
new file mode 100644
index 0000000..8b204e9
--- /dev/null
+++ b/t/04_readmember.t
@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+
+use strict;
+
+BEGIN {
+    $|  = 1;
+    $^W = 1;
+}
+use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
+use Archive::Zip::MemberRead;
+
+use Test::More tests => 10;
+use t::common;
+
+use constant FILENAME => File::Spec->catfile(TESTDIR, 'member_read.zip');
+
+my ($zip, $member, $fh, @data);
+$zip = new Archive::Zip;
+isa_ok($zip, 'Archive::Zip');
+@data = ('Line 1', 'Line 2', '', 'Line 3', 'Line 4');
+
+$zip->addString(join("\n", @data), 'string.txt');
+$zip->writeToFileNamed(FILENAME);
+
+$member = $zip->memberNamed('string.txt');
+$fh     = $member->readFileHandle();
+ok($fh);
+
+my ($line, $not_ok, $ret, $buffer);
+while (defined($line = $fh->getline())) {
+    $not_ok = 1 if ($line ne $data[$fh->input_line_number() - 1]);
+}
+SKIP: {
+    if ($^O eq 'MSWin32') {
+        skip("Ignoring failing test on Win32", 1);
+    }
+    ok(!$not_ok);
+}
+
+my $member_read = Archive::Zip::MemberRead->new($zip, 'string.txt');
+$line = $member_read->getline({'preserve_line_ending' => 1});
+is($line, "Line 1\n", 'Preserve line ending');
+$line = $member_read->getline({'preserve_line_ending' => 0});
+is($line, "Line 2", 'Do not preserve line ending');
+
+$fh->rewind();
+$ret = $fh->read($buffer, length($data[0]));
+ok($ret == length($data[0]));
+ok($buffer eq $data[0]);
+$fh->close();
+
+#
+# Different usages
+#
+$fh = new Archive::Zip::MemberRead($zip, 'string.txt');
+ok($fh);
+
+$fh = new Archive::Zip::MemberRead($zip, $zip->memberNamed('string.txt'));
+ok($fh);
+
+$fh = new Archive::Zip::MemberRead($zip->memberNamed('string.txt'));
+ok($fh);