]> git.vpit.fr Git - perl/modules/Regexp-Wildcards.git/blob - t/22-brackets.t
Add intermediate newlines tests
[perl/modules/Regexp-Wildcards.git] / t / 22-brackets.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 27;
7
8 use Regexp::Wildcards;
9
10 my $rw = Regexp::Wildcards->new(qw/do brackets/);
11
12 is($rw->convert('a{b\\\\,c\\\\}d', 'jokers'), 'a\\{b\\\\\\,c\\\\\\}d','jokers');
13
14 is($rw->convert('a{b\\\\,c\\\\}d', 'sql'), 'a\\{b\\\\\\,c\\\\\\}d', 'sql');
15
16 is($rw->convert('a{b\\\\,c\\\\}d', 'win32'), '(?:a\\{b\\\\|c\\\\\\}d)','win32');
17
18 is($rw->convert('{}'), '(?:)', 'empty brackets');
19 is($rw->convert('{a}'), '(?:a)', 'brackets 1');
20 is($rw->convert('{a,b}'), '(?:a|b)', 'brackets 2');
21 is($rw->convert('{a,b,c}'), '(?:a|b|c)', 'brackets 3');
22
23 is($rw->convert('a{b,c}d'), 'a(?:b|c)d',
24    '1 bracketed block');
25 is($rw->convert('a{b,c}d{e,,f}'), 'a(?:b|c)d(?:e||f)',
26    '2 bracketed blocks');
27 is($rw->convert('a{b,c}d{e,,f}{g,h,}'), 'a(?:b|c)d(?:e||f)(?:g|h|)',
28    '3 bracketed blocks');
29
30 is($rw->convert('{a{b}}'), '(?:a(?:b))',
31    '2 nested bracketed blocks 1');
32 is($rw->convert('{a,{b},c}'), '(?:a|(?:b)|c)',
33    '2 nested bracketed blocks 2');
34 is($rw->convert('{a,{b{d}e},c}'), '(?:a|(?:b(?:d)e)|c)',
35    '3 nested bracketed blocks');
36 is($rw->convert('{a,{b{d{}}e,f,,},c}'), '(?:a|(?:b(?:d(?:))e|f||)|c)',
37    '4 nested bracketed blocks');
38 is($rw->convert('{a,{b{d{}}e,f,,},c}{,g{{}h,i}}'), '(?:a|(?:b(?:d(?:))e|f||)|c)(?:|g(?:(?:)h|i))',
39    '4+3 nested bracketed blocks');
40
41 is($rw->convert('\\{\\\\}'), '\\{\\\\\\}',
42    'escaping brackets');
43 is($rw->convert('\\{a,b,c\\\\\\}'), '\\{a\\,b\\,c\\\\\\}',
44    'escaping commas 1');
45 is($rw->convert('\\{a\\\\,b\\,c}'), '\\{a\\\\\\,b\\,c\\}',
46    'escaping commas 2');
47 is($rw->convert('\\{a\\\\,b\\,c\\}'), '\\{a\\\\\\,b\\,c\\}',
48    'escaping commas 3');
49 is($rw->convert('\\{a\\\\,b\\,c\\\\}'), '\\{a\\\\\\,b\\,c\\\\\\}',
50    'escaping brackets and commas');
51
52 is($rw->convert('{a\\},b\\{,c}'), '(?:a\\}|b\\{|c)',
53    'overlapping brackets');
54 is($rw->convert('{a\\{b,c}d,e}'), '(?:a\\{b|c)d\\,e\\}',
55    'partial unbalanced catching 1');
56 is($rw->convert('{a\\{\\\\}b,c\\\\}'), '(?:a\\{\\\\)b\\,c\\\\\\}',
57    'partial unbalanced catching 2');
58 is($rw->convert('{a{b,c\\}d,e}'), '\\{a\\{b\\,c\\}d\\,e\\}',
59    'no partial unbalanced catching');
60 is($rw->convert('{a,\\{,\\},b}'), '(?:a|\\{|\\}|b)',
61    'substituting commas 1');
62 is($rw->convert('{a,\\{d,e,,\\}b,c}'), '(?:a|\\{d|e||\\}b|c)',
63    'substituting commas 2');
64 is($rw->convert('{a,\\{d,e,,\\}b,c}\\\\{f,g,h,i}'), '(?:a|\\{d|e||\\}b|c)\\\\(?:f|g|h|i)',
65    'handling the rest');