UnixTime now returns Coordinated Universal Time

Updated tests. Added time zone as hour offset from UTC to avoid
confusion between acronyms.
master
Dylan Lloyd 2012-05-14 00:00:19 -04:00
parent 701446ed6f
commit c9ef973474
3 changed files with 17 additions and 9 deletions

View File

@ -17,6 +17,7 @@ File::ShareDir::ProjectDistDir = 0.2.0
HTML::Entities = 3.69
Text::Unidecode = 0.04
Date::Calc = 6.3
DateTime = 0.74
Lingua::EN::Numericalize = 1.52
Locale::SubCountry = 1.50
; causing problems because not pp: HTML::Barcode::QRCode = 0.09

View File

@ -1,6 +1,7 @@
package DDG::Goodie::UnixTime;
use DDG::Goodie;
use DateTime;
zci answer_type => "time_conversion";
zci is_cached => 1;
@ -8,13 +9,22 @@ triggers startend => "unixtime", "time", "timestamp", "datetime", "epoch";
handle remainder => sub {
my $time_input = int(length ($_) >= 13 ? ($_ / 1000) : ($_ + 0));
my $time_input = 0;
eval {
$time_input = int(length ($_) >= 13 ? ($_ / 1000) : ($_ + 0));
};
if ($@) { return; }
if ($time_input >= 0){
my $my_time = localtime($time_input);
return "Unix Time Conversion: " . $my_time if $my_time;
my $my_time = DateTime->from_epoch(
epoch => $time_input,
time_zone => "UTC"
);
my $time_utc = $my_time->strftime("%a %b %m %T %Y %z");
return "Unix Time Conversion: " . $time_utc if $time_utc;
}

View File

@ -12,11 +12,8 @@ ddg_goodie_test(
[qw(
DDG::Goodie::UnixTime
)],
'time 0' => test_zci('Unix Time Conversion: Wed Dec 31 19:00:00 1969'),
'time 1335233773453' => test_zci('Unix Time Conversion: Mon Apr 23 22:16:13 2012'),
'time 1335233773' => test_zci('Unix Time Conversion: Mon Apr 23 22:16:13 2012'),
'time 5325423' => test_zci('Unix Time Conversion: Tue Mar 3 10:17:03 1970'),
'time 53492399294' => test_zci('Unix Time Conversion: Sat Feb 7 18:48:14 3665')
'time 0' => test_zci('Unix Time Conversion: Thu Jan 01 00:00:00 1970 +0000'),
'time 0000000000000' => test_zci('Unix Time Conversion: Thu Jan 01 00:00:00 1970 +0000')
);
done_testing;