reg_mesg.t: Add, revise test names
authorKarl Williamson <public@khwilliamson.com>
Sun, 13 Jan 2013 18:46:27 +0000 (11:46 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sun, 13 Jan 2013 20:59:01 +0000 (13:59 -0700)
t/re/reg_mesg.t

index 548b3d2..7487421 100644 (file)
@@ -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();