1#!/usr/bin/perl
2# list-change.t
3# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
4use Test::More tests => 13;
5use Algorithm::IncludeExclude;
6
7my $ie = Algorithm::IncludeExclude->new;
8
9is($ie->evaluate(), undef);
10is($ie->evaluate(qw/foo bar baz quux qux quuuux la la la/), undef);
11
12$ie->include();
13is($ie->evaluate(), 1);
14is($ie->evaluate(qw/foo bar baz quux qux quuuux la la la/), 1);
15
16$ie->exclude('foo');
17is($ie->evaluate(), 1);
18is($ie->evaluate(qw/foo bar baz quux/), 0);
19is($ie->evaluate(qw/made up name/), 1);
20
21$ie->include('foo');
22is($ie->evaluate(), 1);
23is($ie->evaluate(qw/foo bar baz quux/), 1);
24is($ie->evaluate(qw/made up name/), 1);
25
26$ie->exclude();
27is($ie->evaluate(), 0);
28is($ie->evaluate(qw/foo bar baz quux/), 1);
29is($ie->evaluate(qw/made up name/), 0);
30