Skip to content

Commit 0fc0919

Browse files
committed
Test sleep() with huge values actually sleeps
RT130170: #https://rt.perl.org/Ticket/Display.html?id=130170 Fix commit: rakudo/rakudo@c797d3ff5082c6738
1 parent cbc959f commit 0fc0919

File tree

1 file changed

+10
-1
lines changed

1 file changed

+10
-1
lines changed

S29-context/sleep.t

Lines changed: 10 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,11 @@
11
use v6;
2+
use lib <t/spec/packages>;
23
use Test;
4+
use Test::Util;
35

46
# L<S29/Context/"=item sleep">
57

6-
plan 22;
8+
plan 23;
79

810
my $seconds = 3;
911
my $nil is default(Nil);
@@ -79,4 +81,11 @@ my $b;
7981
isa-ok EVAL('$b={sleep(*)}'), Block, 'sleep(*) compiles';
8082
} #2
8183

84+
85+
{ # RT#130170
86+
is_run start { sleep 3; exit }; sleep 9999999999999999999; say "Fail", {
87+
:out(''), :err(''), :0status
88+
}, 'huge values to sleep() work';
89+
}
90+
8291
# vim: ft=perl6

0 commit comments

Comments
 (0)