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