1 files changed, 139 insertions, 0 deletions
diff --git a/t/08_readmember_record_sep.t b/t/08_readmember_record_sep.t
new file mode 100644
index 0000000..5522dfd
--- /dev/null
+++ b/t/08_readmember_record_sep.t
@@ -0,0 +1,139 @@
+#!/usr/bin/perl
+
+use strict;
+
+BEGIN {
+    $|  = 1;
+    $^W = 1;
+}
+use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
+use Archive::Zip::MemberRead;
+use File::Spec;
+
+use Test::More;
+
+BEGIN {
+    if ($^O eq 'MSWin32') {
+        plan(skip_all => 'Ignoring failing tests on Win32');
+    } else {
+        plan(tests => 13);
+    }
+}
+use t::common;
+
+SCOPE: {
+    my $filename = File::Spec->catfile(TESTDIR, "member_read_xml_like1.zip");
+    my $zip = new Archive::Zip;
+
+    # TEST
+    isa_ok($zip, "Archive::Zip", "Testing that \$zip is an Archive::Zip");
+
+    my $data = <<"EOF";
+One Line
+Two Lines
+</tag>
+Three Lines
+Four Lines
+Five Lines
+</tag>
+Quant
+Bant
+</tag>
+Zapta
+EOF
+
+    $zip->addString($data, "string.txt");
+    $zip->writeToFileNamed($filename);
+
+    {
+        # Testing for normal line-based reading.
+        my $member = $zip->memberNamed("string.txt");
+        my $fh     = $member->readFileHandle();
+
+        # TEST
+        ok($fh, "Filehandle is valid");
+
+        # TEST
+        is($fh->getline(), "One Line",
+            "Testing the first line in a normal read.");
+
+        # TEST
+        is($fh->getline(), "Two Lines",
+            "Testing the second line in a normal read.");
+    }
+
+    {
+        # Testing for setting the input record separator of the Perl
+        # global variable.
+
+        local $/ = "</tag>\n";
+
+        my $member = $zip->memberNamed("string.txt");
+        my $fh     = $member->readFileHandle();
+
+        # TEST
+        ok($fh, "Filehandle is valid");
+
+        # TEST
+        is(
+            $fh->getline(),
+            "One Line\nTwo Lines\n",
+            "Testing the first \"line\" when \$/ is set."
+        );
+
+        # TEST
+        is(
+            $fh->getline(),
+            "Three Lines\nFour Lines\nFive Lines\n",
+            "Testing the second \"line\" when \$/ is set."
+        );
+    }
+
+    {
+        # Testing for setting input_record_separator in the filehandle.
+
+        my $member = $zip->memberNamed("string.txt");
+        my $fh     = $member->readFileHandle();
+
+        # TEST
+        ok($fh, "Filehandle is valid");
+
+        $fh->input_record_separator("</tag>\n");
+
+        # TEST
+        is(
+            $fh->getline(),
+            "One Line\nTwo Lines\n",
+            "Testing the first line when input_record_separator is set."
+        );
+
+        # TEST
+        is(
+            $fh->getline(),
+            "Three Lines\nFour Lines\nFive Lines\n",
+            "Testing the second line when input_record_separator is set."
+        );
+    }
+    {
+        # Test setting both input_record_separator in the filehandle
+        # and in Perl.
+
+        local $/ = "</t";
+
+        my $member = $zip->memberNamed("string.txt");
+        my $fh     = $member->readFileHandle();
+
+        # TEST
+        ok($fh, "Filehandle is valid");
+
+        $fh->input_record_separator(" ");
+
+        # TEST
+        is($fh->getline(), "One",
+            "Testing the first \"line\" in a both set read");
+
+        # TEST
+        is($fh->getline(), "Line\nTwo",
+            "Testing the second \"line\" in a both set read.");
+    }
+}