mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-22 14:07:55 +00:00
34 lines
1.2 KiB
Bash
Executable file
34 lines
1.2 KiB
Bash
Executable file
#!/bin/bash
|
|
|
|
# SPDX-FileCopyrightText: 2021-2024 Ole Tange, http://ole.tange.dk and Free Software and Foundation, Inc.
|
|
#
|
|
# SPDX-License-Identifier: GPL-3.0-or-later
|
|
|
|
# Simple jobs that never fails
|
|
# Each should be taking 30-100s and be possible to run in parallel
|
|
# I.e.: No race conditions, no logins
|
|
|
|
par__memory_leak() {
|
|
a_run() {
|
|
seq $1 |time -v parallel true 2>&1 |
|
|
grep 'Maximum resident' |
|
|
field 6;
|
|
}
|
|
export -f a_run
|
|
echo "### Test for memory leaks"
|
|
echo "Of 300 runs of 1 job at least one should be bigger than a 3000 job run"
|
|
. env_parallel.bash
|
|
parset small_max,big ::: 'seq 300 | parallel a_run 1 | jq -s max' 'a_run 3000'
|
|
# Perl 5.38.2 has a small leak (~300KB) - not present in 5.2X.X
|
|
# TODO find out which perl version introduces this
|
|
echo "`date` [ $small_max < $big ]" >> /tmp/parallel-mem-leak.out
|
|
if [ $(($small_max+500)) -lt $big ] ; then
|
|
echo "Bad: Memleak likely. [ $small_max < $big ]"
|
|
else
|
|
echo "Good: No memleak detected."
|
|
fi
|
|
}
|
|
export -f $(compgen -A function | grep par_)
|
|
compgen -A function | G par_ "$@" | sort |
|
|
parallel --delay 0.3 --timeout 300% -j6 --lb --tag -k --joblog /tmp/jl-`basename $0` '{} 2>&1'
|