]>
iEval git - app-lastmsg.git/blob - t/App-Lastmsg.t
b8ad563ee4567a01f8ecae202df600e7fe30468a
5 use Test
::More tests
=> 3;
6 BEGIN { use_ok
('App::Lastmsg') };
9 no warnings
'redefine';
10 *App
::Lastmsg
::format_time
= sub { shift };
15 open my $fh, '>', \
$out or die "$!";
16 $App::Lastmsg
::OUTPUT_FILEHANDLE
= $fh;
20 is
$out, <<'EOF', 'output is correct';
21 user2 user2@example.org 1483182600
22 user1 user1@example.com 1483105440
26 $ENV{LASTMSG_DEBUG
} = 1;
29 open STDERR
, '>', \
$err or die "$!";
32 is
$err, <<'EOF', 'debug output is correct';
33 Scanning inbox (inbox)
34 Processing <mail1@example.com> from User 1 <user1@example.com> (Comment)
35 Processing <mail2@example.com> from user1@example.com
36 Processing <mail3@example.com> from user2@example.com
38 Processing <33r32r32igf432g@localhost.localdomain> sent to Random User <rando@example.com> (Very random), User 2 <user2@example.org>
This page took 0.053085 seconds and 4 git commands to generate.