Date :: mystère ICal (heure ne retourne pas la valeur correcte

Question

Voici le code:

$ical = Date::ICal->new(year => 1964, month => 10, day => 16, 
          hour => 20, min => 12, sec => 47, 
          #tz => '0530' 
         ); 

ok(defined $ical,   'new() returned something'); 
ok($ical->isa('Date::ICal'), " and it's the right class"); 

is($ical->sec,  47,  ' sec()' ); 
is($ical->min,  12,  ' min()' );  
is($ical->hour, 20,  ' hour()' ); 
is($ical->day,  16,  ' day()' ); 
is($ical->month, 10,  ' month()'); 
is($ical->year, 1964,  ' year()' ); 

print "hour = " . $ical->hour . "\n"; 

et est ici la sortie:

1..8 
ok 1 - new() returned something 
ok 2 - and it's the right class 
ok 3 - sec() 
ok 4 - min() 
not ok 5 - hour() 
# Failed test ' hour()' 
# at ./test_more.pl line 17. 
#   got: '0' 
#  expected: '20' 
not ok 6 - day() 
# Failed test ' day()' 
# at ./test_more.pl line 18. 
#   got: '17' 
#  expected: '16' 
ok 7 - month() 
ok 8 - year() 
hour = 0 
# Looks like you failed 2 tests of 8. 

ce qui donne ????

Answer 1

Est