gergely/taskwarrior-2.x
1
0
Fork 0
Code Issues Actions Packages Projects Releases 1 Wiki Activity

Portability

Browse Source 
- Use Time::Local (in Perl core) instead of Date::Parse

Signed-off-by: Paul Beckingham <paul@beckingham.net>
This commit is contained in:
Pietro Cerutti
2012-08-28 17:27:13 +02:00
committed by Paul Beckingham
parent e4e58e6571
commit b0af5f1496
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
test/bug.before.t
View File

@@ -28,7 +28,7 @@
use strict; use strict;
use warnings; use warnings;
use Date::Parse; use Time::Local;
use Test::More tests => 17; use Test::More tests => 17;
# Create the rc file. # Create the rc file.
@@ -44,8 +44,8 @@ if (open my $fh, '>', 'before.rc')
# Create some example data directly. # Create some example data directly.
if (open my $fh, '>', 'pending.data') if (open my $fh, '>', 'pending.data')
{ {
my $timeA = str2time("2008-12-22 12:00:00"); my $timeA = timegm (00,00,12,22,11,2008);
my $timeB = str2time("2009-04-17 12:00:00"); my $timeB = timegm (00,00,12,17,03,2009);
print $fh <<EOF; print $fh <<EOF;
[description:"foo" entry:"$timeA" start:"$timeA" status:"pending" uuid:"27097693-91c2-4cbe-ba89-ddcc87e5582c"] [description:"foo" entry:"$timeA" start:"$timeA" status:"pending" uuid:"27097693-91c2-4cbe-ba89-ddcc87e5582c"]
[description:"bar" entry:"$timeB" start:"$timeB" status:"pending" uuid:"08f72d91-964c-424b-8fd5-556434648b6b"] [description:"bar" entry:"$timeB" start:"$timeB" status:"pending" uuid:"08f72d91-964c-424b-8fd5-556434648b6b"]