Select Code to Download

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

1..8
ok 1 - new() returned something
...
ok 7 -   month()
ok 8 -   year()
# Looks like you failed 2 tests of 8.