mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-10-18 12:59:39 +00:00
69 lines
2.3 KiB
Bash
69 lines
2.3 KiB
Bash
#!/bin/bash
|
|
|
|
SERVER1=parallel-server3
|
|
SERVER2=parallel-server2
|
|
|
|
echo '### Test $PARALLEL'
|
|
PARALLEL="-k
|
|
-j1
|
|
echo" parallel ::: a b c
|
|
|
|
PARALLEL="-k
|
|
--jobs
|
|
1
|
|
echo" parallel ::: a b c
|
|
|
|
PARALLEL="-k
|
|
--jobs 1
|
|
echo" parallel ::: a b c
|
|
|
|
PARALLEL="-k
|
|
--jobs
|
|
1
|
|
echo 1" parallel -v echo 2 ::: a b c
|
|
|
|
PARALLEL="-k --jobs 1 echo" parallel ::: a b c
|
|
PARALLEL="-k --jobs 1 echo 1" parallel -v echo 2 ::: a b c
|
|
|
|
echo '### Test ugly quoting from $PARALLEL'
|
|
PARALLEL="-k --jobs 1 perl -pe '\$a=1; print\$a'" parallel -v ::: <(echo a) <(echo b)
|
|
PARALLEL='-k --jobs 1 -S '$SERVER1' perl -pe "\\$a=1; print\\$a"' parallel -v '<(echo {})' ::: foo
|
|
|
|
echo '### Test ugly quoting from profile file'
|
|
cat <<EOF >~/.parallel/test_profile
|
|
# testprofile
|
|
-k --jobs 1 perl -pe '\$a=1; print \$a'
|
|
EOF
|
|
parallel -v -J test_profile ::: <(echo a) <(echo b)
|
|
|
|
PARALLEL='-k --jobs 1 echo' parallel -S ssh\ $SERVER1\ ssh\ parallel@$SERVER2 -v ::: foo
|
|
PARALLEL='-k --jobs 1 perl -pe "\\$a=1; print \\$a"' parallel -S ssh\ $SERVER1\ ssh\ parallel@$SERVER2 -vv '<(echo {})' ::: foo
|
|
|
|
echo '### Test quoting of $ in command from profile file'
|
|
cat <<EOF >~/.parallel/test_profile
|
|
-k --jobs 1 perl -pe '\\\$a=1; print \\\$a'
|
|
EOF
|
|
parallel -v -J test_profile -S ssh\ $SERVER1\ ssh\ parallel@$SERVER2 '<(echo {})' ::: foo
|
|
|
|
echo '### Test quoting of $ in command from $PARALLEL'
|
|
PARALLEL='-k --jobs 1 perl -pe "\\$a=1; print \\$a" ' parallel -S ssh\ $SERVER1\ ssh\ parallel@$SERVER2 -v '<(echo {})' ::: foo
|
|
|
|
echo '### Test quoting of space in arguments (-S) from profile file'
|
|
cat <<EOF >~/.parallel/test_profile
|
|
-k --jobs 1 -S ssh\ $SERVER1\ ssh\ parallel@$SERVER2 perl -pe '\$a=1; print \$a'
|
|
EOF
|
|
parallel -v -J test_profile '<(echo {})' ::: foo
|
|
|
|
echo '### Test quoting of space in arguments (-S) from $PARALLEL'
|
|
PARALLEL='-k --jobs 1 -S ssh\ '$SERVER1'\ ssh\ parallel@'$SERVER2' perl -pe "\\$a=1; print \\$a" ' parallel -v '<(echo {})' ::: foo
|
|
|
|
echo '### Test quoting of space in long arguments (--sshlogin) from profile file'
|
|
cat <<EOF >~/.parallel/test_profile
|
|
# testprofile
|
|
-k --jobs 1 --sshlogin ssh\ $SERVER1\ ssh\ parallel@$SERVER2 perl -pe '\$a=1; print \$a'
|
|
EOF
|
|
parallel -v -J test_profile '<(echo {})' ::: foo
|
|
|
|
echo '### Test quoting of space in arguments (-S) from $PARALLEL'
|
|
PARALLEL='-k --jobs 1 --sshlogin ssh\ '$SERVER1'\ ssh\ parallel@'$SERVER2' perl -pe "\\$a=1; print \\$a" ' parallel -v '<(echo {})' ::: foo
|