6 use Test::More tests => 10;
11 use_ok( 'HTML5TV::hCalendar' );
14 my $path = shift @ARGV || 'media/hCalendar.html';
16 ok( my $hcal = HTML5TV::hCalendar->new( $path ), "new $path" );
18 ok( my $html = $hcal->as_HTML, 'as_HTML' );
21 ok( my $date = $hcal->dtstart_iso, 'dtstart_iso' );
24 foreach my $class ( qw/organiser summary url location dtstart description/ ) {
25 ok( defined( my $text = $hcal->$class ), $class );