use Test::More tests => 2;
BEGIN { use_ok('App::Lastmsg') };
-my $real_strftime = \&POSIX::strftime;
-
{
no warnings 'redefine';
- *POSIX::strftime = sub {
- my ($format, @rest) = @_;
- $real_strftime->('%s', @rest)
- };
+ *App::Lastmsg::format_time = sub { shift };
}
chdir 't';
App::Lastmsg::run;
is $out, <<'EOF', 'output is correct';
-user2 user2@example.org Sat 31 Dec 2016 13:10:00 EET
-user1 user1@example.com Fri 30 Dec 2016 15:44:00 EET
+user2 user2@example.org 1483182600
+user1 user1@example.com 1483105440
user3 NOT FOUND
EOF