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

diff --git a/t/070_native_traits/202_trait_array.t b/t/070_native_traits/202_trait_array.t
index e636719..91c6163 100644 (file)
--- 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 (file)
--- 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";
 }