#!/usr/bin/perl -w
                                                                      
+                           
    use Test::More tests => 8;
                                                                      
+                           
    use Date::ICal;
                                                                      
+                           
    $ical = Date::ICal->new( year => 1964, month => 10, day => 16,
                             hour => 16, 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,    16,       '  hour()'  );
    is( $ical->day,     17,       '  day()'   );
    is( $ical->month,   10,       '  month()' );
    is( $ical->year,    1964,     '  year()'  );
[download]

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 (testtut7.pl at line 15)
#          got: '14'
#     expected: '16'
not ok 6 -   day()
#     Failed test (testtut7.pl at line 16)
#          got: '16'
#     expected: '17'
ok 7 -   month()
ok 8 -   year()
# Looks like you failed 2 tests of 8.
[download]