1use strict;
2use Test::More 'no_plan';
3
4unlike('foo', qr/f o o/);
5
6use Regexp::DefaultFlags;
7like('foo', qr/f o o/);
8unlike('foo', qr/F O O/);
9
10use Regexp::DefaultFlags '/ix';
11like('foo', qr/f o o/);
12
13eval { Regexp::DefaultFlags->import('/yow') };
14like($@, qr/Unknown\ regular\ expression\ flag:\ yow/);
15
161;
17