123456789101112131415161718192021 |
- #!/usr/bin/env perl
- use Scrappy;
- use FindBin;
- use Test::More $ENV{TEST_LIVE} ?
- (tests => 12) : (skip_all => 'env var TEST_LIVE not set, live testing is not enabled');
- my $s = Scrappy->new;
- ok $s->control->allow('http://search.cpan.org/');
- ok 'HASH' eq ref $s->control->allowed->{'search.cpan.org'};
- ok $s->control->is_allowed('http://search.cpan.org/');
- ok $s->control->is_allowed('http://search.cpan.org/recent');
- ok $s->control->is_allowed('http://search.cpan.org/dist/Scrappy/lib/Scrappy.pm');
- ok ! $s->control->is_allowed('http://www.google.com/');
- ok 0 == keys %{$s->control->restricted}; # no restriction rules set
- ok $s->control->restrict('search.cpan.org');
- ok ! $s->control->is_allowed('http://search.cpan.org/');
- ok ! $s->control->is_allowed('http://search.cpan.org/recent');
- ok ! $s->control->is_allowed('http://search.cpan.org/dist/Scrappy/lib/Scrappy.pm');
- ok $s->control->is_allowed('http://www.google.com/');
|