Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    is( $ical->day   , 16,          '  day()'   );
    is( $ical->month , 10,          '  month()' );
    is( $ical->year  , 1964,        '  year()'  );

[jens@dhcp32 jens]$ perl testmore.pl
1..8
...
ok 7 -   month()
ok 8 -   year()
# Looks like you failed 2 tests of 8.

not ok 5 -   hour()
...
#          got: '6'
#     expected: '16'