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.

diff --git a/t/op/bless.t b/t/op/bless.t
index 2f19d8d..69217fd 100644 (file)
--- 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
 {