use strict;
use warnings;
use Test::More;
use t::Utils;
use File::Spec::Functions;
use SVN::Dump::Reader;

my @files = glob catfile( 't', 'dump', 'headers', '*' );

plan tests => 3 * @files;

for my $f (@files) {
    my $expected = file_content($f);
    open my $fh, $f or do {
        fail("Failed to open $f: $!") for 1 .. 3;
        next;
    };
    my $dump = SVN::Dump::Reader->new($fh);
    my $h    = $dump->read_header_block();

    is_same_string( $h->as_string(), $expected, "Read $f headers" );
    like( $f, qr/@{[$h->type()]}/, "Correct type detected for $f" );
    is( tell($fh), -s $f, "Read all of $f" );
}