In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/e5351d2f75041bd3be301f77a78e9cb964606504?hp=e71d1a7de7c11abe1785e7b3a364982b294f2c8d>
- Log ----------------------------------------------------------------- commit e5351d2f75041bd3be301f77a78e9cb964606504 Author: Nicholas Clark <[email protected]> Date: Wed Oct 13 18:58:06 2010 +0100 In reg_nc_tie.t, use like() to get better diagnostics on failure. ----------------------------------------------------------------------- Summary of changes: t/re/reg_nc_tie.t | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/t/re/reg_nc_tie.t b/t/re/reg_nc_tie.t index 8af3a67..17f35bc 100644 --- a/t/re/reg_nc_tie.t +++ b/t/re/reg_nc_tie.t @@ -31,15 +31,15 @@ is($-{a}[1], "a", "FETCH"); # STORE eval { $+{a} = "yon" }; -ok(index($@, "read-only") != -1, "STORE"); +like($@, qr/read-only/, "STORE"); # DELETE eval { delete $+{a} }; -ok(index($@, "read-only") != -1, "DELETE"); +like($@, qr/read-only/, "DELETE"); # CLEAR eval { %+ = () }; -ok(index($@, "read-only") != -1, "CLEAR"); +like($@, qr/read-only/, "CLEAR"); # EXISTS ok(exists $+{e}, "EXISTS"); -- Perl5 Master Repository
