#!perl -Tw

use strict;

use Test::More qw(no_plan);

use_ok( 'PICA::XMLParser' );
use_ok( 'PICA::Parser' );
use_ok( 'PICA::Record' );
use_ok( 'IO::File' );

my $files = "t/files";

my @xmldata = <DATA>;              # array
my $xmldata = join("", @xmldata);  # string
my $record;
sub handle_record { $record = shift; }

# Create a parser and parse string
my $parser = PICA::XMLParser->new( Record => \&handle_record );
$parser->parsedata($xmldata);
isa_ok( $record, 'PICA::Record' );
undef $record;

# Use PICA::Parser and parse string
PICA::Parser->parsedata( $xmldata, Record => \&handle_record, Format=>"xml" );
isa_ok( $record, 'PICA::Record');
undef $record;
 
# Use PICA::Parser and parse array
PICA::Parser->parsedata( \@xmldata, Record => \&handle_record, Format=>"xml" );
isa_ok( $record, 'PICA::Record');
undef $record;

my $xmlfile = "$files/record.xml";

# Use PICA::Parser and parse from xml file
PICA::Parser->parsefile( $xmlfile, Record => \&handle_record );
isa_ok( $record, 'PICA::Record');
undef $record;

# parse from IO::Handle
use IO::File;
my $fh = new IO::File("< $xmlfile");
PICA::Parser->parsefile( $fh, Record => \&handle_record, Format => "xml" );
isa_ok( $record, 'PICA::Record');

# Use PICA::Parser and parse from file handle with XML data
my $fxml;
{
  local *STDIN;
  open STDIN, $xmlfile;
  PICA::Parser->parsefile( \*STDIN, Record => \&handle_record, Format => "xml" );
  isa_ok( $record, 'PICA::Record');
  undef $record;
  close STDIN;
}

# use as function or as method
($record) = PICA::XMLParser->parsefile("$files/minimal.xml")->records();
isa_ok($record, "PICA::Record");

$parser = PICA::XMLParser->new();
($record) = $parser->parsefile("$files/minimal.xml")->records();
isa_ok($record, "PICA::Record");

# use as function or as method
($record) = PICA::XMLParser->parsedata($xmldata)->records();
isa_ok($record, "PICA::Record");

$parser = PICA::XMLParser->new();
($record) = $parser->parsedata($xmldata)->records();
isa_ok($record, "PICA::Record");


# parse from a function
open $fxml, $xmlfile;
PICA::Parser->parsedata( sub {return readline $fxml;}, 
    Record => \&handle_record,
    Format => "xml"
);
isa_ok( $record, 'PICA::Record' );
undef $record;

# check proceed mode and non-proceed mode
$parser = PICA::XMLParser->new( Proceed => 0 );
$parser->parsedata($xmldata);
$parser->parsedata($xmldata);
ok( $parser->counter == 1, "reset counter" );

$parser = PICA::XMLParser->new( Proceed => 1 );
$parser->parsedata($xmldata);
$parser->parsedata($xmldata);
ok( $parser->counter == 2, "proceed" );

# parse with collection element and namespace
($record) = PICA::Parser->parsefile("$files/graveyard.xml")->records();
is( $record->ppn, '588923168', "ppn (xml)" );

# parse a collection of records
$xmlfile = "$files/records.xml";
my @collection = PICA::Parser->parsefile($xmlfile)->records();
is( scalar @collection, 2, "parsed multiple records" );
is( "".$collection[0], "021A \$0Test 1\n");
is( "".$collection[1], "021A \$0Test 2\n");

@collection = readpicarecord($xmlfile);
is( scalar @collection, 1, "parsed the first record with readpicarecord" );
is( "".$collection[0], "021A \$0Test 1\n");

use PICA::Parser qw(parsefile);
@collection = parsefile($xmlfile)->records();
is( scalar @collection, 2, "parsed multiple records with parsefile" );
is( "".$collection[0], "021A \$0Test 1\n");
is( "".$collection[1], "021A \$0Test 2\n");

@collection = readpicarecord( $xmlfile, Limit => 99 );
is( scalar @collection, 2, "parsed multiple records with readpicarecord" );

@collection = ();
PICA::Parser->parsefile( $xmlfile, Collection => sub { @collection = @_; } );
is( scalar @collection, 2, "parsed multiple records with collection handler" );

__END__
<?xml version="1.0"?>
<record>
  <datafield tag="021A">
    <subfield code="0">Test</subfield>
  </datafield>
</record>