From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 7 Jan 2017 16:53:28 +0000 (+0200)
Subject: Make tests pass on systems without %s strftime specifier
X-Git-Tag: 0.002~3
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=8d77279934f4257a0ea5c7f3ac29f99f00f0d5f1;p=app-lastmsg.git

Make tests pass on systems without %s strftime specifier
---

diff --git a/lib/App/Lastmsg.pm b/lib/App/Lastmsg.pm
index a5a27b5..8d2cce5 100644
--- a/lib/App/Lastmsg.pm
+++ b/lib/App/Lastmsg.pm
@@ -18,6 +18,8 @@ our @DEFAULT_INBOX;
 push @DEFAULT_INBOX, "/var/mail/$ENV{USER}" if exists $ENV{USER};
 push @DEFAULT_INBOX, "$ENV{HOME}/Maildir"   if exists $ENV{HOME};
 
+sub format_time { strftime '%c', localtime shift }
+
 sub run {
 	my $config = Config::Auto->new(format => 'yaml')->parse;
 	die "No configuration file found\n" unless $config;
@@ -94,7 +96,7 @@ sub run {
 	my $addrlen = max map { length } values %lastaddr;
 
 	for (sort { $lastmsg{$b} <=> $lastmsg{$a} } keys %lastmsg) {
-		my $time = strftime '%c', localtime $lastmsg{$_};
+		my $time = format_time $lastmsg{$_};
 		printf $OUTPUT_FILEHANDLE "%-${idlen}s %-${addrlen}s %s\n", $_, $lastaddr{$_}, $time;
 	}
 
diff --git a/t/App-Lastmsg.t b/t/App-Lastmsg.t
index 2439d3f..a984509 100644
--- a/t/App-Lastmsg.t
+++ b/t/App-Lastmsg.t
@@ -5,14 +5,9 @@ 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)
-	};
+	*App::Lastmsg::format_time = sub { shift };
 }
 
 chdir 't';