0
을 반환하지 않는 것은 코드입니다 :날짜 : iCal의 신비 (시간이 올바른 값 여기
$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";
여기 출력입니다 :
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.
????
실제로 5 시간 뒤이지만 지정되지 않은 경우 시간을 다시 받아야하지 않아야합니까? tz 속성을 주석 처리했습니다.) – ennuikiller
1964 년 10 월 16 일 기준으로 UTC보다 4 시간 늦습니까? – mob
좋은 질문입니다. 사실 제가 그렇다고 생각합니다 ...... – ennuikiller