{
no warnings 'redefine';
- *POSIX::strftime = sub {
+ *App::Lastmsg::strftime = sub {
my ($format, @rest) = @_;
$real_strftime->('%s', @rest)
};
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