reg_mesg.t: Add, revise test names

diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t
index 548b3d2..7487421 100644 (file)
--- a/t/re/reg_mesg.t
+++ b/t/re/reg_mesg.t
@@ -177,8 +177,8 @@ while (my ($regex, $expect) = splice @death, 0, 2) {
     warning_is(sub {
                   $_ = "x";
                   eval $regex;
-                  like($@, qr/\Q$expect/);
-              }, undef, "$regex died without any other warnings");
+                  like($@, qr/\Q$expect/, $regex);
+              }, undef, "... and died without any other warnings");
 }
 
 while (my ($regex, $expect) = splice @warning, 0, 2) {
@@ -187,7 +187,7 @@ while (my ($regex, $expect) = splice @warning, 0, 2) {
                     $_ = "x";
                     eval $regex;
                     is($@, '', "$regex did not die");
-                }, qr/\Q$expect/);
+                }, qr/\Q$expect/, "... and gave expected warning");
 }
 
 done_testing();