X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-opts.t;h=b2d510c4a1e8b265628f658be71e27b08e63bb94;hb=HEAD;hp=e97ecc8b019a7027d2d381ecd007e92f7e089923;hpb=fbd767d1d92b735a6509e57ccfbd73b45845081e;p=perl%2Fmodules%2FRegexp-Wildcards.git

diff --git a/t/11-opts.t b/t/11-opts.t
index e97ecc8..b2d510c 100644
--- a/t/11-opts.t
+++ b/t/11-opts.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More tests => 10;
 
 use Regexp::Wildcards;
 
@@ -20,10 +20,14 @@ my $jok_gr = 'a\\,b\\{c\\,d\\}e.*f.(g)';
 is($rw->convert($wc), $unix,  'nothing defaults to unix');
 $rw->type('win32');
 is($rw->convert($wc), $win32, 'set to win32');
+$rw->type('darwin');
+is($rw->convert($wc), $unix,  'set to darwin');
+$rw->type('MSWin32');
+is($rw->convert($wc), $win32, 'reset to win32');
 $rw->type();
 is($rw->convert($wc), $unix,  'reset to unix');
 
-$rw = Regexp::Wildcards->new(do => [ qw/jokers/ ], type => 'win32');
+$rw = Regexp::Wildcards->new(do => [ qw<jokers> ], type => 'win32');
 is($rw->convert($wc), $jokers, 'do overrides type in new');
 $rw->do(add => 'groups');
 is($rw->convert($wc), $jok_gr, 'added groups to jokers');