view release on metacpan or  search on metacpan

t/synopsis2.t  view on Meta::CPAN

#!/usr/bin/perl
# synopsis2.t 
# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
# always a good idea to see if the example in the docs works
use Test::More tests => 6;
use Algorithm::IncludeExclude;

my $ie = Algorithm::IncludeExclude->new;
$ie->exclude('admin');
$ie->exclude(qr/[.]protected$/);

is $ie->evaluate(qw/admin let me in/), 0;
is $ie->evaluate(qw/a path.protected/), 0;
is $ie->evaluate(qw/foo bar/), undef;

$ie->include(qw/foo bar/);
is $ie->evaluate(qw/foo bar/), 1;

$ie->include('admin', qr/[.]ok$/);
is $ie->evaluate(qw/admin super public records.ok/), 1;

$ie->exclude('XXX', 'YYY');
$ie->include(qr/YYY/);

is $ie->evaluate('XXX', 'YYY'), 1; # include, due to regex