#!/usr/bin/perl -w
use strict;

use Test::More tests => 8;
use Date::ICal;

    my $ical = Date::ICal->new( year => 1964,
                                month => 10,
                                day => 6,
                                hour => 6,
                                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   , 16,          '  day()'   );
    is( $ical->month , 10,          '  month()' );
    is( $ical->year  , 1964,        '  year()'  );

##</code><code>##

[jens@dhcp32 jens]$ perl testmore.pl
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 (testmore.pl at line 20)
#          got: '20'
#     expected: '16'
not ok 6 -   day()
#     Failed test (testmore.pl at line 21)
#          got: '5'
#     expected: '16'
ok 7 -   month()
ok 8 -   year()
# Looks like you failed 2 tests of 8.

##</code><code>##


not ok 5 -   hour()
#     Failed test (testmore.pl at line 20)
#          got: '6'
#     expected: '16'