use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 3;
BEGIN { use_ok('App::Lastmsg') };
-my $real_strftime = \&POSIX::strftime;
-
{
no warnings 'redefine';
- *App::Lastmsg::strftime = sub {
- my ($format, @rest) = @_;
- $real_strftime->('%s', @rest)
- };
+ *App::Lastmsg::format_time = sub { shift };
}
chdir 't';
user1 user1@example.com 1483105440
user3 NOT FOUND
EOF
+
+$ENV{LASTMSG_DEBUG} = 1;
+my $err = '';
+close STDERR;
+open STDERR, '>', \$err or die "$!";
+App::Lastmsg::run;
+
+is $err, <<'EOF', 'debug output is correct';
+Scanning inbox (inbox)
+Processing <mail1@example.com> from User 1 <user1@example.com> (Comment)
+Processing <mail2@example.com> from user1@example.com
+Processing <mail3@example.com> from user2@example.com
+Scanning sent (sent)
+Processing <33r32r32igf432g@localhost.localdomain> sent to Random User <rando@example.com> (Very random), User 2 <user2@example.org>
+EOF