Importing Regexp-Wildcards-0.04.tar.gz

[perl/modules/Regexp-Wildcards.git] / t / 02-wc2re.t

diff --git a/t/02-wc2re.t b/t/02-wc2re.t
new file mode 100644 (file)
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 . ')');
+ }
+}