t/11-opts.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 10;
   7
   8 use Regexp::Wildcards;
   9
  10 my $rw = Regexp::Wildcards->new();
  11
  12 my $wc     = 'a,b{c,d}e*f?(g)';
  13 my $none   = quotemeta $wc;
  14 my $unix   = 'a\\,b(?:c|d)e.*f.\\(g\\)';
  15 my $win32  = '(?:a|b\{c|d\}e.*f.\\(g\\))';
  16 my $jokers = 'a\\,b\\{c\\,d\\}e.*f.\\(g\\)';
  17 my $groups = 'a\\,b\\{c\\,d\\}e\\*f\\?(g)';
  18 my $jok_gr = 'a\\,b\\{c\\,d\\}e.*f.(g)';
  19
  20 is($rw->convert($wc), $unix,  'nothing defaults to unix');
  21 $rw->type('win32');
  22 is($rw->convert($wc), $win32, 'set to win32');
  23 $rw->type('darwin');
  24 is($rw->convert($wc), $unix,  'set to darwin');
  25 $rw->type('MSWin32');
  26 is($rw->convert($wc), $win32, 'reset to win32');
  27 $rw->type();
  28 is($rw->convert($wc), $unix,  'reset to unix');
  29
  30 $rw = Regexp::Wildcards->new(do => [ qw/jokers/ ], type => 'win32');
  31 is($rw->convert($wc), $jokers, 'do overrides type in new');
  32 $rw->do(add => 'groups');
  33 is($rw->convert($wc), $jok_gr, 'added groups to jokers');
  34 $rw->do(add => 'jokers');
  35 is($rw->convert($wc), $jok_gr, 'added jokers but it already exists');
  36 $rw->do(rem => 'jokers');
  37 is($rw->convert($wc), $groups, 'removed jokers, only groups remains');
  38 $rw->do();
  39 is($rw->convert($wc), $none,   'reset do');