1#!/usr/bin/perl
2# basic-regex.t
3# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
4use Test::More tests => 6;
5use Algorithm::IncludeExclude;
6
7my $ie = Algorithm::IncludeExclude->new;
8
9$ie->include('foo');
10$ie->exclude('foo', qr/[.]pl$/);
11
12is($ie->evaluate(), undef);
13is($ie->evaluate('foo'), 1);
14is($ie->evaluate(qw/foo bar/), 1);
15is($ie->evaluate(qw/foo bar baz/), 1);
16is($ie->evaluate(qw/foo bar.pl/), 0);
17is($ie->evaluate(qw/foo bar baz.pl/), 0);
18