This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
disable some shallow-recurse rpeep tests
authorDavid Mitchell <davem@iabyn.com>
Fri, 29 Jul 2011 12:31:03 +0000 (13:31 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 29 Jul 2011 12:37:03 +0000 (13:37 +0100)
The long chain of ?: was always intended to fail, and shouldn't have
made it into the original commit. The while(1){..} used to work, but
started failing once the tail-recursion optimisation was removed.
These tests only failed on some platforms - presumably those with a small
per-thread stack size.

t/op/threads.t

index b159823..2991f5e 100644 (file)
@@ -355,12 +355,14 @@ EOI
        $r = $x && $y;
        $x &&= $y;
        $r = $x ? $y : $z;
        $r = $x && $y;
        $x &&= $y;
        $r = $x ? $y : $z;
-       $r = $x ? "x" : $x ? "x" : $x ? "x" : $x ? "x" : $x ? "x" : $x ? "x"
-          : $x ? "x" : $x ? "x" : $x ? "x" : $x ? "x" : $x ? "x" : "y";
        @a = map $x+1, @a;
        @a = grep $x+1, @a;
        $r = /$x/../$y/;
        @a = map $x+1, @a;
        @a = grep $x+1, @a;
        $r = /$x/../$y/;
-       while (1) { $x = 0 };
+
+       # this one will fail since we removed tail recursion optimisation
+       # with f11ca51e41e8
+       #while (1) { $x = 0 };
+
        while (0) { $x = 0 };
        for ($x=0; $y; $z=0) { $r = 0 };
        for (1) { $x = 0 };
        while (0) { $x = 0 };
        for ($x=0; $y; $z=0) { $r = 0 };
        for (1) { $x = 0 };