5 use Test
::More tests
=> 2;
6 BEGIN { use_ok
('App::Lastmsg') };
9 no warnings
'redefine';
10 *App
::Lastmsg
::format_time
= sub { shift };
15 open my $fh, '>', \
$out or die "$!";
16 $App::Lastmsg
::OUTPUT_FILEHANDLE
= $fh;
20 is
$out, <<'EOF', 'output is correct';
21 user2 user2@example.org 1483182600
22 user1 user1@example.com 1483105440
This page took 0.022247 seconds and 4 git commands to generate.