X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=blobdiff_plain;f=t%2F10-obj.t;h=e88ff8b21907e77567c36db949d59015f64df04d;hp=c72ed6ae41fc020d04089236dee95f98a23efbde;hb=152b316b711f68b0027cbdd3e231bb6cd3d9b9a5;hpb=faf1f9f18601b51e4a4fce5dbfb0ed9bbf24e72b

diff --git a/t/10-obj.t b/t/10-obj.t
index c72ed6a..e88ff8b 100644
--- a/t/10-obj.t
+++ b/t/10-obj.t
@@ -19,26 +19,26 @@ $rw2 = Regexp::Wildcards::new();
 ok(defined $rw2, 'RW::new called without a class works');
 is(ref $rw2, 'Regexp::Wildcards', 'RW::new called without a class is valid');
 
-eval { $rw2 = Regexp::Wildcards->new(qw/a b c/) };
+eval { $rw2 = Regexp::Wildcards->new(qw<a b c>) };
 like($@, qr/Optional\s+arguments/, 'RW::new gets parameters as key => value pairs');
 
 my $fake = { };
 bless $fake, 'Regexp::Wildcards::Hlagh';
-for (qw/do capture type convert/) {
+for (qw<do capture type convert>) {
  eval "Regexp::Wildcards::$_('Regexp::Wildcards')";
  like($@, qr/^First\s+argument/, "RW::$_ isn't a class method");
  eval "Regexp::Wildcards::$_(\$fake)";
  like($@, qr/^First\s+argument/, "RW::$_ only applies to RW objects");
 }
 
-for (qw/do capture/) {
+for (qw<do capture>) {
  eval { $rw->$_(sub { 'dongs' }) };
  like($@, qr/Wrong\s+option\s+set/, "RW::$_ don't want code references");
 
  eval { $rw->$_(\*STDERR) };
  like($@, qr/Wrong\s+option\s+set/, "RW::$_ don't want globs");
  
- eval { $rw->$_(qw/a b c/) };
+ eval { $rw->$_(qw<a b c>) };
  like($@, qr/Arguments\s+must\s+be\s+passed.*unique\s+scalar.*key\s+=>\s+value\s+pairs/, "RW::$_ gets parameters after the first as key => value pairs");
 }
 
@@ -48,6 +48,6 @@ like($@, qr/Wrong\s+type/, 'RW::type wants a type it knows');
 eval { $rw->convert(undef, 'again monkey!') };
 like($@, qr/Wrong\s+type/, 'RW::convert wants a type it knows');
 
-for (qw/convert/) {
+for (qw<convert>) {
  ok(!defined $rw->$_(undef), "RW::$_ returns undef when passed undef");
 }