make this test less reliant on exact error message
Jesse Luehrs [Sat, 4 Feb 2012 00:06:07 +0000 (18:06 -0600)]
t/metaclasses/throw_error.t

index 246754d..1b068cb 100644 (file)
@@ -74,7 +74,7 @@ with_immutable {
 {
     my $e = create_error( Bar->new );
     ok( !ref( $e->{error} ), "error is a string" );
-    like( $e->{error}, qr/line $e->{line}$/s, "croak" );
+    like( $e->{error}, qr/line $e->{line}\.?$/s, "croak" );
 }
 
 {