From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 17 Jun 2008 20:56:02 +0000 (+0000)
Subject: Dynamically bump up Test::Builder::Level in coerce_ok so it gets the correct line... 
X-Git-Tag: MooseX-Types-DateTime-0.04~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7613eb10741aa990b3db420fe799f1d99fe1ec58;hp=3ab0a1f80118ad98464c38b45c087bd00a90f741;p=gitmo%2FMooseX-Types-DateTime.git

Dynamically bump up Test::Builder::Level in coerce_ok so it gets the correct line number for the test
---

diff --git a/t/02_datetimex.t b/t/02_datetimex.t
index f8f5703..4a6549c 100755
--- a/t/02_datetimex.t
+++ b/t/02_datetimex.t
@@ -55,6 +55,7 @@ parse some dates and make sure the system can actually find something.
 
 sub coerce_ok ($;$) {
     my ( $date, $canon ) = @_;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
 
     SKIP: {
         skip "DateTimeX::Easy couldn't parse '$date'", $canon ? 2 : 1 unless DateTimeX::Easy->new($date);