X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=blobdiff_plain;f=t%2F10-obj.t;h=595825d40f3e989dba66667ce4f219f3cdea3962;hp=e88ff8b21907e77567c36db949d59015f64df04d;hb=2239e20d9c441f6bc160ba151f56173babb0d5a7;hpb=c947d535679a8dd7b95235e6c15b6308d648ee03 diff --git a/t/10-obj.t b/t/10-obj.t index e88ff8b..595825d 100644 --- a/t/10-obj.t +++ b/t/10-obj.t @@ -37,7 +37,7 @@ for (qw) { eval { $rw->$_(\*STDERR) }; like($@, qr/Wrong\s+option\s+set/, "RW::$_ don't want globs"); - + eval { $rw->$_(qw) }; 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"); }