libscrappy-perl/t/00_test_function_control.t

#!/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/');