"ok 2" isn't terribly descriptive.
Each test can be given a little description.
ok( defined $ical, 'new() returned something' );
ok( $ical->isa('Date::ICal'), " and it's the right class" );
which outputs
1..2
ok 1 - new() returned something
ok 2 - and it's the right class