X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=blobdiff_plain;f=t%2F02-wc2re.t;fp=t%2F02-wc2re.t;h=0d45ab7de8da394165caa893479008e11406a0ab;hp=0000000000000000000000000000000000000000;hb=6305572fe1d1790682966644ede8f267f22bd1d1;hpb=eafc1dab0ebd73e592fda42a9db18d6d4a64c96b

diff --git a/t/02-wc2re.t b/t/02-wc2re.t
new file mode 100644
index 0000000..0d45ab7
--- /dev/null
+++ b/t/02-wc2re.t
@@ -0,0 +1,11 @@
+#!perl -T
+
+use Test::More tests => 10;
+
+use Regexp::Wildcards qw/wc2re wc2re_unix wc2re_win32/;
+
+for my $O (qw/win32 dos os2 cygwin/, 'MSWin32') {
+ for ('a{b,c}*', 'a?{b\\{,\\}c}') {
+  ok(wc2re($_, $O) eq wc2re_win32($_), $_ . ' (' . $O . ')');
+ }
+}