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
|
#!/usr/bin/perl -w
use strict;
use Test::More 0.88;
use File::Temp;
use File::Find;
$Test::Reporter::VERSION ||= 999; # dzil will set it for us on release
#--------------------------------------------------------------------------#
my $from = 'johndoe@example.net';
my $dir = File::Temp::tempdir( CLEANUP => 1 );
#--------------------------------------------------------------------------#
require_ok( 'Test::Reporter' );
my $reporter = Test::Reporter->new();
ok(ref $reporter, 'Test::Reporter');
$reporter->grade('pass');
$reporter->distribution('Mail-Freshmeat-1.20');
$reporter->distfile('ASPIERS/Mail-Freshmeat-1.20.tar.gz');
$reporter->from($from);
my $form = {
key => 123456789,
via => my $via = "Test::Reporter ${Test::Reporter::VERSION}",
from => $from,
subject => $reporter->subject(),
report => $reporter->report(),
};
$reporter->transport("File", $dir);
eval { $reporter->send };
is( $@, "", "report sent ok" );
my @reports;
find( sub {
push @reports, $_ if -f;
}, $dir );
is( scalar @reports, 1, "found a report in the directory" );
done_testing;
|
