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