#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Output;
BEGIN { require_ok('Treex::Block::Read::BaseReader') }
my $reader = Treex::Block::Read::BaseReader->new( from => '-', file_stem => 'test' );
isa_ok( $reader, 'Treex::Block::Read::BaseReader' );
stderr_like(
    sub {
        eval { $reader->next_document() };
    },
    qr/method next_document must be overridden in/,
    'subroutine next_document has to fail'
);
cmp_ok( $reader->number_of_documents(), '==', 1, 'There should be exactly one document' );
$reader->next_filename();
is( $reader->current_filename(), '-', 'Current file is STDIN(-)' );
done_testing();