Blame AnyEvent-XMPP-0.51-timezone.patch
|
Allisson Azevedo |
3d12fd1 |
diff -up AnyEvent-XMPP-0.51/t/datetime.t.timezone AnyEvent-XMPP-0.51/t/datetime.t
|
|
Allisson Azevedo |
3d12fd1 |
--- AnyEvent-XMPP-0.51/t/datetime.t.timezone 2010-01-15 15:05:53.445075937 -0300
|
|
Allisson Azevedo |
3d12fd1 |
+++ AnyEvent-XMPP-0.51/t/datetime.t 2010-01-15 15:29:39.019829885 -0300
|
|
Allisson Azevedo |
3d12fd1 |
@@ -1,6 +1,6 @@
|
|
Allisson Azevedo |
3d12fd1 |
#!perl
|
|
Allisson Azevedo |
3d12fd1 |
use strict;
|
|
Allisson Azevedo |
3d12fd1 |
-use Test::More tests => 22;
|
|
Allisson Azevedo |
3d12fd1 |
+use Test::More tests => 21;
|
|
Allisson Azevedo |
3d12fd1 |
use AnyEvent::XMPP::Util qw/from_xmpp_datetime to_xmpp_datetime to_xmpp_time
|
|
Allisson Azevedo |
3d12fd1 |
xmpp_datetime_as_timestamp/;
|
|
Allisson Azevedo |
3d12fd1 |
|
|
Allisson Azevedo |
3d12fd1 |
@@ -27,9 +27,6 @@ is (1*$year, 107, "old format year");
|
|
Allisson Azevedo |
3d12fd1 |
ok ((not defined $tz) , "no tz defined");
|
|
Allisson Azevedo |
3d12fd1 |
ok ((not defined $secfrac), "no secfrac defined");
|
|
Allisson Azevedo |
3d12fd1 |
|
|
Allisson Azevedo |
3d12fd1 |
-my $ts = xmpp_datetime_as_timestamp ("20070730T18:51:40-02:10");
|
|
Allisson Azevedo |
3d12fd1 |
-is ($ts, '1185813700', "timestamp is UTC located");
|
|
Allisson Azevedo |
3d12fd1 |
-
|
|
Allisson Azevedo |
3d12fd1 |
# new format
|
|
Allisson Azevedo |
3d12fd1 |
($sec, $min, $hour, $mday, $mon, $year, $tz, $secfrac)
|
|
Allisson Azevedo |
3d12fd1 |
= from_xmpp_datetime ("03:02:01.123+01:10");
|