mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-22 14:07:55 +00:00
116 lines
4 KiB
Bash
116 lines
4 KiB
Bash
#!/bin/bash
|
|
|
|
echo "### These tests requires VirtualBox running with the following images"
|
|
echo `whoami`"@freebsd7"
|
|
|
|
VBoxManage startvm FreeBSD71 >/dev/null 2>&1
|
|
ping -c 1 freebsd7.tange.dk >/dev/null 2>&1
|
|
|
|
ssh freebsd7.tange.dk touch .parallel/will-cite
|
|
scp -q .*/src/{parallel,sem,sql,niceload,env_parallel*} freebsd7.tange.dk:bin/
|
|
|
|
. `which env_parallel.bash`
|
|
env_parallel --session
|
|
|
|
par_no_more_procs() {
|
|
echo 'bug #40136: FreeBSD: No more processes'
|
|
sem --jobs 3 --id my_id -u 'echo First started; sleep 10; echo The first finished;echo' &&
|
|
sem --jobs 3 --id my_id -u 'echo Second started; sleep 11; echo The second finished;echo' &&
|
|
sem --jobs 3 --id my_id -u 'echo Third started; sleep 12; echo The third finished;echo' &&
|
|
sem --jobs 3 --id my_id -u 'echo Fourth started; sleep 13; echo The fourth finished;echo' &&
|
|
sem --wait --id my_id
|
|
}
|
|
|
|
par_compress_pipe() {
|
|
echo 'Test --compress --pipe'
|
|
jot 1000 | parallel --compress --pipe cat | wc
|
|
|
|
echo 'bug #41613: --compress --line-buffer no newline'
|
|
perl -e 'print "It worked"'| parallel --pipe --compress --line-buffer cat
|
|
echo
|
|
}
|
|
|
|
par_sem_fg() {
|
|
echo 'bug #40135: FreeBSD: sem --fg does not finish under /bin/sh'
|
|
sem --fg 'sleep 1; echo The job finished'
|
|
}
|
|
|
|
par_round_robin() {
|
|
echo 'bug #40133: FreeBSD: --round-robin gives no output'
|
|
jot 1000000 | parallel --round-robin --pipe -kj3 cat | wc
|
|
jot 1000000 | parallel --round-robin --pipe -kj4 cat | wc
|
|
}
|
|
|
|
par_shebang() {
|
|
echo 'bug #40134: FreeBSD: --shebang not working'
|
|
(echo '#!/usr/bin/env -S parallel --shebang -rk echo'
|
|
echo It
|
|
echo worked) > shebang
|
|
chmod 755 ./shebang; ./shebang
|
|
|
|
echo 'bug #40134: FreeBSD: --shebang(-wrap) not working'
|
|
(echo '#!/usr/bin/env -S parallel --shebang-wrap /usr/bin/perl :::';
|
|
echo 'print @ARGV,"\n";') > shebang-wrap
|
|
chmod 755 ./shebang-wrap
|
|
./shebang-wrap wrap works | sort -r
|
|
|
|
echo 'bug #40134: FreeBSD: --shebang(-wrap) with options not working'
|
|
(echo '#!/usr/bin/env -S parallel --shebang-wrap -v -k -j 0 /usr/bin/perl -w :::'
|
|
echo 'print @ARGV,"\n";') > shebang-wrap-opt;
|
|
chmod 755 ./shebang-wrap-opt
|
|
./shebang-wrap-opt wrap works with options
|
|
}
|
|
|
|
par_shellshock_bug() {
|
|
bash -c 'echo bug \#43358: shellshock breaks exporting functions using --env name;
|
|
echo Non-shellshock-hardened to non-shellshock-hardened;
|
|
funky() { echo Function $1; };
|
|
export -f funky;
|
|
PARALLEL_SHELL=bash parallel --env funky -S localhost funky ::: non-shellshock-hardened'
|
|
|
|
bash -c 'echo bug \#43358: shellshock breaks exporting functions using --env name;
|
|
echo Non-shellshock-hardened to shellshock-hardened;
|
|
funky() { echo Function $1; };
|
|
export -f funky;
|
|
PARALLEL_SHELL=bash parallel --env funky -S parallel@192.168.1.72 funky ::: shellshock-hardened'
|
|
}
|
|
|
|
par_load() {
|
|
echo '### Test --load (must give 1=true)'
|
|
parallel -j0 -N0 --timeout 5 --nice 10 'bzip2 < /dev/zero >/dev/null' ::: 1 2 3 4 5 6 &
|
|
parallel --argsep ,, --joblog - -N0 parallel --load 100% echo ::: 1 ,, 1 |
|
|
parallel --colsep '\t' --header : echo '{=4 $_=$_>5=}'
|
|
}
|
|
|
|
par_env_parallel() {
|
|
echo "### env_parallel on Freebsd"
|
|
. bin/env_parallel.sh
|
|
myvar="`echo 'myvar_line 1'; echo 'myvar_line 2'`"
|
|
alias myalias='echo myalias1 "$myvar";'"`echo` echo myalias2"
|
|
env_parallel myalias ::: foo
|
|
}
|
|
|
|
# Moving the functions to FreeBSD is a bit tricky:
|
|
# We use env_parallel.bash to copy the functions to FreeBSD
|
|
|
|
. `which env_parallel.bash`
|
|
|
|
# GNU/Linux runs bash, but the FreeBSD runs (a)sh,
|
|
# (a)sh does not support 'export -f' so any function exported
|
|
# must be unset
|
|
|
|
unset run_once
|
|
unset run_test
|
|
unset TMPDIR
|
|
|
|
# As the copied environment is written in Bash dialect
|
|
# we get 'shopt'-errors and 'declare'-errors.
|
|
# We can safely ignore those.
|
|
|
|
PARALLEL_SHELL=sh env_parallel --env _ -vj9 -k --joblog /tmp/jl-`basename $0` --retries 3 \
|
|
-S freebsd7.tange.dk --tag '{} 2>&1' \
|
|
::: $(compgen -A function | grep par_ | sort) \
|
|
2> >(grep -Ev 'shopt: not found|declare: not found')
|
|
|
|
VBoxManage controlvm FreeBSD71 savestate
|