#!/usr/bin/perl
# overlapping-regex.t
# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
use Test::More tests => 6;
use Algorithm::IncludeExclude;
my $ie = Algorithm::IncludeExclude->new;
$ie->exclude(qr/foo/);
$ie->include(qr/bar/);
is $ie->evaluate('foo'), 0;
is $ie->evaluate('bar'), 1;
is $ie->evaluate('foobar'), undef;
is $ie->evaluate(qw/foo bar/), undef;
is $ie->evaluate(qw/bar foo/), undef;
is $ie->evaluate(qw/foo XXX XXX bar/), undef;