view release on metacpan or  search on metacpan

t/42_ceql_grammar.t  view on Meta::CPAN

check_query('[over,under]estimate[d,]', "wildcard_pattern",
            '"(over|under)estimate(d)?"');
check_query('part[,ed,,s]', "wildcard_pattern",
            '"part(ed|s)?"');
check_query('aa[b\*,c\+,\[[a+,b+,]\]]aa', "wildcard_pattern",
            '"aa(b\*|c\+|\[(a.+|b.+)?\])aa"');
check_query('\u\L-\L-\u\L', "wildcard_pattern",
            '"\p{Lu}\p{Ll}+-\p{Ll}+-\p{Lu}\p{Ll}+"');
check_error('ab[,]ba', "wildcard_pattern", # T10
            qr/empty list of alternatives/);
check_error('no\\\\good', "wildcard_pattern",
            qr/literal backslash/);
check_error('also_no_good\\', "wildcard_pattern",
            qr/end in a backslash/);
check_error('one,two,three', "wildcard_pattern",
            qr/alternatives.*within brackets/);
check_error('aa[cd,e[fg,h],aa', "wildcard_pattern",
            qr/bracketing.*balanced.*opening/);
check_error('aa[cd,e[fg,]h,]]aa', "wildcard_pattern",
            qr/bracketing.*balanced.*closing/);