Bumping version to 0.006019

[p5sagit/Devel-Declare.git] / t / lines.t

diff --git a/t/lines.t b/t/lines.t
index d1d701c..83f1237 100644 (file)
--- a/t/lines.t
+++ b/t/lines.t
@@ -2,12 +2,8 @@ use strict;
 use warnings;
 use Test::More;
 
-BEGIN {
-  eval 'use B::Compiling';
-
-  $@ and plan 'skip_all' => $@
-      or plan tests => 5;
-}
+use Test::Requires 'B::Compiling';
+plan tests => 5;
 
 my @lines;
 
@@ -47,9 +43,6 @@ my $line2 = __LINE__;
 #line 48
 is(@lines, 2, "2 line numbers recorded");
 is $lines[0], 100, "fun starts on line 100";
-{
-  local $TODO = "line numbers aren't quite right yet, sometimes";
-  is $lines[1], 101, "fun stops on line 101";
-  is $line, 102, "next statement on line 102";
-  is $line2, 103, "next statement on line 103";
-}
+is $lines[1], 101, "fun stops on line 101";
+is $line, 102, "next statement on line 102";
+is $line2, 103, "next statement on line 103";