mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-10-18 12:59:39 +00:00
22 lines
989 B
Bash
22 lines
989 B
Bash
#!/bin/bash
|
|
|
|
echo '### Test of --retries'
|
|
seq 1 10 | stdout parallel -k --retries 2 -v -S 4.3.2.1,: echo
|
|
|
|
echo '### Test of --retries - it should run 13 jobs in total'
|
|
seq 0 12 | stdout parallel --progress -kj100% --retries 1 -S 12/nlv.pi.dk,1/:,parallel@server2 -vq \
|
|
perl -e 'sleep 1;print "job{}\n";exit({})' | \
|
|
perl -ne 'BEGIN{$/="\r";} @a=(split /\//,$_); END{print $a[1]+$a[4]+$a[7],"\n"}'
|
|
|
|
echo '### Test of --retries - it should run 25 jobs in total'
|
|
seq 0 12 | stdout parallel --progress -kj100% --retries 2 -S 12/nlv.pi.dk,1/:,parallel@server2 -vq \
|
|
perl -e 'sleep 1;print "job{}\n";exit({})' | \
|
|
perl -ne 'BEGIN{$/="\r";} @a=(split /\//,$_); END{print $a[1]+$a[4]+$a[7],"\n"}'
|
|
|
|
echo '### Test of --retries - it should run 49 jobs in total'
|
|
seq 0 12 | stdout parallel --progress -kj100% --retries 4 -S 12/nlv.pi.dk,1/:,parallel@server2 -vq \
|
|
perl -e 'sleep 1;print "job{}\n";exit({})' | \
|
|
perl -ne 'BEGIN{$/="\r";} @a=(split /\//,$_); END{print $a[1]+$a[4]+$a[7],"\n"}'
|
|
|
|
|