tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-12-22 20:57:53 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

env_parallel.tcsh: Testing of --env _ for tcsh works.

Browse source
This commit is contained in:
Ole Tange 2016-07-11 03:30:18 +02:00
parent 1117140adb
commit bec3d7924b
4 changed files with 53 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/env_parallel.tcsh
View file

@ -66,7 +66,7 @@ else
set _ignore_UNDERSCORE="`perl $_tMpscRIpt -- !*`"
rm $_tMpscRIpt
# Get the scalar and array variable names
set _vARnAmES=(`set | awk -e '{print $1}' |grep -vE '^(_|killring|prompt2|command)$' | grep -E "^$_grep_REGEXP"\$ | grep -vE "^$_ignore_UNDERSCORE"\$`)
set _vARnAmES=(`set | awk -e '{print $1}' |grep -vE '^(#|_|killring|prompt2|command)$' | grep -E "^$_grep_REGEXP"\$ | grep -vE "^$_ignore_UNDERSCORE"\$`)
# Make a tmpfile for the variable definitions
set _tMpvARfILe=`tempfile`

34
testsuite/tests-to-run/parallel-local-ssh7.sh
View file

@ -289,6 +289,40 @@ _EOF
ssh ksh@lo "$myscript"
}
par_tcsh_underscore() {
echo '### tcsh'
myscript=$(cat <<'_EOF'
echo "### Testing of --env _"
# . `which env_parallel.tcsh`;
env_parallel --record-env;
alias myecho "echo "\$"myvar "\$'myarray'" aliases";
set myvar="variables";
set myarray=(and arrays in);
env_parallel myecho ::: work;
env_parallel -S server myecho ::: work;
env_parallel --env myvar,myarray,myecho myecho ::: work;
env_parallel --env myvar,myarray,myecho -S server myecho ::: work;
env_parallel --env _ myecho ::: work;
env_parallel --env _ -S server myecho ::: work;
echo myvar >> ~/.parallel/ignored_vars;
env_parallel --env _ myecho ::: work;
env_parallel --env _ -S server myecho ::: work;
alias myecho "echo "\$'myarray'" aliases";
echo myarray >> ~/.parallel/ignored_vars;
env_parallel --env _ myecho ::: work;
env_parallel --env _ -S server myecho ::: work;
echo myecho >> ~/.parallel/ignored_vars;
env_parallel --env _ myecho ::: work;
echo "OK ^^^^^^^^^^^^^^^^^ if no myecho" >/dev/stderr;
env_parallel --env _ -S server myecho ::: work;
echo "OK ^^^^^^^^^^^^^^^^^ if no myecho" >/dev/stderr;
_EOF
)
ssh -tt tcsh@lo "$myscript"
}
# Test env_parallel:
# + for each shell
# + remote, locally

6
testsuite/wanted-results/parallel-local-100s
View file

@ -1,9 +1,3 @@
par_compress_linebuffer 2>&1
bug #41613: --compress --line-buffer no --tagstring
Good: --line-buffer matters
par_compress_linebuffer_tagstring 2>&1
bug #41613: --compress --line-buffer with --tagstring
Good: --line-buffer matters
par_outside_file_handle_limit 2>&1
par_outside_file_handle_limit ### Test Force outside the file handle limit, 2009-02-17 Gave fork error
par_outside_file_handle_limit parallel: Warning: Only enough file handles to run 252 jobs in parallel.

18
testsuite/wanted-results/parallel-local-ssh7
View file

@ -216,6 +216,24 @@ par_tcsh_man arrays
par_tcsh_man work,
par_tcsh_man too
par_tcsh_man Connection to lo closed.
par_tcsh_underscore ### tcsh
par_tcsh_underscore ### Testing of --env _
par_tcsh_underscore #: Command not found.
par_tcsh_underscore variables and arrays in aliases work
par_tcsh_underscore variables and arrays in aliases work
par_tcsh_underscore variables and arrays in aliases work
par_tcsh_underscore variables and arrays in aliases work
par_tcsh_underscore variables and arrays in aliases work
par_tcsh_underscore variables and arrays in aliases work
par_tcsh_underscore myvar: Undefined variable.
par_tcsh_underscore myvar: Undefined variable.
par_tcsh_underscore myarray: Undefined variable.
par_tcsh_underscore myarray: Undefined variable.
par_tcsh_underscore myecho: Command not found.
par_tcsh_underscore OK ^^^^^^^^^^^^^^^^^ if no myecho
par_tcsh_underscore myecho: Command not found.
par_tcsh_underscore OK ^^^^^^^^^^^^^^^^^ if no myecho
par_tcsh_underscore Connection to lo closed.
par_zsh_funky 3 arg alias_works
par_zsh_funky function_works
par_zsh_funky myvar works