#!/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  , 12,          '  hour()'  ); #changed to 12
    is( $ical->day   , 6,           '  day()'   ); #changed to 6
    is( $ical->month , 10,          '  month()' );
    is( $ical->year  , 1964,        '  year()'  );