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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
#!/usr/bin/perl
use strict;
use Test::More;
use lib 't';
use Test::Utils;
use File::Spec::Functions qw( :ALL );
my %tests = (
'grepmail -f t/patterns t/mailboxes/mailarc-1.txt'
=> ['all_handy_buffer','none'],
'grepmail -f t/no_patterns t/mailboxes/mailarc-1.txt'
=> ['none','none'],
);
my %expected_errors = (
);
plan tests => scalar (keys %tests) * 2;
my %skip = SetSkip(\%tests);
foreach my $test (sort keys %tests)
{
print "Running test:\n $test\n";
SKIP:
{
skip("$skip{$test}",2) if exists $skip{$test};
TestIt($test, $tests{$test}, $expected_errors{$test});
}
}
# ---------------------------------------------------------------------------
sub TestIt
{
my $test = shift;
my ($stdout_file,$stderr_file) = @{ shift @_ };
my $error_expected = shift;
my $testname = [splitdir($0)]->[-1];
$testname =~ s#\.t##;
my $perl = perl_with_inc();
$test =~ s#\bgrepmail\s#$perl blib/script/grepmail -C $TEMPDIR/cache #g;
my $test_stdout = catfile($TEMPDIR,"${testname}_$stdout_file.stdout");
my $test_stderr = catfile($TEMPDIR,"${testname}_$stderr_file.stderr");
system "$test 1>$test_stdout 2>$test_stderr";
if (!$? && defined $error_expected)
{
ok(0,"Did not encounter an error executing the test when one was expected.\n\n");
return;
}
if ($? && !defined $error_expected)
{
ok(0, "Encountered an error executing the test when one was not expected.\n" .
"See $test_stdout and $test_stderr.\n\n");
return;
}
my $real_stdout = catfile('t','results',$stdout_file);
my $real_stderr = catfile('t','results',$stderr_file);
# Compare STDERR first on the assumption that if STDOUT is different, STDERR
# is too and contains something useful.
Do_Diff($test_stderr,$real_stderr);
Do_Diff($test_stdout,$real_stdout);
}
# ---------------------------------------------------------------------------
sub SetSkip
{
my %tests = %{ shift @_ };
my %skip;
return %skip;
}
# ---------------------------------------------------------------------------
|
