From: Dave Rolsky <autarch@urth.org>
Date: Sun, 6 Jun 2010 15:23:29 +0000 (-0500)
Subject: Make error regex for native trait tests not expect a very specific path to the test... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dba3ea3edc6614b7750753ce56d62ac5faf3e962;p=gitmo%2FMoose.git

Make error regex for native trait tests not expect a very specific path to the test file
---

diff --git a/t/070_native_traits/202_trait_array.t b/t/070_native_traits/202_trait_array.t
index e636719..91c6163 100644
--- a/t/070_native_traits/202_trait_array.t
+++ b/t/070_native_traits/202_trait_array.t
@@ -280,7 +280,7 @@ for my $test (
     my ( $meth, @args ) = ref $test ? @{$test} : $test;
 
     throws_ok { $stuff->$meth(@args) }
-    qr{^\QThe options attribute does not contain an array reference at t/070_native_traits/202_trait_array.t line \E\d+},
+    qr{^\QThe options attribute does not contain an array reference at \E.+\Q202_trait_array.t line \E\d+},
         "$meth dies with useful error";
 }
 
diff --git a/t/070_native_traits/203_trait_hash.t b/t/070_native_traits/203_trait_hash.t
index 7feff2b..c74512d 100644
--- a/t/070_native_traits/203_trait_hash.t
+++ b/t/070_native_traits/203_trait_hash.t
@@ -198,7 +198,7 @@ for my $test (
     my ( $meth, @args ) = ref $test ? @{$test} : $test;
 
     throws_ok { $stuff->$meth(@args) }
-    qr{^\QThe options attribute does not contain a hash reference at t/070_native_traits/203_trait_hash.t line \E\d+},
+    qr{^\QThe options attribute does not contain a hash reference at \E.+\Q203_trait_hash.t line \E\d+},
         "$meth dies with useful error";
 }