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

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

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)
	};
}

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
	8	my $real_strftime = \&POSIX::strftime;
	9
	10	{
	11	no warnings 'redefine';
636bd918	12	*App::Lastmsg::strftime = sub {
82af6c12 MG	13	my ($format, @rest) = @_;
	14	$real_strftime->('%s', @rest)
	15	};
	16	}
	17
	18	chdir 't';
	19	my $out = '';
	20	open my $fh, '>', \$out or die "$!";
	21	$App::Lastmsg::OUTPUT_FILEHANDLE = $fh;
	22	$0 = 'lastmsg';
	23	App::Lastmsg::run;
	24
	25	is $out, <<'EOF', 'output is correct';
636bd918 MG	26	user2 user2@example.org 1483182600
636bd918 MG	27	user1 user1@example.com 1483105440
82af6c12 MG	28	user3 NOT FOUND
82af6c12 MG	29	EOF