5 use Test::More tests => 13;
8 BEGIN { use_ok('List::Index' => 'rangematch'); }
12 ['#foo.!$' => '\#foo\.\!\$'],
13 [ -q => '(?:(?![q-z])|q)'],
14 [ -qqq => '(?:(?![q-z])|q(?![q-z])|qq(?![q-z])|qqq)'],
16 ['qqq-' => '(?:[r-z]|q[r-z]|qq[q-z])'],
18 ['qqq-xxx' => '(?:[r-w]|q[r-z]|qq[q-z]|x(?![x-z])|xx(?![x-z])|xxx)'],
19 ['qqq-x' => '(?:[r-x]|q[r-z]|qq[q-z])'],
20 ['qqq-q' => '(?:q[r-z]|qq[q-z])'],
21 [ 'q-xxx' => '(?:[q-w]|x(?![x-z])|xx(?![x-z])|xxx)'],
24 is(eval { rangematch($in) }, "(?i-xsm:^$out)", $in);