# New Ticket Created by Christian Bartolomaeus
# Please include the string: [perl #127947]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=127947 >
This ticket is about a (skipped) test in S17-supply/Channel.t that regularely
hangs in spectests.
The hangs happen with the latest and greatest rakudo-j with OpenJDK 1.8.0_77
(running on FreeBSD 10.3)
$ perl6-j --version
This is Rakudo version 2016.04-2-g6df7ff8 built on JVM
implementing Perl 6.c.
$ java -version
openjdk version "1.8.0_77"
OpenJDK Runtime Environment (build 1.8.0_77-b03)
OpenJDK 64-Bit Server VM (build 25.77-b03, mixed mode)
A somewhat golfed example of the hanging code is:
$ perl6-j -e 'my $r = Supplier.new; my $s = $r.Supply; my $c = $s.Channel; my
$p = start { for @$c { } }; for 1..4 { $r.emit($_); };
$r.quit(X::AdHoc.new(:payload("foo"))); try await $p;'
This command runs to it's completion most of the time, but hangs from time to
time. During spectests S17-supply/Channel.t was hanging most of the time
(always?) -- before the test was skipped.
