]> git.vpit.fr Git - perl/modules/Regexp-Wildcards.git/blob - t/02-wc2re.t
Importing Regexp-Wildcards-0.05.tar.gz
[perl/modules/Regexp-Wildcards.git] / t / 02-wc2re.t
1 #!perl -T
2
3 use Test::More tests => 10;
4
5 use Regexp::Wildcards qw/wc2re wc2re_unix wc2re_win32/;
6
7 for my $O (qw/win32 dos os2 cygwin/, 'MSWin32') {
8  for ('a{b,c}*', 'a?{b\\{,\\}c}') {
9   ok(wc2re($_, $O) eq wc2re_win32($_), $_ . ' (' . $O . ')');
10  }
11 }