parallel/testsuite/tests-to-run/parallel-local-ssh2.sh

95 lines
3.8 KiB
Bash
Raw Permalink Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#!/bin/bash
# /tmp/parallel-local-ssh2 will by default be owned by me and should be writable by *@localhost
chmod 777 "$TMPDIR" 2>/dev/null
par_obey_servers_capacity_slf_reload() {
echo "### bug #43518: GNU Parallel doesn't obey servers' jobs capacity when an ssh login file is reloaded"
# Pre-20141106 Would reset the number of jobs run on all sshlogin if --slf changed
# Thus must take at least 25 sec to run
echo -e '1/lo\n1/csh@lo\n1/tcsh@lo\n1/parallel@lo\n' > /tmp/parallel.bug43518
parallel --delay 0.1 -N0 echo 1/: '>>' /tmp/parallel.bug43518 ::: {1..100} &
seq 30 |
stdout /usr/bin/time -f %e parallel --slf /tmp/parallel.bug43518 'sleep {=$_=$_%3?0:10=}.{%}' |
perl -ne '$_ > 25 and print "OK\n"'
rm /tmp/parallel.bug43518
}
par_filter_hosts_slf() {
echo '### --filter-hosts --slf <()'
parallel --nonall --filter-hosts --slf <(echo localhost) echo OK
}
par_wd_no_such_dir() {
echo '### --wd no-such-dir - csh'
stdout parallel --wd /no-such-dir -S csh@localhost echo ::: "ERROR IF PRINTED"
echo Exit code $?
echo '### --wd no-such-dir - tcsh'
stdout parallel --wd /no-such-dir -S tcsh@localhost echo ::: "ERROR IF PRINTED"
echo Exit code $?
echo '### --wd no-such-dir - bash'
stdout parallel --wd /no-such-dir -S parallel@localhost echo ::: "ERROR IF PRINTED"
echo Exit code $?
}
par_csh_newline_var() {
echo '### bug #42725: csh with \n in variables'
not_csh() { echo This is not csh/tcsh; }
export -f not_csh
parallel --env not_csh -S csh@lo not_csh ::: 1
parallel --env not_csh -S tcsh@lo not_csh ::: 1
parallel --env not_csh -S parallel@lo not_csh ::: 1
}
par_pipepart_remote() {
echo '### bug #42999: --pipepart with remote does not work'
seq 100 > /tmp/bug42999; chmod 600 /tmp/bug42999
parallel --sshdelay 0.3 --pipepart --block 31 -a /tmp/bug42999 -k -S parallel@lo wc
parallel --sshdelay 0.2 --pipepart --block 31 -a /tmp/bug42999 -k --fifo -S parallel@lo wc |
perl -pe 's:(/tmp\S+par)\S+:${1}XXXXX:'
parallel --sshdelay 0.1 --pipepart --block 31 -a /tmp/bug42999 -k --cat -S parallel@lo wc |
perl -pe 's:(/tmp\S+par)\S+:${1}XXXXX:'
rm /tmp/bug42999
}
par_cat_incorrect_exit_csh() {
echo '### --cat gives incorrect exit value in csh'
echo false | parallel --pipe --cat -Scsh@lo 'cat {}; false' ; echo $?
echo false | parallel --pipe --cat -Stcsh@lo 'cat {}; false' ; echo $?
echo true | parallel --pipe --cat -Scsh@lo 'cat {}; true' ; echo $?
echo true | parallel --pipe --cat -Stcsh@lo 'cat {}; true' ; echo $?
}
par_cat_fifo_exit() {
echo '### --cat and --fifo exit value in bash'
echo true | parallel --pipe --fifo -Slo 'cat {}; true' ; echo $?
echo false | parallel --pipe --fifo -Slo 'cat {}; false' ; echo $?
}
par_env_parallel_fifo() {
echo '### bug #50386: --fifo does not export function, --cat does'
. `which env_parallel.bash`
myfunc() {
echo transferred non-exported func;
}
echo data from stdin |
env_parallel --timeout 10 --pipe -S lo --fifo 'cat {};myfunc'
echo data from stdin |
env_parallel --timeout 10 --pipe -S lo --cat 'cat {};myfunc'
}
par_tee_ssh() {
seq 1000000 | parallel --pipe --tee -kS lo,csh@lo,tcsh@lo --tag 'echo {};wc' ::: A B ::: {1..4}
seq 1000000 > /tmp/1000000
parallel --pipepart -a /tmp/1000000 --tee -kS lo,csh@lo,tcsh@lo --tag 'echo {};wc' ::: A B ::: {1..4}
echo "Do we get different shells?"
parallel --pipepart -a /tmp/1000000 --tee -kS lo,csh@lo,tcsh@lo 'echo $SHELL' ::: A B ::: {1..4} | sort | uniq -c | field 1 | sort -n
}
export -f $(compgen -A function | grep par_)
#compgen -A function | grep par_ | sort | parallel --delay $D -j$P --tag -k '{} 2>&1'
compgen -A function | grep par_ | sort |
parallel --joblog /tmp/jl-`basename $0` --retries 3 -j300% --tag -k '{} 2>&1' |
perl -pe "s//'/g;s//'/g"