Un-TODO tests avec change #30228
Rafael Garcia-Suarez [Mon, 12 Feb 2007 15:31:56 +0000 (15:31 +0000)]
p4raw-link: @30228 on //depot/perl: ebca63ee5f1955c84450c209cba0b49a23ad2f27

p4raw-id: //depot/perl@30229

t/comp/parser.t

index 95be22d..0d2f4d6 100644 (file)
@@ -285,8 +285,6 @@ sub check ($$$) {
     my ($file, $line, $name) =  @_;
     my (undef, $got_file, $got_line) = caller;
     like ($got_file, $file, "file of $name");
-    local $TODO;
-    $TODO = "For some wrong reason PL_copline is 1" if $line == 51;
     is ($got_line, $line, "line of $name");
 }