a5eca2977adcb7482101671212b9908319279380
5 use Test
::More tests
=> 2;
6 BEGIN { use_ok
('App::Lastmsg') };
8 my $real_strftime = \
&POSIX
::strftime
;
11 no warnings
'redefine';
12 *POSIX
::strftime
= sub {
13 my ($format, @rest) = @_;
14 $real_strftime->('%s', @rest)
20 open my $fh, '>', \
$out or die "$!";
21 $App::Lastmsg
::OUTPUT_FILEHANDLE
= $fh;
25 is
$out, <<'EOF', 'output is correct';
26 user2 user2@example.org Sat 31 Dec 2016 13:10:00 EET
27 user1 user1@example.com Fri 30 Dec 2016 15:44:00 EET
This page took 0.022499 seconds and 3 git commands to generate.