#!/usr/bin/perl
# synopsis.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 => 4;
use Algorithm::IncludeExclude;
my $ie = Algorithm::IncludeExclude->new;
# setup rules
$ie->include(); # default to include
$ie->exclude('foo');
$ie->exclude('bar');
$ie->include(qw/foo baz/);
# evaluate candidates
is($ie->evaluate(qw/foo bar/), 0);
is($ie->evaluate(qw/quux foo bar/), 1);
is($ie->evaluate(qw/foo baz quux/), 1);
is($ie->evaluate(qw/bar baz/), 0);