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
26
27
|
use strict;
use Test::More;
use File::Spec::Functions;
use SVN::Dump::Reader;
my @files = glob catfile( 't', 'dump', 'fail', '*' );
plan tests => 2 * @files;
for my $f (@files) {
open my $fh, $f or do {
fail("Failed to open $f: $!") for 1 .. 2;
next;
};
# read the test information from the test file itself
my $func = <$fh>; # first line contains the method name
my $err = <$fh>; # second line contains the error regexp
chop for ($err, $func);
($func, my @args) = split / /, $func;
my $r = SVN::Dump::Reader->new( $fh, { check_digest => 1 } );
eval { $r->$func(@args); };
ok( $@, "$func(@{[join',',@args]}) failed for $f" );
like( $@, qr/$err/, " with the expected error ($err)" );
}
|
