#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 4;
use SWISH::3 qw( :constants );
use IO::File;
my $files_parsed = 0;
ok( my $s3 = SWISH::3->new(
handler => sub {
my $s3_data = shift;
diag( '=' x 60 );
for my $d (SWISH_DOC_FIELDS) {
diag sprintf( "%15s: %s\n", $d, $s3_data->doc->$d );
}
$files_parsed++;
}
),
"new s3 parser"
);
my $fh = IO::File->new("< t/test.stream");
ok( my $parsed = $s3->parse_fh($fh), "parse_fh()" );
is( $parsed, $files_parsed, "got expected number of parsed documents" );
# rewind file handle
$fh->seek( 0, 0 );
is( $parsed, $s3->parse($fh), "parse() detects filehandle" );