SYNOPSIS test

use Test::Simple 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" );

ok( $ical->sec   == 47,       '  sec()'   );
ok( $ical->min   == 42,       '  min()'   );
ok( $ical->hour  == 10,       '  hour()'  );
ok( $ical->day   == 16,       '  day()'   );
ok( $ical->month == 10,       '  month()' );
ok( $ical->year  == 1964,     '  year()'  );

Prev | toc | Next