1#!/usr/bin/perl 2# bad-regex.t 3# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org> 4use Test::More tests => 14; 5use Test::Exception; 6use Algorithm::IncludeExclude; 7 8my $ie = Algorithm::IncludeExclude->new; 9dies_ok { $ie->exclude(qr/foo/, 'bar') }; 10dies_ok { $ie->exclude(qr/foo/, qr/foo/, 'bar') }; 11dies_ok { $ie->exclude('bar', qr/foo/, 'baz') }; 12dies_ok { $ie->exclude('bar', qr/foo/, qr/bar/) }; 13dies_ok { $ie->include(qr/foo/, 'bar') }; 14dies_ok { $ie->include(qr/foo/, qr/foo/, 'bar') }; 15dies_ok { $ie->include('bar', qr/foo/, 'baz') }; 16dies_ok { $ie->include('bar', qr/foo/, qr/bar/) }; 17 18lives_ok{ $ie->include(qr/foo|bar/) }; 19lives_ok{ $ie->include('string') }; 20lives_ok{ $ie->include('string', qr/regex/) }; 21lives_ok{ $ie->exclude(qr/foo|bar/) }; 22lives_ok{ $ie->exclude('string') }; 23lives_ok{ $ie->exclude('string', qr/regex/) }; 24