Major rewrite

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

diff --git a/t/11-opts.t b/t/11-opts.t
new file mode 100644 (file)
index 0000000..e97ecc8
--- /dev/null
+++ b/t/11-opts.t
@@ -0,0 +1,35 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 8;
+
+use Regexp::Wildcards;
+
+my $rw = Regexp::Wildcards->new();
+
+my $wc     = 'a,b{c,d}e*f?(g)';
+my $none   = quotemeta $wc;
+my $unix   = 'a\\,b(?:c|d)e.*f.\\(g\\)';
+my $win32  = '(?:a|b\{c|d\}e.*f.\\(g\\))';
+my $jokers = 'a\\,b\\{c\\,d\\}e.*f.\\(g\\)';
+my $groups = 'a\\,b\\{c\\,d\\}e\\*f\\?(g)';
+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();
+is($rw->convert($wc), $unix,  'reset to unix');
+
+$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');
+$rw->do(add => 'jokers');
+is($rw->convert($wc), $jok_gr, 'added jokers but it already exists');
+$rw->do(rem => 'jokers');
+is($rw->convert($wc), $groups, 'removed jokers, only groups remains');
+$rw->do();
+is($rw->convert($wc), $none,   'reset do');