t/02-wc2re.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 10;
   7
   8 use Regexp::Wildcards qw/wc2re wc2re_win32/;
   9
  10 for my $O (qw/win32 dos os2 cygwin/, 'MSWin32') {
  11  for ('a{b,c}*', 'a?{b\\{,\\}c}') {
  12   ok(wc2re($_, $O) eq wc2re_win32($_), $_ . ' (' . $O . ')');
  13  }
  14 }