parallel/testsuite/tests-to-run/parallel-local22.sh
Ole Tange 9a25177a19 eval $perlexpr as function. Added --plus. Forced --noctrlc if --controlmaster.
Added CITATION. --title for pod2html. Testsuite updates due to LinuxMint15/17 diffs.
2014-07-26 13:17:13 +02:00

65 lines
2.6 KiB
Bash
Executable file

#!/bin/bash
cat <<'EOF' | sed -e 's/;$/; /;s/$SERVER1/'$SERVER1'/;s/$SERVER2/'$SERVER2'/' | stdout parallel -vj0 -k -L1
echo '### Test of xargs -m command lines > 130k';
seq 1 60000 | parallel -m -j1 echo a{}b{}c | tee >(wc >/tmp/awc$$) >(sort | md5sum) >/tmp/a$$;
wait;
CHAR=$(cat /tmp/a$$ | wc -c);
LINES=$(cat /tmp/a$$ | wc -l);
echo "Chars per line:" $(echo "$CHAR/$LINES" | bc);
cat /tmp/awc$$;
rm /tmp/a$$ /tmp/awc$$
echo '### Test of xargs -X command lines > 130k';
seq 1 60000 | parallel -X -j1 echo a{}b{}c | tee >(wc >/tmp/bwc$$) >(sort | (sleep 1; md5sum)) >/tmp/b$$;
wait;
CHAR=$(cat /tmp/b$$ | wc -c);
LINES=$(cat /tmp/b$$ | wc -l);
echo "Chars per line:" $(echo "$CHAR/$LINES" | bc);
cat /tmp/bwc$$;
rm /tmp/b$$ /tmp/bwc$$
echo '### Test of xargs -m command lines > 130k';
seq 1 60000 | parallel -k -j1 -m echo | md5sum
echo '### This causes problems if we kill child processes';
seq 2 40 | parallel -j 0 seq 1 10 | sort | md5sum
echo '### This causes problems if we kill child processes (II)';
seq 1 40 | parallel -j 0 seq 1 10 '| parallel -j 3 echo' | sort | md5sum
echo '### Test -m';
(echo foo;echo bar) | parallel -j1 -m echo 1{}2{}3 A{}B{}C
echo '### Test -X';
(echo foo;echo bar) | parallel -j1 -X echo 1{}2{}3 A{}B{}C
echo '### Bug before 2009-08-26 causing regexp compile error or infinite loop';
echo a | parallel -qX echo "'"{}"' "
echo '### Bug before 2009-08-26 causing regexp compile error or infinite loop (II)';
echo a | parallel -qX echo "'{}'"
echo '### nice and tcsh and Bug #33995: Jobs executed with sh instead of $SHELL';
seq 1 2 | SHELL=tcsh MANPATH=. stdout parallel -k --nice 8 setenv a b\;echo \$SHELL
echo '### bug #42041: Implement $PARALLEL_JOBSLOT'
parallel -k --slotreplace // -j2 sleep 1\;echo // ::: {1..4}
parallel -k -j2 sleep 1\;echo {%} ::: {1..4}
echo '### bug #42363: --pipepart and --fifo/--cat does not work'
seq 100 > /tmp/bug42363;
parallel --pipepart --block 31 -a /tmp/bug42363 -k --fifo wc | perl -pe s:/tmp/...........pip:/tmp/XXXX: ;
parallel --pipepart --block 31 -a /tmp/bug42363 -k --cat wc | perl -pe s:/tmp/...........pip:/tmp/XXXX: ;
echo '### bug #42055: --pipe -a bigfile should not require sequential reading of bigfile'
parallel --pipepart -a /etc/passwd -L 1 should not be run
parallel --pipepart -a /etc/passwd -N 1 should not be run
parallel --pipepart -a /etc/passwd -l 1 should not be run
echo '### --tmux test - check termination'
perl -e 'map {printf "$_%o%c\n",$_,$_}1..255' | stdout parallel --tmux echo {} :::: - ::: a b | perl -pe 's/\d/0/g'
EOF