#!/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;

my $nl;

BEGIN {

	plan(tests => 13);

	$nl = $^O eq 'MSWin32' ? "\r\n" : "\n";

}

use lib 't';

use common;

# normalize newlines for the platform we are running on

sub norm_nl($) { local $_ = shift; s/\r?\n/$nl/g; return $_; }

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 = norm_nl(<<"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(),

            norm_nl("One Line\nTwo Lines\n"),

            "Testing the first \"line\" when \$/ is set."

        );

        # TEST

        is(

            $fh->getline(),

            norm_nl("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(),

            norm_nl("One Line\nTwo Lines\n"),

            "Testing the first line when input_record_separator is set."

        );

        # TEST

        is(

            $fh->getline(),

            norm_nl("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 $/ = "

        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(), norm_nl("Line\nTwo"),

            "Testing the second \"line\" in a both set read.");

    }

}