X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-commas.t;fp=t%2F11-commas.t;h=0000000000000000000000000000000000000000;hb=fbd767d1d92b735a6509e57ccfbd73b45845081e;hp=9720a9d8bf0e891071384dbd77fbb00d31899010;hpb=5468cc9fedae639e785117ab38807d857c84bdec;p=perl%2Fmodules%2FRegexp-Wildcards.git diff --git a/t/11-commas.t b/t/11-commas.t deleted file mode 100644 index 9720a9d..0000000 --- a/t/11-commas.t +++ /dev/null @@ -1,22 +0,0 @@ -#!perl -T - -use strict; -use warnings; - -use Test::More tests => 8; - -use Regexp::Wildcards qw/wc2re_unix wc2re_win32/; - -ok(wc2re_unix('a,b,c') eq 'a\\,b\\,c', 'unix: commas outside of brackets 1'); -ok(wc2re_unix('a\\,b\\\\\\,c') eq 'a\\,b\\\\\\,c', - 'unix: commas outside of brackets 2'); -ok(wc2re_unix(',a,b,c\\\\,') eq '\\,a\\,b\\,c\\\\\\,', - 'unix: commas outside of brackets at begin/ed'); - -ok(wc2re_win32('a,b\\\\,c') eq '(?:a|b\\\\|c)', 'win32: commas'); -ok(wc2re_win32('a\\,b\\\\,c') eq '(?:a\\,b\\\\|c)', 'win32: escaped commas 1'); -ok(wc2re_win32('a\\,b\\\\\\,c') eq 'a\\,b\\\\\\,c', 'win32: escaped commas 2'); - -ok(wc2re_win32(',a,b\\\\,') eq '(?:|a|b\\\\|)', 'win32: commas at begin/end'); -ok(wc2re_win32('\\,a,b\\\\\\,') eq '(?:\\,a|b\\\\\\,)', - 'win32: escaped commas at begin/end');