This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/for.t: RT #1085: ticket 'resolved' but test was still 'todo'
authorDan Collins <dcollinsn@gmail.com>
Sun, 3 Jul 2016 21:01:04 +0000 (17:01 -0400)
committerYves Orton <demerphq@gmail.com>
Fri, 21 Oct 2016 07:09:43 +0000 (09:09 +0200)
t/op/for.t

index 053154c..2056033 100644 (file)
@@ -548,12 +548,7 @@ for my $i (reverse (map {$_} @array, 1)) {
 }
 is ($r, '1CBA', 'Reverse for array and value via map with var');
 
-TODO: {
-    if (do {17; foreach (1, 2) { 1; } } != 17) {
-        #print "not ";
-       todo_skip("RT #1085: what should be output of perl -we 'print do { foreach (1, 2) { 1; } }'");
-     }
-}
+is do {17; foreach (1, 2) { 1; } }, '', "RT #1085: what should be output of perl -we 'print do { foreach (1, 2) { 1; } }'";
 
 TODO: {
     local $TODO = "RT #2166: foreach spuriously autovivifies";