Switch to qw<>

[perl/modules/Regexp-Wildcards.git] / t / 11-opts.t

diff --git a/t/11-opts.t b/t/11-opts.t
index e97ecc8b019a7027d2d381ecd007e92f7e089923..b2d510c4a1e8b265628f658be71e27b08e63bb94 100644 (file)
--- 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');