use strict; use Test::More (tests => 17); BEGIN { use_ok("HTML::RobotsMETA"); } my $p = HTML::RobotsMETA->new(); { my $r = $p->parse_rules(<
hello, world
EOM ok($r); ok(! $r->can_follow, "Can't follow as expected"); ok(! $r->can_index, "Can't index as expected"); ok( $r->can_archive, "Can archive as expected"); } { my $r = $p->parse_rules(<
hello, world
EOM ok($r); ok( $r->can_follow, "Can follow as expected"); ok(! $r->can_index, "Can't index as expected"); ok( $r->can_archive, "Can archive as expected"); } { my $r = $p->parse_rules(<
hello, world
EOM ok($r); ok(! $r->can_follow, "Can't follow as expected"); ok(! $r->can_index, "Can't index as expected"); ok(! $r->can_archive, "Can't archive as expected"); } { my $r = $p->parse_rules(<
hello, world
EOM ok($r); ok( $r->can_follow, "Can follow as expected"); ok( $r->can_index, "Can index as expected"); ok( $r->can_archive, "Can archive as expected"); }