diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-03 14:30:10 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2015-12-03 14:35:15 +0000 |
| commit | 92406f2f137932358ec1ba6db18b5f2f1328ada2 (patch) | |
| tree | 345f6e27ed395b2df785f0a2ab5ebd1f6446f3a3 /t/op/threads.t | |
| parent | a28f0da7f5d8baefef1f3868d270369755117804 (diff) | |
| download | perl-92406f2f137932358ec1ba6db18b5f2f1328ada2.tar.gz | |
threads.t: make stress test less stressy
Test 10 creates 100 threads that do 'require IO'. This can use a lot
of memory and other resources. reduce it to 10.
Diffstat (limited to 't/op/threads.t')
| -rw-r--r-- | t/op/threads.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/threads.t b/t/op/threads.t index e76c9568c7..123ad27e3a 100644 --- a/t/op/threads.t +++ b/t/op/threads.t @@ -139,7 +139,7 @@ watchdog(180, "process"); { local $SIG{__WARN__} = sub {}; # Ignore any thread creation failure warnings my @t; - for (1..100) { + for (1..10) { my $thr = threads->create( sub { require IO }); last if !defined($thr); # Probably ran out of memory push(@t, $thr); |