]>
iEval git - app-lastmsg.git/blob - t/App-Lastmsg.t
5 use Test
::More tests
=> 2;
6 BEGIN { use_ok
('App::Lastmsg') };
8 my $real_strftime = \
&POSIX
::strftime
;
11 no warnings
'redefine';
12 *App
::Lastmsg
::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 1483182600
27 user1 user1@example.com 1483105440
This page took 0.047229 seconds and 4 git commands to generate.