1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use TestUtils;
use File::Spec::Functions;
use SVN::Dump::Reader;
my @files = glob catfile( 't', 'dump', 'property', '*' );
plan tests => 2 * @files;
for my $f (@files) {
my $expected = file_content($f);
open my $fh, $f or do {
fail("Failed to open $f: $!") for 1 .. 2;
next;
};
my $dump = SVN::Dump::Reader->new($fh);
my $h = $dump->read_property_block();
is_same_string( $h->as_string(), $expected, "Read $f property" );
is( tell($fh), -s $f, "Read all of $f" );
}
|
