This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/uni/overload.t: Skip hanging test on FreeBSD
authorDan Collins <dcollinsn@gmail.com>
Fri, 21 Oct 2016 14:13:33 +0000 (14:13 +0000)
committerKarl Williamson <khw@cpan.org>
Fri, 21 Oct 2016 21:45:19 +0000 (15:45 -0600)
This is a test that overflows the C stack though infinite
recursion. Unfortunately, FreeBSD doesn't seem to overflow the
stack as much as it overflows main memory. On my FreeBSD 12 VM,
it uses all available swap and hangs. This patch skips it only
for FreeBSD.

t/uni/overload.t

index c534ecf..301300b 100644 (file)
@@ -290,6 +290,7 @@ foreach my $value ("\243", UTF8Toggle->new("\243")) {
 
 TODO: {
     local $::TODO = 'RT #3054: Recursive operator overloading overflows the C stack';
+    todo_skip($::TODO) if $^O eq 'freebsd';
     fresh_perl_is(<<'EOP', "ok\n", {}, 'RT #3054: Recursive operator overloading should not crash the interpreter');
     use overload '""' => sub { "$_[0]" };
     print bless {}, __PACKAGE__;