[app-lastmsg.git] / t / App-Lastmsg.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 2;
BEGIN { use_ok('App::Lastmsg') };

{
	no warnings 'redefine';
	*App::Lastmsg::format_time = sub { shift };
}

chdir 't';
my $out = '';
open my $fh, '>', \$out or die "$!";
$App::Lastmsg::OUTPUT_FILEHANDLE = $fh;
$0 = 'lastmsg';
App::Lastmsg::run;

is $out, <<'EOF', 'output is correct';
user2 user2@example.org 1483182600
user1 user1@example.com 1483105440
user3                   NOT FOUND
EOF
Commit	Line	Data
82af6c12 MG	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4
	5	use Test::More tests => 2;
	6	BEGIN { use_ok('App::Lastmsg') };
	7
82af6c12 MG	8	{
82af6c12 MG	9	no warnings 'redefine';
8d772799	10	*App::Lastmsg::format_time = sub { shift };
82af6c12 MG	11	}
	12
	13	chdir 't';
	14	my $out = '';
	15	open my $fh, '>', \$out or die "$!";
	16	$App::Lastmsg::OUTPUT_FILEHANDLE = $fh;
	17	$0 = 'lastmsg';
	18	App::Lastmsg::run;
	19
	20	is $out, <<'EOF', 'output is correct';
636bd918 MG	21	user2 user2@example.org 1483182600
636bd918 MG	22	user1 user1@example.com 1483105440
82af6c12 MG	23	user3 NOT FOUND
82af6c12 MG	24	EOF