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