parallel/testsuite/tests-to-run/niceload03.sh

56 lines
1.9 KiB
Bash
Raw Normal View History

#!/bin/bash
2024-01-24 01:02:07 +00:00
# SPDX-FileCopyrightText: 2021-2024 Ole Tange, http://ole.tange.dk and Free Software and Foundation, Inc.
#
# SPDX-License-Identifier: GPL-3.0-or-later
# force load > 10
while uptime | grep -v age:.[1-9]\\+[0-9].[0-9][0-9] >/dev/null ; do
(timeout 5 nice perl -e 'while(1){}' 2>/dev/null &)
done
int() {
perl -pe 's/(\d+\.\d*)/int($1)/e'
}
export -f int
cat <<'EOF' | sed -e 's/;$/; /;s/$SERVER1/'$SERVER1'/;s/$SERVER2/'$SERVER2'/' | stdout parallel -vj0 -k --joblog /tmp/jl-`basename $0` -L1 -r
# The seq 30000000 should take > 1 cpu sec to run.
echo '### --soft -f and test if child is actually suspended and thus takes longer'
niceload --soft -f 0.5 'seq 30000000 | nice wc;echo This should finish last' &
(sleep 1; seq 30000000 | nice wc;echo This should finish first) &
wait
2012-12-10 20:57:00 +00:00
echo '### niceload with no arguments should give no output'
niceload
echo '### Test -t and -s'
# This should sleep at least 2*1s and run 2*2s
stdout niceload -v -t 1 -s 2 sleep 4.5 | head -n 4
echo 'bug #38908: niceload: Ctrl-C/TERM should resume jobs if using -p - Order may change, but not output'
# This should take 10 seconds to run + delay from niceload
# niceload killed after 1 sec => The delay from niceload should be no more than 1 second
stdout /usr/bin/time -f %e perl -e 'for(1..100) { select(undef, undef, undef, 0.1); } print "done\n"' | int &
niceload -vt 1 -s 10 -p $! &
export A=$!;
sleep 2;
kill -s TERM $A;
wait;
echo Finished
echo 'bug #38908: niceload: Ctrl-C should resume jobs if using -p'
# This should take 10 seconds to run + delay from niceload
# niceload killed after 1 sec => The delay from niceload should be no more than 1 second
stdout /usr/bin/time -f %e perl -e 'for(1..100) { select(undef, undef, undef, 0.1); } print "done\n"' | int &
niceload -vt 1 -s 10 -p $! &
export A=$!;
sleep 2;
kill -s INT $A;
wait
EOF
# TODO test -f + -t