use Test::More tests => 2;
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';