From 6f80f2fde68ead297fd758a9077e77783f96196d Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 30 Oct 2013 18:05:41 -0700 Subject: [PATCH] bless.t: More explicit test Not only does this prevent us from accidentally producing the wrong error, it also makes it easy to grep and see that this error is tested. --- t/op/bless.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/op/bless.t b/t/op/bless.t index 2f19d8d..69217fd 100644 --- a/t/op/bless.t +++ b/t/op/bless.t @@ -118,7 +118,7 @@ expected(bless([]), 'main', "ARRAY"); # class is a ref $a1 = bless {}, "A4"; $b1 = eval { bless {}, $a1 }; -isnt ($@, '', "class is a ref"); +like ($@, qr/^Attempt to bless into a reference at /, "class is a ref"); # class is an overloaded ref { -- 2.7.4