diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-01-09 12:50:59 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-09 13:24:03 -0800 |
commit | f09f972badf5b299d86c10b00897652752e314ed (patch) | |
tree | 73944bc0824437f5ff32ba3de0de14f18ac775c2 | |
parent | 6b349a5c4c70a7c99eeaabacafc3ea993f2c7869 (diff) | |
download | perl-f09f972badf5b299d86c10b00897652752e314ed.tar.gz |
Remove TODO functionality from assignwarn.t
-rw-r--r-- | t/op/assignwarn.t | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/t/op/assignwarn.t b/t/op/assignwarn.t index 19b8e1de2c..ac1ad77277 100644 --- a/t/op/assignwarn.t +++ b/t/op/assignwarn.t @@ -19,8 +19,6 @@ my (%should_warn, %should_not); ++$should_warn{$_} foreach qw(* / x & ** << >>); ++$should_not{$_} foreach qw(+ - . | ^ && ||); -my %todo_as_tie; - my %integer; $integer{$_} = 0 foreach qw(* / % + -); @@ -29,7 +27,7 @@ sub FETCH { ${$_[0]} } sub STORE { ${$_[0]} = $_[1] } sub test_op { - my ($tie, $int, $op_seq, $warn, $todo) = @_; + my ($tie, $int, $op_seq, $warn) = @_; my $code = "sub {\n"; $code .= "use integer;" if $int; $code .= "my \$x;\n"; @@ -38,8 +36,6 @@ sub test_op { my $sub = eval $code; is($@, '', "Can eval code for $op_seq"); - local $::TODO; - $::TODO = "[perl #17809] pp_$todo" if $todo; if ($warn) { warning_like($sub, qr/^Use of uninitialized value/, "$op_seq$tie$int warns"); @@ -55,13 +51,13 @@ for my $tie ("", ", tied") { } foreach (keys %should_warn, keys %should_not) { - test_op($tie, '', "\$x $_= 1", $should_warn{$_}, $tie && $todo_as_tie{$_}); + test_op($tie, '', "\$x $_= 1", $should_warn{$_}); next unless exists $integer{$_}; - test_op($tie, ', int', "\$x $_= 1", $should_warn{$_}, $tie && $integer{$_}); + test_op($tie, ', int', "\$x $_= 1", $should_warn{$_}); } foreach (qw(| ^ &)) { - test_op($tie, '', "\$x $_= 'x'", $should_warn{$_}, $tie && $todo_as_tie{$_}); + test_op($tie, '', "\$x $_= 'x'", $should_warn{$_}); } } |