Use like() for better diagnostics

metacpan · Jul 30, 2014 · 25fe09d · 25fe09d
1 parent dfc9452
commit 25fe09d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/plack/mcless.t b/t/plack/mcless.t
@@ -71,6 +71,6 @@ eval {
     };
 };
 my $error = $@;
-ok $error =~ /ParseError/, 'Error ok';
+like $error, qr/ParseError/, 'Error ok';
 
 done_testing;