[libmoox-late-perl] 07/07: explicit line numbering

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to tag 0.008
in repository libmoox-late-perl.

commit 08ea1ba13ab871b6eb8fa287bc61afec10af03ed
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Mon Mar 11 22:54:54 2013 +0000

    explicit line numbering
---
 t/03invalid_tc.t | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/t/03invalid_tc.t b/t/03invalid_tc.t
index ade9e55..ba7c4d0 100644
--- a/t/03invalid_tc.t
+++ b/t/03invalid_tc.t
@@ -24,12 +24,13 @@ use if !eval { require Test::Warn },
 use Test::Warn;
 use Test::More;
 
-{
+eval q {
+# line 1 "embedded"
 	package Foo;
 	use Moo;
 	use MooX::late;
 	has foo => (is => 'ro', isa => 'X Y Z', required => 0);
-}
+};
 
 # type constraint should not be checked, so no warning expected
 warnings_are {
@@ -39,7 +40,7 @@ warnings_are {
 # But this should warn
 warnings_like {
 	my $foo = Foo->new(foo => 1);
-} qr{Type constraint 'X Y Z' not fully enforced \(defined at .+/03invalid_tc\.t:10, package Foo\)};
+} qr{Type constraint 'X Y Z' not fully enforced \(defined at embedded:4, package Foo\)};
 
 # But we shouldn't get the same warning again. Too much noise!
 warnings_are {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoox-late-perl.git