Fix line number test for scalar attribute handlers
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 24 Feb 2009 09:21:09 +0000 (10:21 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 15 Apr 2009 12:43:56 +0000 (13:43 +0100)
Un-TODO the tests for bleadperl and above

(cherry picked from commit 7ffb7798185e72d66b671d7209f888cedcf783be)

ext/Attribute-Handlers/t/linerep.t

index b743fbb..726a724 100644 (file)
@@ -28,6 +28,7 @@ sub foo :Args(bar) {}
 my $ref;
 sub myref { $ref = shift; }
 my $b;
+#line 42
 eval "my \$bar :SArgs(grumpf); \$b = \\\$bar";
 is( $b, $ref, 'referent' );
 
@@ -41,8 +42,8 @@ sub SArgs : ATTR(SCALAR) {
     is( $data->[0],    'grumpf',       'data' );
     is( $phase,                'CHECK',        'phase' );
     TODO: {
-       local $TODO = "Doesn't work correctly";
+       local $TODO = "Doesn't work correctly" if $] < 5.011;
     is( $filename,     __FILE__,       'filename' );
-    is( $linenum,      28,             'linenum' );
+    is( $linenum,      42,             'linenum' );
     }
 }