isa_ok()

We've been doing this a lot.

ok( defined $ical,            "new(ical => '$ical_str')" );
ok( $ical->isa('Date::ICal'), "  and it's the right class" );

You do this so much in OO code, there's a special function in Test::More

isa_ok( $ical, 'Date::ICal' );

works on references, too.

isa_ok( $foo, 'ARRAY' );  # is $foo an array ref?

and it has nice diagnostics.

not ok 1 - The object isa Date::ICal
#     Failed test (foo.t at line 2)
#     The object isn't a 'Date::ICal' it's a 'ARRAY'

| toc |