#!/bin/bash

# SPDX-FileCopyrightText: 2021-2024 Ole Tange, http://ole.tange.dk and Free Software and Foundation, Inc.
#
# SPDX-License-Identifier: GPL-3.0-or-later

echo '### test --env _, env_parallel for different shells'

retry() {
    times=$1
    shift
    declare -a array_runs
    first_run=$($@)
    array_runs+=("$first_run")
    for ((i=1; i<=$times; i++)); do
        run=$($@)
        exit=$?
        if [[ " ${array_runs[@]} " =~ " $run " ]]; then
            echo "$run"
            return $exit
        fi
    done
    echo "$run"
    return $exit
}
export -f retry

#
## par_*_man = tests from the man page
#

par__man_ash() {
  echo '### ash'

  myscript=$(cat <<'_EOF'
    echo "### From man env_parallel"

    . `which env_parallel.ash`;

    alias myecho='echo aliases with \= \& \" \!'" \'"
    myecho work
    env_parallel myecho ::: work
    env_parallel -S server myecho ::: work
    env_parallel --env myecho myecho ::: work
    env_parallel --env myecho -S server myecho ::: work

    alias multiline='echo multiline
      echo aliases with \= \& \" \!'" \'"
    multiline work
    env_parallel multiline ::: work
    env_parallel -S server multiline ::: work
    env_parallel --env multiline multiline ::: work
    env_parallel --env multiline -S server multiline ::: work
    alias multiline="dummy"

    # Functions are not supported in ash

    myvar='variables with  = & " !'" '"
    echo "$myvar" work
    env_parallel echo '"$myvar"' ::: work
    env_parallel -S server echo '"$myvar"' ::: work
    env_parallel --env myvar echo '"$myvar"' ::: work
    env_parallel --env myvar -S server echo '"$myvar"' ::: work

    multivar='multiline
    variables with  = & " !'" '"
    echo "$multivar" work
    env_parallel echo '"$multivar"' ::: work
    env_parallel -S server echo '"$multivar"' ::: work
    env_parallel --env multivar echo '"$multivar"' ::: work
    env_parallel --env multivar -S server echo '"$multivar"' ::: work

    # Arrays are not supported in ash

    # Exporting of functions is not supported
    # env_parallel --argsep --- env_parallel -k echo ::: multi level --- env_parallel

    env_parallel ::: true false true false
    echo exit value $? should be 2

    env_parallel --no-such-option 2>&1 >/dev/null
    # Sleep 1 to delay output to stderr to avoid race
    echo exit value $? should be 255 `sleep 1`
_EOF
  )
  ssh ash@lo "$myscript"
}

par__man_bash() {
  echo '### bash'

  myscript=$(cat <<'_EOF'
    echo "### From man env_parallel"

    . `which env_parallel.bash`;
    shopt -s expand_aliases&>/dev/null;

    alias myecho='echo aliases with \= \& \" \!'" \'"
    myecho work
    env_parallel myecho ::: work
    env_parallel -S server myecho ::: work
    env_parallel --env myecho myecho ::: work
    env_parallel --env myecho -S server myecho ::: work

    # multiline aliases with when followed by newline
    alias multiline='echo multiline
      echo aliases with \= \& \" \!'" \'"
    multiline work
    env_parallel 'multiline {};
      echo but only when followed by a newline' ::: work
    env_parallel -S server 'multiline {};
      echo but only when followed by a newline' ::: work
    env_parallel --env multiline 'multiline {};
      echo but only when followed by a newline' ::: work
    env_parallel --env multiline -S server 'multiline {};
      echo but only when followed by a newline' ::: work
    alias multiline="dummy"

    myfunc() { echo functions 'with  = & " !'" '" $*; }
    myfunc work
    env_parallel myfunc ::: work
    env_parallel -S server myfunc ::: work
    env_parallel --env myfunc myfunc ::: work
    env_parallel --env myfunc -S server myfunc ::: work

    myvar='variables with  = & " !'" '"
    echo "$myvar" work
    env_parallel echo '"$myvar"' ::: work
    env_parallel -S server echo '"$myvar"' ::: work
    env_parallel --env myvar echo '"$myvar"' ::: work
    env_parallel --env myvar -S server echo '"$myvar"' ::: work

    multivar='multiline
    variables with  = & " !'" '"
    echo "$multivar" work
    env_parallel echo '"$multivar"' ::: work
    env_parallel -S server echo '"$multivar"' ::: work
    env_parallel --env multivar echo '"$multivar"' ::: work
    env_parallel --env multivar -S server echo '"$multivar"' ::: work

    myarray=(arrays 'with = & " !'" '" work, too)
    echo "${myarray[0]}" "${myarray[1]}" "${myarray[2]}" "${myarray[3]}"
    env_parallel -k echo '"${myarray[{}]}"' ::: 0 1 2 3
    env_parallel -k -S server echo '"${myarray[{}]}"' ::: 0 1 2 3
    env_parallel -k --env myarray echo '"${myarray[{}]}"' ::: 0 1 2 3
    env_parallel -k --env myarray -S server echo '"${myarray[{}]}"' ::: 0 1 2 3

    env_parallel --argsep --- env_parallel -k echo ::: multi level --- env_parallel

    env_parallel ::: true false true false
    echo exit value $? should be 2

    env_parallel --no-such-option 2>&1 >/dev/null
    # Sleep 1 to delay output to stderr to avoid race
    echo exit value $? should be 255 `sleep 1`
_EOF
  )
  ssh bash@lo "$myscript"
}

par__man_csh() {
  echo '### csh'
  myscript=$(cat <<'_EOF'
    echo "### From man env_parallel"

#    source `which env_parallel.csh`;

    alias myecho 'echo aliases with \= \& \"'
    env_parallel myecho ::: work
    env_parallel -S server myecho ::: work
    env_parallel --env myecho myecho ::: work
    env_parallel --env myecho -S server myecho ::: work

    # Functions not supported

    # TODO This does not work
    # set myvar='variables with = & "'" '"
    set myvar='variables with \= \& \"'
    env_parallel echo '$myvar' ::: work
    env_parallel -S server echo '$myvar' ::: work
    env_parallel --env myvar echo '$myvar' ::: work
    env_parallel --env myvar -S server echo '$myvar' ::: work

    # Space is not supported in arrays

    set myarray=(arrays with\=\&\""'" work, too)
    env_parallel -k echo \$'{myarray[{}]}' ::: 1 2 3 4
    env_parallel -k -S server echo \$'{myarray[{}]}' ::: 1 2 3 4
    env_parallel -k --env myarray echo \$'{myarray[{}]}' ::: 1 2 3 4
    env_parallel -k --env myarray -S server echo \$'{myarray[{}]}' ::: 1 2 3 4

    env_parallel --argsep --- env_parallel -k echo ::: multi level --- env_parallel

    env_parallel ::: true false true false
    echo exit value $status should be 2

    env_parallel --no-such-option >/dev/null
    echo exit value $status should be 255 `sleep 1`
_EOF
  )
  # Sometimes the order f*cks up
  stdout ssh csh@lo "$myscript" | LC_ALL=C sort
}

par__man_dash() {
  echo '### dash'

  myscript=$(cat <<'_EOF'
    echo "### From man env_parallel"

    . `which env_parallel.dash`;

    alias myecho='echo aliases with \= \& \" \!'" \'"
    myecho work
    env_parallel myecho ::: work
    env_parallel -S server myecho ::: work
    env_parallel --env myecho myecho ::: work
    env_parallel --env myecho -S server myecho ::: work

    alias multiline='echo multiline
      echo aliases with \= \& \" \!'" \'"
    multiline work
    env_parallel multiline ::: work
    env_parallel -S server multiline ::: work
    env_parallel --env multiline multiline ::: work
    env_parallel --env multiline -S server multiline ::: work
    alias multiline="dummy"

    # Functions are not supported in dash

    myvar='variables with  = & " !'" '"
    echo "$myvar" work
    env_parallel echo '"$myvar"' ::: work
    env_parallel -S server echo '"$myvar"' ::: work
    env_parallel --env myvar echo '"$myvar"' ::: work
    env_parallel --env myvar -S server echo '"$myvar"' ::: work

    multivar='multiline
    variables with  = & " !'" '"
    echo "$multivar" work
    env_parallel echo '"$multivar"' ::: work
    env_parallel -S server echo '"$multivar"' ::: work
    env_parallel --env multivar echo '"$multivar"' ::: work
    env_parallel --env multivar -S server echo '"$multivar"' ::: work

    # Arrays are not supported in dash

    # Exporting of functions is not supported
    # env_parallel --argsep --- env_parallel -k echo ::: multi level --- env_parallel

    env_parallel ::: true false true false
    echo exit value $? should be 2

    env_parallel --no-such-option 2>&1 >/dev/null
    # Sleep 1 to delay output to stderr to avoid race
    echo exit value $? should be 255 `sleep 1`
_EOF
  )
  ssh dash@lo "$myscript"
}

par__man_fish() {
  echo '### fish'
  myscript=$(cat <<'_EOF'
    echo "### From man env_parallel"

    env_parallel --session
    alias myecho='echo aliases with \= \& \" \!'" \'"
    myecho work
    env_parallel myecho ::: work
    env_parallel -S server myecho ::: work
    env_parallel --env myecho myecho ::: work
    env_parallel --env myecho -S server myecho ::: work

    # multiline aliases does not work in fish

    function myfunc
      echo functions 'with  = & " !'" '" $argv;
    end
    myfunc work
    env_parallel myfunc ::: work
    env_parallel -S server myfunc ::: work
    env_parallel --env myfunc myfunc ::: work
    env_parallel --env myfunc -S server myfunc ::: work

    set myvar 'variables with  = & " !'" '"
    echo "$myvar" work
    env_parallel echo '$myvar' ::: work
    env_parallel -S server echo '$myvar' ::: work
    env_parallel --env myvar echo '$myvar' ::: work
    env_parallel --env myvar -S server echo '$myvar' ::: work

    set multivar 'multiline
    variables with  = & " !'" '"
    echo "$multivar" work
    env_parallel echo '"$multivar"' ::: work
    env_parallel -S server echo '"$multivar"' ::: work
    env_parallel --env multivar echo '"$multivar"' ::: work
    env_parallel --env multivar -S server echo '"$multivar"' ::: work

    set myarray arrays 'with  = & " !'" '" work, too
    echo $myarray[1] $myarray[2] $myarray[3] $myarray[4]
    echo "# these 4 fail often. Race condition?"
    env_parallel -k echo '$myarray[{}]' ::: 1 2 3 4
    env_parallel -k -S server echo '$myarray[{}]' ::: 1 2 3 4
    env_parallel -k --env myarray echo '$myarray[{}]' ::: 1 2 3 4
    env_parallel -k --env myarray -S server echo '$myarray[{}]' ::: 1 2 3 4
    env_parallel --argsep --- env_parallel -k echo ::: multi level --- env_parallel

    env_parallel ::: true false true false
    echo exit value $status should be 2

    env_parallel --no-such-option >/dev/null
    echo exit value $status should be 255 `sleep 1`
_EOF
  )
  ssh fish@lo "$myscript"
    #| LC_ALL=C sort
}

par__man_ksh() {
  echo '### ksh'
  myscript=$(cat <<'_EOF'
    echo "### From man env_parallel"

    . `which env_parallel.ksh`;

    alias myecho='echo aliases with \= \& \" \!'" \'"
    myecho work
    env_parallel myecho ::: work
    env_parallel -S server myecho ::: work
    env_parallel --env myecho myecho ::: work
    env_parallel --env myecho -S server myecho ::: work

    alias multiline='echo multiline
      echo aliases with \= \& \" \!'" \'"
    multiline work
    env_parallel multiline ::: work
    env_parallel -S server multiline ::: work
    env_parallel --env multiline multiline ::: work
    env_parallel --env multiline -S server multiline ::: work
    alias multiline='dummy'

    myfunc() { echo functions 'with  = & " !'" '" $*; }
    myfunc work
    env_parallel myfunc ::: work
    env_parallel -S server myfunc ::: work
    env_parallel --env myfunc myfunc ::: work
    env_parallel --env myfunc -S server myfunc ::: work

    myvar='variables with  = & " !'" '"
    echo "$myvar" work
    env_parallel echo '"$myvar"' ::: work
    env_parallel -S server echo '"$myvar"' ::: work
    env_parallel --env myvar echo '"$myvar"' ::: work
    env_parallel --env myvar -S server echo '"$myvar"' ::: work

    multivar='multiline
    variables with  = & " !'" '"
    echo "$multivar" work
    env_parallel echo '"$multivar"' ::: work
    env_parallel -S server echo '"$multivar"' ::: work
    env_parallel --env multivar echo '"$multivar"' ::: work
    env_parallel --env multivar -S server echo '"$multivar"' ::: work

    myarray=(arrays 'with = & " !'" '" work, too)
    echo "${myarray[0]}" "${myarray[1]}" "${myarray[2]}" "${myarray[3]}"
    env_parallel -k echo '"${myarray[{}]}"' ::: 0 1 2 3
    env_parallel -k -S server echo '"${myarray[{}]}"' ::: 0 1 2 3
    env_parallel -k --env myarray echo '"${myarray[{}]}"' ::: 0 1 2 3
    env_parallel -k --env myarray -S server echo '"${myarray[{}]}"' ::: 0 1 2 3

    echo This may never work
    echo https://unix.stackexchange.com/questions/457031/extract-full-function-definitions
    env_parallel --argsep --- env_parallel -k echo ::: multi level --- env_parallel

    env_parallel ::: true false true false
    echo exit value $? should be 2

    env_parallel --no-such-option 2>&1 >/dev/null
    # Sleep 1 to delay output to stderr to avoid race
    echo exit value $? should be 255 `sleep 1`
_EOF
  )
  ssh ksh@lo "$myscript"
}

par__man_mksh() {
  echo '### mksh'
  myscript=$(cat <<'_EOF'
    echo "### From man env_parallel"

    . `which env_parallel.mksh`;

    alias myecho='echo aliases with \= \& \" \!'" \'"
    myecho work
    env_parallel myecho ::: work
    env_parallel -S server myecho ::: work
    env_parallel --env myecho myecho ::: work
    env_parallel --env myecho -S server myecho ::: work

    alias multiline='echo multiline
      echo aliases with \= \& \" \!'" \'"
    multiline work
    env_parallel multiline ::: work
    env_parallel -S server multiline ::: work
    env_parallel --env multiline multiline ::: work
    env_parallel --env multiline -S server multiline ::: work
    alias multiline='dummy'

    myfunc() { echo functions 'with  = & " !'" '" $*; }
    myfunc work
    env_parallel myfunc ::: work
    env_parallel -S server myfunc ::: work
    env_parallel --env myfunc myfunc ::: work
    env_parallel --env myfunc -S server myfunc ::: work

    myvar='variables with  = & " !'" '"
    echo "$myvar" work
    env_parallel echo '"$myvar"' ::: work
    env_parallel -S server echo '"$myvar"' ::: work
    env_parallel --env myvar echo '"$myvar"' ::: work
    env_parallel --env myvar -S server echo '"$myvar"' ::: work

    multivar='multiline
    variables with  = & " !'" '"
    echo "$multivar" work
    env_parallel echo '"$multivar"' ::: work
    env_parallel -S server echo '"$multivar"' ::: work
    env_parallel --env multivar echo '"$multivar"' ::: work
    env_parallel --env multivar -S server echo '"$multivar"' ::: work

    myarray=(arrays 'with = & " !'" '" work, too)
    echo "${myarray[0]}" "${myarray[1]}" "${myarray[2]}" "${myarray[3]}"
    env_parallel -k echo '"${myarray[{}]}"' ::: 0 1 2 3
    env_parallel -k -S server echo '"${myarray[{}]}"' ::: 0 1 2 3
    env_parallel -k --env myarray echo '"${myarray[{}]}"' ::: 0 1 2 3
    env_parallel -k --env myarray -S server echo '"${myarray[{}]}"' ::: 0 1 2 3

    env_parallel --argsep --- env_parallel -k echo ::: multi level --- env_parallel

    env_parallel ::: true false true false
    echo exit value $? should be 2

    env_parallel --no-such-option 2>&1 >/dev/null
    # Sleep 1 to delay output to stderr to avoid race
    echo exit value $? should be 255 `sleep 1`
_EOF
  )
  ssh mksh@lo "$myscript"
}

par__man_sh() {
  echo '### sh'

  myscript=$(cat <<'_EOF'
    echo "### From man env_parallel"

    . `which env_parallel.sh`;

    alias myecho='echo aliases with \= \& \" \!'" \'"
    myecho work
    env_parallel myecho ::: work
    env_parallel -S server myecho ::: work
    env_parallel --env myecho myecho ::: work
    env_parallel --env myecho -S server myecho ::: work

    alias multiline='echo multiline
      echo aliases with \= \& \" \!'" \'"
    multiline work
    env_parallel multiline ::: work
    env_parallel -S server multiline ::: work
    env_parallel --env multiline multiline ::: work
    env_parallel --env multiline -S server multiline ::: work
    alias multiline="dummy"

    # Functions not supported

    myvar='variables with  = & " !'" '"
    echo "$myvar" work
    env_parallel echo '"$myvar"' ::: work
    env_parallel -S server echo '"$myvar"' ::: work
    env_parallel --env myvar echo '"$myvar"' ::: work
    env_parallel --env myvar -S server echo '"$myvar"' ::: work

    multivar='multiline
    variables with  = & " !'" '"
    echo "$multivar" work
    env_parallel echo '"$multivar"' ::: work
    env_parallel -S server echo '"$multivar"' ::: work
    env_parallel --env multivar echo '"$multivar"' ::: work
    env_parallel --env multivar -S server echo '"$multivar"' ::: work

    # Arrays are not supported

    # Exporting of functions is not supported
    # env_parallel --argsep --- env_parallel -k echo ::: multi level --- env_parallel

    env_parallel ::: true false true false
    echo exit value $? should be 2

    env_parallel --no-such-option 2>&1 >/dev/null
    # Sleep 1 to delay output to stderr to avoid race
    echo exit value $? should be 255 `sleep 1`
_EOF
  )
  ssh sh@lo "$myscript"
}

par__man_tcsh() {
  echo '### tcsh'
  myscript=$(cat <<'_EOF'
    echo "### From man env_parallel"

#    source `which env_parallel.tcsh`

    alias myecho 'echo aliases with \= \& \"'
    env_parallel myecho ::: work
    env_parallel -S server myecho ::: work
    env_parallel --env myecho myecho ::: work
    env_parallel --env myecho -S server myecho ::: work

    echo Functions not supported

    # TODO This does not work
    # set myvar='variables with = & "'" '"
    set myvar='variables with \= \& \"'
    env_parallel echo '$myvar' ::: work
    env_parallel -S server echo '$myvar' ::: work
    env_parallel --env myvar echo '$myvar' ::: work
    env_parallel --env myvar -S server echo '$myvar' ::: work

    # Space is not supported in arrays

    set myarray=(arrays with\=\&\""'" work, too)
    env_parallel -k echo \$'{myarray[{}]}' ::: 1 2 3 4
    env_parallel -k -S server echo \$'{myarray[{}]}' ::: 1 2 3 4
    env_parallel -k --env myarray echo \$'{myarray[{}]}' ::: 1 2 3 4
    env_parallel -k --env myarray -S server echo \$'{myarray[{}]}' ::: 1 2 3 4

    echo 'Segmentation faults? Are you running bsd-csh version 20110502-3?'
    env_parallel --argsep --- env_parallel -k echo ::: multi level --- env_parallel

    env_parallel ::: true false true false
    echo exit value $status should be 2

    env_parallel --no-such-option >/dev/null
    echo exit value $status should be 255 `sleep 1`
_EOF
  )
  ssh -tt tcsh@lo "$myscript"
}

par__man_zsh() {
  echo '### zsh'
  # eval is needed make aliases work
  myscript=$(cat <<'_EOF'
    echo "### From man env_parallel"

    . `which env_parallel.zsh`;

    alias myecho='echo aliases with \= \& \" \!'" \'"
    # eval is needed make aliases work
    eval myecho work
    env_parallel myecho ::: work
    env_parallel -S server myecho ::: work
    env_parallel --env myecho myecho ::: work
    env_parallel --env myecho -S server myecho ::: work

    alias multiline='echo multiline
      echo aliases with \= \& \" \!'" \'"
    eval multiline work
    # Zsh-5.4.2 requires additional quoting when multiline
    # Looks like a bug
    alias multiline='echo multiline
      echo aliases with \\= \\& \\" \\!'" \\\'"
    # eval is needed make aliases work
    env_parallel multiline ::: work
    env_parallel -S server multiline ::: work
    env_parallel --env multiline multiline ::: work
    env_parallel --env multiline -S server multiline ::: work
    alias multiline="dummy"

    myfunc() { echo functions 'with  = & " !'" '" $*; }
    myfunc work
    env_parallel myfunc ::: work
    env_parallel -S server myfunc ::: work
    env_parallel --env myfunc myfunc ::: work
    env_parallel --env myfunc -S server myfunc ::: work

    myvar='variables with  = & " !'" '"
    echo "$myvar" work
    env_parallel echo '"$myvar"' ::: work
    env_parallel -S server echo '"$myvar"' ::: work
    env_parallel --env myvar echo '"$myvar"' ::: work
    env_parallel --env myvar -S server echo '"$myvar"' ::: work

    multivar='multiline
    variables with  = & " !'" '"
    echo "$multivar" work
    env_parallel echo '"$multivar"' ::: work
    env_parallel -S server echo '"$multivar"' ::: work
    env_parallel --env multivar echo '"$multivar"' ::: work
    env_parallel --env multivar -S server echo '"$multivar"' ::: work

    myarray=(arrays 'with = & " !'" '" work, too)
    # zsh counts from 1 - not 0
    echo "${myarray[1]}" "${myarray[2]}" "${myarray[3]}" "${myarray[4]}"
    env_parallel -k echo '"${myarray[{}]}"' ::: 1 2 3 4
    env_parallel -k -S server echo '"${myarray[{}]}"' ::: 1 2 3 4
    env_parallel -k --env myarray echo '"${myarray[{}]}"' ::: 1 2 3 4
    env_parallel -k --env myarray -S server echo '"${myarray[{}]}"' ::: 1 2 3 4

    env_parallel --argsep --- env_parallel -k echo ::: multi level --- env_parallel

    env_parallel ::: true false true false
    echo exit value $? should be 2

    env_parallel --no-such-option 2>&1 >/dev/null
    # Sleep 1 to delay output to stderr to avoid race
    echo exit value $? should be 255 `sleep 1`
_EOF
  )
  ssh zsh@lo "$myscript"
}


par_--env_underscore_ash() {
  echo '### ash'
  myscript=$(cat <<'_EOF'
    echo "### Testing of --env _"

    alias not_copied_alias="echo BAD"
#    not_copied_func() { echo BAD; };
    not_copied_var=BAD
#    not_copied_array=(BAD BAD BAD);
    . `which env_parallel.ash`;
    env_parallel --record-env;
    alias myecho="echo \$myvar aliases";
#    myfunc() { myecho functions $*; };
    myvar="variables in";
#    myarray=(and arrays in);
#    env_parallel myfunc ::: work;
#    env_parallel -S server myfunc ::: work;
    env_parallel --env myvar,myecho myecho ::: work;
    env_parallel --env myvar,myecho -S server myecho ::: work;
    env_parallel --env _ myecho ::: work;
    env_parallel --env _ -S server myecho ::: work;

    env_parallel --env _ -S server not_copied_alias ::: error=OK;
#    env_parallel --env _ -S server not_copied_func ::: error=OK;
    env_parallel --env _ -S server echo \$not_copied_var ::: error=OK;
#    env_parallel --env _ -S server echo \${not_copied_array[@]} ::: error=OK;

    echo myvar >> ~/.parallel/ignored_vars;
    env_parallel --env _ myecho ::: work;
    env_parallel --env _ -S server myecho ::: work;
#    echo myarray >> ~/.parallel/ignored_vars;
#    env_parallel --env _ myfunc ::: work;
#    env_parallel --env _ -S server myfunc ::: work;
    echo myecho >> ~/.parallel/ignored_vars;
    env_parallel --env _ myecho ::: work;
    echo "OK if no myecho    ^^^^^^^^^^^^^^^^^" >&2;
    env_parallel --env _ -S server myecho ::: work;
    echo "OK if no myecho    ^^^^^^^^^^^^^^^^^" >&2;
#    echo myfunc >> ~/.parallel/ignored_vars;
#    env_parallel --env _ myfunc ::: work;
#    echo "OK if no myfunc         ^^^^^^^^^^^^^^^^^" >&2;
#    env_parallel --env _ -S server myfunc ::: work;
#    echo "OK if no myfunc         ^^^^^^^^^^^^^^^^^" >&2;
_EOF
  )
  ssh ash@lo "$myscript"
}

par_--env_underscore_bash() {
  echo '### bash'
  myscript=$(cat <<'_EOF'
    echo "### Testing of --env _"

    . `which env_parallel.bash`;

    alias not_copied_alias="echo BAD"
    not_copied_func() { echo BAD; };
    not_copied_var=BAD
    not_copied_array=(BAD BAD BAD);
    env_parallel --record-env;
    alias myecho="echo \$myvar aliases in";
    myfunc() { myecho ${myarray[@]} functions $*; };
    myvar="variables in";
    myarray=(and arrays in);
    env_parallel myfunc ::: work;
    env_parallel -S server myfunc ::: work;
    env_parallel --env myfunc,myvar,myarray,myecho myfunc ::: work;
    env_parallel --env myfunc,myvar,myarray,myecho -S server myfunc ::: work;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;

    env_parallel --env _ -S server not_copied_alias ::: error=OK;
    env_parallel --env _ -S server not_copied_func ::: error=OK;
    env_parallel --env _ -S server echo \$not_copied_var ::: error=OK;
    env_parallel --env _ -S server echo \${not_copied_array[@]} ::: error=OK;

    echo myvar >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;
    echo myarray >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;
    echo myecho >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    echo "OK if no myecho      ^^^^^^^^^^^^^^^^^^^^^^^^^" >&2;
    env_parallel --env _ -S server myfunc ::: work;
    echo "OK if no myecho      ^^^^^^^^^^^^^^^^^^^^^^^^^" >&2;
    echo myfunc >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    echo "OK if no myfunc      ^^^^^^^^^^^^^^^^^^^^^^^^^" >&2;
    env_parallel --env _ -S server myfunc ::: work;
    echo "OK if no myfunc      ^^^^^^^^^^^^^^^^^^^^^^^^^" >&2;
_EOF
  )
  stdout ssh bash@lo "$myscript"
}

par_--env_underscore_csh() {
  echo '### csh'
  myscript=$(cat <<'_EOF'
    echo "### Testing of --env _"

#    source `which env_parallel.csh`;

    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 csh@lo "$myscript"
}

par_--env_underscore_dash() {
  echo '### dash'
  myscript=$(cat <<'_EOF'
    echo "### Testing of --env _"

    alias not_copied_alias="echo BAD"
#    not_copied_func() { echo BAD; };
    not_copied_var=BAD
#    not_copied_array=(BAD BAD BAD);
    . `which env_parallel.dash`;
    env_parallel --record-env;
    alias myecho="echo \$myvar aliases";
#    myfunc() { myecho functions $*; };
    myvar="variables in";
#    myarray=(and arrays in);
#    env_parallel myfunc ::: work;
#    env_parallel -S server myfunc ::: work;
    env_parallel --env myvar,myecho myecho ::: work;
    env_parallel --env myvar,myecho -S server myecho ::: work;
    env_parallel --env _ myecho ::: work;
    env_parallel --env _ -S server myecho ::: work;

    env_parallel --env _ -S server not_copied_alias ::: error=OK;
#    env_parallel --env _ -S server not_copied_func ::: error=OK;
    env_parallel --env _ -S server echo \$not_copied_var ::: error=OK;
#    env_parallel --env _ -S server echo \${not_copied_array[@]} ::: error=OK;

    echo myvar >> ~/.parallel/ignored_vars;
    env_parallel --env _ myecho ::: work;
    env_parallel --env _ -S server myecho ::: work;
#    echo myarray >> ~/.parallel/ignored_vars;
#    env_parallel --env _ myfunc ::: work;
#    env_parallel --env _ -S server myfunc ::: work;
    echo myecho >> ~/.parallel/ignored_vars;
    env_parallel --env _ myecho ::: work;
    echo "OK if no myecho    ^^^^^^^^^^^^^^^^^" >&2;
    env_parallel --env _ -S server myecho ::: work;
    echo "OK if no myecho    ^^^^^^^^^^^^^^^^^" >&2;
#    echo myfunc >> ~/.parallel/ignored_vars;
#    env_parallel --env _ myfunc ::: work;
#    echo "OK if no myfunc         ^^^^^^^^^^^^^^^^^" >&2;
#    env_parallel --env _ -S server myfunc ::: work;
#    echo "OK if no myfunc         ^^^^^^^^^^^^^^^^^" >&2;
_EOF
  )
  ssh dash@lo "$myscript"
}

par_--env_underscore_fish() {
  echo '### fish'
  myscript=$(cat <<'_EOF'
    echo "Fish is broken"
    echo "### Testing of --env _"

    source (which env_parallel.fish)
    true > ~/.parallel/ignored_vars;

    alias not_copied_alias="echo BAD"
    function not_copied_func
      echo BAD
    end
    set not_copied_var "BAD";
    set not_copied_array BAD BAD BAD;
#    env_parallel --record-env;
    env_parallel --session;
    alias myecho="echo \$myvar aliases";
    function myfunc
      myecho $myarray functions $argv
    end
    set myvar "variables in";
    set myarray and arrays in;

    echo Test copying;
    echo '*** Moved to parallel-ssh-fish.sh ***'

    echo Test ignoring;
    env_parallel --env _ -S server not_copied_alias ::: error=OK;
    env_parallel --env _ -S server not_copied_func ::: error=OK;
    env_parallel --env _ -S server echo \$not_copied_var ::: error=OK;
    env_parallel --env _ -S server echo \$not_copied_array ::: error=OK;

    echo Test single ignoring;
    echo myvar > ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    sleep 0.1
    env_parallel --env _ -S server myfunc ::: work;
    sleep 0.1
    echo myarray >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;
    echo myecho >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    echo "OK if   ^^^^^^^^^^^^^^^^^ no myecho" >&2;
    env_parallel --env _ -S server myfunc ::: work;
    echo "OK if   ^^^^^^^^^^^^^^^^^ no myecho" >&2;
    echo myfunc >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    echo "OK if   ^^^^^^^^^^^^^^^^^ no myfunc" >&2;
    env_parallel --env _ -S server myfunc ::: work;
    echo "OK if   ^^^^^^^^^^^^^^^^^ no myfunc" >&2;
_EOF
  )
  # Old versions of fish sometimes throw up bugs all over,
  # but seem to work OK otherwise. So ignore these errors.
  stdout ssh fish@lo "$myscript" |
      perl -ne '/^\^|fish:|fish\(/ and next; print' |
      perl -pe 's/^[ ~^]+$//g'
}

par_--env_underscore_ksh() {
  echo '### ksh'
  myscript=$(cat <<'_EOF'
    echo "### Testing of --env _"

    alias not_copied_alias="echo BAD"
    not_copied_func() { echo BAD; };
    not_copied_var=BAD
    not_copied_array=(BAD BAD BAD);
    . `which env_parallel.ksh`;
    env_parallel --record-env;
    alias myecho="echo \$myvar aliases in";
    myfunc() { myecho ${myarray[@]} functions $*; };
    myvar="variables in";
    myarray=(and arrays in);
    env_parallel myfunc ::: work;
    env_parallel -S server myfunc ::: work;
    env_parallel --env myfunc,myvar,myarray,myecho myfunc ::: work;
    env_parallel --env myfunc,myvar,myarray,myecho -S server myfunc ::: work;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;

    env_parallel --env _ -S server not_copied_alias ::: error=OK;
    env_parallel --env _ -S server not_copied_func ::: error=OK;
    env_parallel --env _ -S server echo \$not_copied_var ::: error=OK;
    env_parallel --env _ -S server echo \${not_copied_array[@]} ::: error=OK;

    echo myvar >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;
    echo myarray >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;
    echo myecho >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    echo "OK if no myecho    ^^^^^^^^^^^^^^^^^" >&2;
    env_parallel --env _ -S server myfunc ::: work;
    echo "OK if no myecho    ^^^^^^^^^^^^^^^^^" >&2;
    echo myfunc >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    echo "OK if no myfunc         ^^^^^^^^^^^^^^^^^" >&2;
    env_parallel --env _ -S server myfunc ::: work;
    echo "OK if no myfunc         ^^^^^^^^^^^^^^^^^" >&2;
_EOF
  )
  stdout ssh ksh@lo "$myscript" |
      # /bin/ksh[999]: myfunc[1]: myecho: not found
      # =>
      # /bin/ksh: myecho: not found
      perl -pe 's/\[\d+\]:.*\[\d+\]:/:/;'
}

par_--env_underscore_mksh() {
  echo '### mksh'
  myscript=$(cat <<'_EOF'
    echo "### Testing of --env _"

    alias not_copied_alias="echo BAD"
    not_copied_func() { echo BAD; };
    not_copied_var=BAD
    not_copied_array=(BAD BAD BAD);
    . `which env_parallel.mksh`;
    env_parallel --record-env;
    alias myecho="echo \$myvar aliases in";
    # The alias is replaced in the function
    myfunc() { myecho ${myarray[@]} functions $*; };
    myvar="variables in";
    myarray=(and arrays in);
    env_parallel myfunc ::: work;
    env_parallel -S server myfunc ::: work;
    env_parallel --env myfunc,myvar,myarray,myecho myfunc ::: work;
    env_parallel --env myfunc,myvar,myarray,myecho -S server myfunc ::: work;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;

    env_parallel --env _ -S server not_copied_alias ::: error=OK;
    env_parallel --env _ -S server not_copied_func ::: error=OK;
    env_parallel --env _ -S server echo \$not_copied_var ::: error=OK;
    env_parallel --env _ -S server echo \${not_copied_array[@]} ::: error=OK;

    echo myvar >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;
    echo myarray >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;
    echo myecho >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    echo The myecho alias is replaced in the function causing this not to fail
    env_parallel --env _ -S server myfunc ::: work;
    echo The myecho alias is replaced in the function causing this not to fail
    echo myfunc >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    echo "OK if no myfunc         ^^^^^^^^^^^^^^^^^" >&2;
    env_parallel --env _ -S server myfunc ::: work;
    echo "OK if no myfunc         ^^^^^^^^^^^^^^^^^" >&2;
_EOF
  )
  stdout ssh mksh@lo "$myscript" |
      perl -pe 's/^[EŴ]:/EW:/g'
}

par_--env_underscore_sh() {
  echo '### sh'
  myscript=$(cat <<'_EOF'
    echo "### Testing of --env _"

    alias not_copied_alias="echo BAD"
#    not_copied_func() { echo BAD; };
    not_copied_var=BAD
#    not_copied_array=(BAD BAD BAD);
    . `which env_parallel.sh`;
    env_parallel --record-env;
    alias myecho="echo \$myvar aliases";
#    myfunc() { myecho functions $*; };
    myvar="variables in";
#    myarray=(and arrays in);
#    env_parallel myfunc ::: work;
#    env_parallel -S server myfunc ::: work;
    env_parallel --env myvar,myecho myecho ::: work;
    env_parallel --env myvar,myecho -S server myecho ::: work;
    env_parallel --env _ myecho ::: work;
    env_parallel --env _ -S server myecho ::: work;

    env_parallel --env _ -S server not_copied_alias ::: error=OK;
#    env_parallel --env _ -S server not_copied_func ::: error=OK;
    env_parallel --env _ -S server echo \$not_copied_var ::: error=OK;
#    env_parallel --env _ -S server echo \${not_copied_array[@]} ::: error=OK;

    echo myvar >> ~/.parallel/ignored_vars;
    env_parallel --env _ myecho ::: work;
    env_parallel --env _ -S server myecho ::: work;
#    echo myarray >> ~/.parallel/ignored_vars;
#    env_parallel --env _ myfunc ::: work;
#    env_parallel --env _ -S server myfunc ::: work;
    echo myecho >> ~/.parallel/ignored_vars;
    env_parallel --env _ myecho ::: work;
    echo "OK if no myecho    ^^^^^^^^^^^^^^^^^" >&2;
    env_parallel --env _ -S server myecho ::: work;
    echo "OK if no myecho    ^^^^^^^^^^^^^^^^^" >&2;
#    echo myfunc >> ~/.parallel/ignored_vars;
#    env_parallel --env _ myfunc ::: work;
#    echo "OK if no myfunc         ^^^^^^^^^^^^^^^^^" >&2;
#    env_parallel --env _ -S server myfunc ::: work;
#    echo "OK if no myfunc         ^^^^^^^^^^^^^^^^^" >&2;
_EOF
  )
  ssh sh@lo "$myscript"
}

par_--env_underscore_tcsh() {
  echo '### tcsh'
  myscript=$(cat <<'_EOF'
    echo "### Testing of --env _"

#    source `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"
}

par_--env_underscore_zsh() {
  echo '### zsh'
  myscript=$(cat <<'_EOF'
    echo "### Testing of --env _"

    . `which env_parallel.zsh`;

    alias not_copied_alias="echo BAD"
    not_copied_func() { echo BAD; };
    not_copied_var=BAD
    not_copied_array=(BAD BAD BAD);
    env_parallel --record-env;
    alias myecho="echo \$myvar aliases in";
    eval `cat <<"_EOS";
    myfunc() { myecho ${myarray[@]} functions $*; };
    myvar="variables in";
    myarray=(and arrays in);
    env_parallel myfunc ::: work;
    env_parallel -S server myfunc ::: work;
    env_parallel --env myfunc,myvar,myarray,myecho myfunc ::: work;
    env_parallel --env myfunc,myvar,myarray,myecho -S server myfunc ::: work;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;

    env_parallel --env _ -S server not_copied_alias ::: error=OK;
    env_parallel --env _ -S server not_copied_func ::: error=OK;
    env_parallel --env _ -S server echo \$not_copied_var ::: error=OK;
    env_parallel --env _ -S server echo \$\{not_copied_array\[\@\]\} ::: error=OK;

    echo myvar >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;
    echo myarray >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    env_parallel --env _ -S server myfunc ::: work;
    echo myecho >> ~/.parallel/ignored_vars;
    : Not using the function, because aliases are expanded in functions;
    env_parallel --env _ myecho ::: work;
    echo OK if no .^^^^^^^^^^^^^^^^^^^^^^^^^ myecho >&2;
    env_parallel --env _ -S server myecho ::: work;
    echo OK if no .^^^^^^^^^^^^^^^^^^^^^^^^^ myecho >&2;
    echo myfunc >> ~/.parallel/ignored_vars;
    env_parallel --env _ myfunc ::: work;
    echo OK if no .^^^^^^^^^^^^^^^^^^^^^^^^^ myfunc >&2;
    env_parallel --env _ -S server myfunc ::: work;
    echo OK if no .^^^^^^^^^^^^^^^^^^^^^^^^^ myfunc >&2;
_EOS`
_EOF
  )
  ssh zsh@lo "$myscript"
}


# Test env_parallel:
# + for each shell
# + remote, locally
# + variables, variables with funky content, arrays, assoc array, functions, aliases

par_funky_ash() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.ash`;

    myvar="myvar  works"
    funky=`perl -e "print pack \"c*\", 2..255"`
# Arrays not supported
#    myarray=("" array_val2 3 "" 5 "  space  6  ")
#    typeset -A assocarr
#    assocarr[a]=assoc_val_a
#    assocarr[b]=assoc_val_b
    alias alias_echo="echo 3 arg";

    func_echo() {
      echo $*;
      echo "$myvar"
#      echo "${myarray[5]}"
#      echo ${assocarr[a]}
      echo Funky-"$funky"-funky
    }

    env_parallel alias_echo ::: alias_works
#    env_parallel func_echo ::: function_works
    env_parallel -S ash@lo alias_echo ::: alias_works_over_ssh
#    env_parallel -S ash@lo func_echo ::: function_works_over_ssh
    echo
    echo "$funky" | parallel --shellquote
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh ash@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_funky_bash() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.bash`;

    myvar="myvar  works"
    funky_single_line=$(perl -e "print pack \"c*\", 13..126,128..255")
    funky_multi_line=$(perl -e "print pack \"c*\", 1..12,127")
    myarray=("" array_val2 3 "" 5 "  space  6  ")
    declare -A assocarr
    assocarr[a]=assoc_val_a
    assocarr[b]=assoc_val_b
    alias alias_echo="echo 3 arg";
    func_echo() {
      echo $*;
      echo "$myvar"
      echo "${myarray[5]}"
      echo ${assocarr[a]}
      echo Funkyline-"$funky_single_line"-funkyline
      echo Funkymultiline-"$funky_multi_line"-funkymultiline
    }
    env_parallel alias_echo ::: alias_works
    env_parallel func_echo ::: function_works
    env_parallel -S lo alias_echo ::: alias_works_over_ssh
    env_parallel -S lo func_echo ::: function_works_over_ssh
    echo
    echo "$funky_single_line" | parallel --shellquote
    echo "$funky_multi_line" | parallel --shellquote
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh bash@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_funky_csh() {
  myscript=$(cat <<'_EOF'
    set myvar = "myvar  works"
    set funky = "`perl -e 'print pack q(c*), 2..255'`"
    set myarray = ('' 'array_val2' '3' '' '5' '  space  6  ')
    #declare -A assocarr
    #assocarr[a]=assoc_val_a
    #assocarr[b]=assoc_val_b
    alias alias_echo echo 3 arg;
    alias alias_echo_var 'echo $argv; echo "$myvar"; echo "${myarray[4]} special chars problem"; echo Funky-"$funky"-funky'

    #function func_echo
    #  echo $argv;
    #  echo $myvar;
    #  echo ${myarray[2]}
    #  #echo ${assocarr[a]}
    #  echo Funky-"$funky"-funky
    #end

    env_parallel alias_echo ::: alias_works
    env_parallel alias_echo_var ::: alias_var_works
    env_parallel func_echo ::: function_does_not_work
    env_parallel -S csh@lo alias_echo ::: alias_works_over_ssh
    env_parallel -S csh@lo alias_echo_var ::: alias_var_works_over_ssh
    env_parallel -S csh@lo func_echo ::: function_does_not_work_over_ssh
    echo
    echo "$funky" | parallel --shellquote
_EOF
  )
  # Sometimes the order f*cks up
  stdout ssh csh@lo "$myscript" | LC_ALL=C sort
}

par_funky_dash() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.dash`;

    myvar="myvar  works"
    funky=`perl -e "print pack \"c*\", 2..255"`
# Arrays not supported
#    myarray=("" array_val2 3 "" 5 "  space  6  ")
#    typeset -A assocarr
#    assocarr[a]=assoc_val_a
#    assocarr[b]=assoc_val_b
    alias alias_echo="echo 3 arg";

    func_echo() {
      echo $*;
      echo "$myvar"
#      echo "${myarray[5]}"
#      echo ${assocarr[a]}
      echo Funky-"$funky"-funky
    }

    env_parallel alias_echo ::: alias_works
#    env_parallel func_echo ::: function_works
    env_parallel -S dash@lo alias_echo ::: alias_works_over_ssh
#    env_parallel -S dash@lo func_echo ::: function_works_over_ssh
    echo
    echo "$funky" | parallel --shellquote
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh dash@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_funky_fish() {
  myscript=$(cat <<'_EOF'
    env_parallel --session
    set myvar "myvar  works"
    setenv myenvvar "myenvvar  works"

    set funky (perl -e "print pack \"c*\", 1..255")
    # 10 and 30 cause problems
    setenv funkyenv (perl -e "print pack \"c*\", 1..9,11..29,31..255")

    set myarray "" array_val2 3 "" 5 "  space  6  "

    # Assoc arrays do not exist
    #typeset -A assocarr
    #assocarr[a]=assoc_val_a
    #assocarr[b]=assoc_val_b
    alias alias_echo="echo 3 arg";

    function func_echo
      echo $argv;
      echo "$myvar"
      echo "$myenvvar"
      echo "$myarray[6]"
    # Assoc arrays do not exist in fish
    #  echo ${assocarr[a]}
      echo
      echo
      echo
      echo Funky-"$funky"-funky
      echo Funkyenv-"$funkyenv"-funkyenv
      echo
      echo
      echo
    end

    env_parallel alias_echo ::: alias_works
    env_parallel func_echo ::: function_works
    env_parallel -S fish@lo alias_echo ::: alias_works_over_ssh
    env_parallel -S fish@lo func_echo ::: function_works_over_ssh
    echo
    echo "$funky" | parallel --shellquote
_EOF
  )
  ssh fish@lo "$myscript"
}

par_funky_ksh() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.ksh`;

    myvar="myvar  works"
    funky=$(perl -e "print pack \"c*\", 1..255")
    myarray=("" array_val2 3 "" 5 "  space  6  ")
    typeset -A assocarr
    assocarr[a]=assoc_val_a
    assocarr[b]=assoc_val_b
    alias alias_echo="echo 3 arg";

    func_echo() {
      echo $*;
      echo "$myvar"
      echo "${myarray[5]}"
      echo ${assocarr[a]}
      echo Funky-"$funky"-funky
    }

    env_parallel alias_echo ::: alias_works
    env_parallel func_echo ::: function_works
    env_parallel -S ksh@lo alias_echo ::: alias_works_over_ssh
    env_parallel -S ksh@lo func_echo ::: function_works_over_ssh
    echo
    echo "$funky" | parallel --shellquote
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh ksh@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_funky_mksh() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.mksh`;

    myvar="myvar  works"
    funky=$(perl -e "print pack \"c*\", 1..255")
    myarray=("" array_val2 3 "" 5 "  space  6  ")
# Assoc arrays not supported
#    typeset -A assocarr
#    assocarr[a]=assoc_val_a
#    assocarr[b]=assoc_val_b
    alias alias_echo="echo 3 arg";

    func_echo() {
      echo $*;
      echo "$myvar"
      echo "${myarray[5]}"
#      echo ${assocarr[a]}
      echo Funky-"$funky"-funky
    }

    env_parallel alias_echo ::: alias_works
    env_parallel func_echo ::: function_works
    env_parallel -S mksh@lo alias_echo ::: alias_works_over_ssh
    env_parallel -S mksh@lo func_echo ::: function_works_over_ssh
    echo
    echo "$funky" | parallel --shellquote
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh mksh@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_funky_sh() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.sh`;

    myvar="myvar  works"
    funky=`perl -e "print pack \"c*\", 2..255"`
# Arrays not supported
#    myarray=("" array_val2 3 "" 5 "  space  6  ")
#    typeset -A assocarr
#    assocarr[a]=assoc_val_a
#    assocarr[b]=assoc_val_b
    alias alias_echo="echo 3 arg";

    func_echo() {
      echo $*;
      echo "$myvar"
#      echo "${myarray[5]}"
#      echo ${assocarr[a]}
      echo Funky-"$funky"-funky
    }

    env_parallel alias_echo ::: alias_works
#    env_parallel func_echo ::: function_works
    env_parallel -S sh@lo alias_echo ::: alias_works_over_ssh
#    env_parallel -S sh@lo func_echo ::: function_works_over_ssh
    echo
    echo "$funky" | parallel --shellquote
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh sh@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_funky_tcsh() {
  myscript=$(cat <<'_EOF'
    # funky breaks with different LC_ALL
    setenv LC_ALL C
    set myvar = "myvar  works"
    set funky = "`perl -e 'print pack q(c*), 2..255'`"
    set myarray = ('' 'array_val2' '3' '' '5' '  space  6  ')
    # declare -A assocarr
    # assocarr[a]=assoc_val_a
    # assocarr[b]=assoc_val_b
    alias alias_echo echo 3 arg;
    alias alias_echo_var 'echo $argv; echo "$myvar"; echo "${myarray[4]} special chars problem"; echo Funky-"$funky"-funky'

    # function func_echo
    #  echo $argv;
    #  echo $myvar;
    #  echo ${myarray[2]}
    #  #echo ${assocarr[a]}
    #  echo Funky-"$funky"-funky
    # end

    env_parallel alias_echo ::: alias_works
    env_parallel alias_echo_var ::: alias_var_works
    env_parallel func_echo ::: function_does_not_work
    env_parallel -S tcsh@lo alias_echo ::: alias_works_over_ssh
    env_parallel -S tcsh@lo alias_echo_var ::: alias_var_works_over_ssh
    env_parallel -S tcsh@lo func_echo ::: function_does_not_work_over_ssh
    echo
    echo "$funky" | parallel --shellquote
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh tcsh@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_funky_zsh() {
  myscript=$(cat <<'_EOF'

    . `which env_parallel.zsh`;

    myvar="myvar  works"
    # Zsh-5.4.2 fails for ascii 167
    funky=$(perl -e "print pack \"c*\", 1..166,168..255")
    myarray=("" array_val2 3 "" 5 "  space  6  ")
    declare -A assocarr
    assocarr[a]=assoc_val_a
    assocarr[b]=assoc_val_b
    alias alias_echo="echo 3 arg";
    func_echo() {
      echo $*;
      echo "$myvar"
      echo "$myarray[6]"
      echo ${assocarr[a]}
      echo Funky-"$funky"-funky
    }
    env_parallel alias_echo ::: alias_works
    env_parallel func_echo ::: function_works
    env_parallel -S zsh@lo alias_echo ::: alias_works_over_ssh
    env_parallel -S zsh@lo func_echo ::: function_works_over_ssh
    echo
    echo "$funky" | parallel --shellquote
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh zsh@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_env_parallel_ash() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.ash`;
    echo 'bug #50435: Remote fifo broke in 20150522'
    # Due to $PARALLEL_TMP being transferred
    OK=OK
    echo data from stdin | env_parallel --pipe -S lo --fifo 'cat {} && echo $OK'
    echo data from stdin | env_parallel --pipe -S lo --cat 'cat {} && echo $OK'

    echo 'bug #52534: Tail of multiline alias is ignored'
    alias myalias='echo alias line 1
      echo alias line 2
      echo alias line 3
    '
    alias myalias2='echo alias2 line 1
      echo alias2 line 2
    '
    env_parallel myalias ::: myalias2
    env_parallel -S lo myalias ::: myalias2
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh ash@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_env_parallel_bash() {
  myscript=$(cat <<'_EOF'
    echo 'bug #50435: Remote fifo broke in 20150522'
    # Due to $PARALLEL_TMP being transferred
    . `which env_parallel.bash`
    OK=OK
    echo data from stdin | env_parallel --pipe -S lo --fifo 'cat {} && echo $OK'
    echo data from stdin | env_parallel --pipe -S lo --cat 'cat {} && echo $OK'

    echo 'bug #52534: Tail of multiline alias is ignored'
    alias myalias='echo alias line 1
      echo alias line 2
      echo alias line 3
    '
    alias myalias2='echo alias2 line 1
      echo alias2 line 2
    '
    env_parallel myalias ::: myalias2
    env_parallel -S lo myalias ::: myalias2
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh bash@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_env_parallel_csh() {
  myscript=$(cat <<'_EOF'
    echo 'bug #50435: Remote fifo broke in 20150522'
    # Due to $PARALLEL_TMP being transferred
    set OK=OK
    echo data from stdin | env_parallel --pipe -S lo --fifo 'cat {} && echo $OK'
    echo data from stdin | env_parallel --pipe -S lo --cat 'cat {} && echo $OK'
_EOF
  )
  ssh csh@lo "$myscript"
}

par_env_parallel_dash() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.dash`;
    echo 'bug #50435: Remote fifo broke in 20150522'
    # Due to $PARALLEL_TMP being transferred
    OK=OK
    echo data from stdin | env_parallel --pipe -S lo --fifo 'cat {} && echo $OK'
    echo data from stdin | env_parallel --pipe -S lo --cat 'cat {} && echo $OK'

    echo 'bug #52534: Tail of multiline alias is ignored'
    alias myalias='echo alias line 1
      echo alias line 2
      echo alias line 3
    '
    alias myalias2='echo alias2 line 1
      echo alias2 line 2
    '
    env_parallel myalias ::: myalias2
    env_parallel -S lo myalias ::: myalias2
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh dash@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_env_parallel_fish() {
  myscript=$(cat <<'_EOF'
    echo 'bug #50435: Remote fifo broke in 20150522'
    # Due to $PARALLEL_TMP being transferred
    env_parallel --session
    set OK OK
    echo data from stdin | env_parallel --pipe -S lo --fifo 'cat {}; and echo $OK'
    echo data from stdin | env_parallel --pipe -S lo --cat 'cat {}; and echo $OK'
    echo OK: 0==$status
    echo '### Test failing command with --cat'
    echo data from stdin | env_parallel --pipe -S lo --cat 'cat {}; false'
    echo OK: 1==$status
    echo data from stdin | parallel --pipe -S lo --cat 'cat {}; false'
    echo OK: 1==$status
_EOF
  )
  ssh fish@lo "$myscript"
}

par_env_parallel_ksh() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.ksh`;
    echo 'bug #50435: Remote fifo broke in 20150522'
    # Due to $PARALLEL_TMP being transferred
    OK=OK
    echo data from stdin | env_parallel --pipe -S lo --fifo 'cat {} && echo $OK'
    echo data from stdin | env_parallel --pipe -S lo --cat 'cat {} && echo $OK'

    echo 'bug #52534: Tail of multiline alias is ignored'
    alias myalias='echo alias line 1
      echo alias line 2
      echo alias line 3
    '
    alias myalias2='echo alias2 line 1
      echo alias2 line 2
    '
    env_parallel myalias ::: myalias2
    env_parallel -S lo myalias ::: myalias2
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh ksh@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_env_parallel_mksh() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.mksh`;
    echo 'bug #50435: Remote fifo broke in 20150522'
    # Due to $PARALLEL_TMP being transferred
    OK=OK
    echo data from stdin | env_parallel --pipe -S lo --fifo 'cat {} && echo $OK'
    echo data from stdin | env_parallel --pipe -S lo --cat 'cat {} && echo $OK'

    echo 'bug #52534: Tail of multiline alias is ignored'
    alias myalias='echo alias line 1
      echo alias line 2
      echo alias line 3
    '
    alias myalias2='echo alias2 line 1
      echo alias2 line 2
    '
    env_parallel myalias ::: myalias2
    env_parallel -S lo myalias ::: myalias2
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh mksh@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_env_parallel_sh() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.sh`;
    echo 'bug #50435: Remote fifo broke in 20150522'
    # Due to $PARALLEL_TMP being transferred
    OK=OK
    echo data from stdin | env_parallel --pipe -S lo --fifo 'cat {} && echo $OK'
    echo data from stdin | env_parallel --pipe -S lo --cat 'cat {} && echo $OK'

    echo 'bug #52534: Tail of multiline alias is ignored'
    alias myalias='echo alias line 1
      echo alias line 2
      echo alias line 3
    '
    alias myalias2='echo alias2 line 1
      echo alias2 line 2
    '
    env_parallel myalias ::: myalias2
    env_parallel -S lo myalias ::: myalias2
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh sh@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_env_parallel_tcsh() {
  myscript=$(cat <<'_EOF'
    echo 'bug #50435: Remote fifo broke in 20150522'
    # Due to $PARALLEL_TMP being transferred
    set OK=OK
    echo data from stdin | env_parallel --pipe -S lo --fifo 'cat {} && echo $OK'
    echo data from stdin | env_parallel --pipe -S lo --cat 'cat {} && echo $OK'
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh tcsh@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_env_parallel_zsh() {
  myscript=$(cat <<'_EOF'
    echo 'bug #50435: Remote fifo broke in 20150522'
    # Due to $PARALLEL_TMP being transferred
    OK=OK
    echo data from stdin | env_parallel --pipe -S lo --fifo 'cat {} && echo $OK'
    echo data from stdin | env_parallel --pipe -S lo --cat 'cat {} && echo $OK'

    echo 'bug #52534: Tail of multiline alias is ignored'
    alias myalias='echo alias line 1
      echo alias line 2
      echo alias line 3
    '
    alias myalias2='echo alias2 line 1
      echo alias2 line 2
    '
    env_parallel myalias ::: myalias2
    env_parallel -S lo myalias ::: myalias2
_EOF
  )
  # Order is often different. Dunno why. So sort
  ssh zsh@lo "$myscript" 2>&1 | LC_ALL=C sort
}

par_environment_too_big_ash() {
    echo moved to hwdep1.sh
}

par_environment_too_big_bash() {
  myscript=$(cat <<'_EOF'
    echo 'bug #50815: env_parallel should warn if the environment is too big'
    len_overhead=-27-$( (shopt;alias;typeset -f;typeset -p) | wc -c)/1000
    len_var=$len_overhead+56
    len_var_remote=$len_overhead+40
    len_var_quote=$len_overhead+41
    len_var_quote_remote=$len_overhead+32
    len_fun=$len_overhead+56
    len_fun_remote=$len_overhead+40
    len_fun_quote=$len_overhead+56
    len_fun_quote_remote=$len_overhead+40
    
    . `which env_parallel.bash`;

    repeat() {
      # Repeat input string n*1000 times
      perl -e 'print ((shift)x(eval "1000*int(".shift.")"))' "$@"
    }

    bigvar=$(repeat x $len_var)
    env_parallel echo ::: OK_bigvar
    bigvar=$(repeat x $len_var_remote)
    env_parallel -S lo echo ::: OK_bigvar_remote

    bigvar=$(repeat \" $len_var_quote)
    env_parallel echo ::: OK_bigvar_quote
    bigvar=$(repeat \" $len_var_quote_remote)
    env_parallel -S lo echo ::: OK_bigvar_quote_remote

    bigvar=u
    eval 'bigfunc() { a="'"$(repeat x $len_fun)"'"; };'
    env_parallel echo ::: OK_bigfunc
    eval 'bigfunc() { a="'"$(repeat x $len_fun_remote)"'"; };'
    env_parallel -S lo echo ::: OK_bigfunc_remote

    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote)"'"; };'
    env_parallel echo ::: OK_bigfunc_quote
    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote_remote)"'"; };'
    env_parallel -S lo echo ::: OK_bigfunc_quote_remote
    bigfunc() { true; }

    echo Rest should fail

    bigvar=$(repeat x $len_var+20)
    env_parallel echo ::: fail_bigvar
    bigvar=$(repeat x $len_var_remote+20)
    env_parallel -S lo echo ::: fail_bigvar_remote

    bigvar=$(repeat \" $len_var_quote+20)
    env_parallel echo ::: fail_bigvar_quote
    bigvar=$(repeat \" $len_var_quote_remote+20)
    env_parallel -S lo echo ::: fail_bigvar_quote_remote

    bigvar=u
    eval 'bigfunc() { a="'"$(repeat x $len_fun+20)"'"; };'
    env_parallel echo ::: fail_bigfunc
    eval 'bigfunc() { a="'"$(repeat x $len_fun_remote+20)"'"; };'
    env_parallel -S lo echo ::: fail_bigfunc_remote

    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote+20)"'"; };'
    env_parallel echo ::: fail_bigfunc_quote
    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote_remote+20)"'"; };'
    env_parallel -S lo echo ::: fail_bigfunc_quote_remote

    bigfunc() { true; }
_EOF
  )
  ssh bash@lo "$myscript"
}

par_environment_too_big_csh() {
    echo Not implemented
}

par_environment_too_big_dash() {
    echo moved to hwdep1.sh
}

par_environment_too_big_fish() {
    echo Not implemented
}


par_environment_too_big_ksh() {
  myscript=$(cat <<'_EOF'
    echo 'bug #50815: env_parallel should warn if the environment is too big'
    len_functions=-20-$(functions|wc -c)/1000
    len_variables=-20-$(typeset -p | wc -c)/1000
    len_var=$len_variables+40
    len_var_remote=$len_variables+30
    len_var_quote=$len_variables+43
    len_var_quote_remote=$len_variables+30
    len_fun=$len_functions+43
    len_fun_remote=$len_functions+29
    len_fun_quote=$len_functions+43
    len_fun_quote_remote=$len_functions+29

    . `which env_parallel.ksh`;

    repeat() {
      # Repeat input string n*1000 times
      perl -e 'print ((shift)x(eval "1000*(".shift.")"))' "$@"
    }

    bigvar=$(repeat x $len_var)
    env_parallel echo ::: OK_bigvar
    bigvar=$(repeat x $len_var_remote)
    env_parallel -S lo echo ::: OK_bigvar_remote

    bigvar=$(repeat \" $len_var_quote)
    env_parallel echo ::: OK_bigvar_quote
    bigvar=$(repeat \" $len_var_quote_remote)
    env_parallel -S lo echo ::: OK_bigvar_quote_remote

    bigvar=u
    eval 'bigfunc() { a="'"$(repeat x $len_fun)"'"; };'
    env_parallel echo ::: OK_bigfunc
    eval 'bigfunc() { a="'"$(repeat x $len_fun_remote)"'"; };'
    env_parallel -S lo echo ::: OK_bigfunc_remote

    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote)"'"; };'
    env_parallel echo ::: OK_bigfunc_quote
    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote_remote)"'"; };'
    env_parallel -S lo echo ::: OK_bigfunc_quote_remote
    bigfunc() { true; }

    echo Rest should fail

    bigvar=$(repeat x $len_var+20)
    env_parallel echo ::: fail_bigvar
    bigvar=$(repeat x $len_var_remote+20)
    env_parallel -S lo echo ::: fail_bigvar_remote

    bigvar=$(repeat \" $len_var_quote+20)
    env_parallel echo ::: fail_bigvar_quote
    bigvar=$(repeat \" $len_var_quote_remote+20)
    env_parallel -S lo echo ::: fail_bigvar_quote_remote

    bigvar=u
    eval 'bigfunc() { a="'"$(repeat x $len_fun+20)"'"; };'
    env_parallel echo ::: fail_bigfunc
    eval 'bigfunc() { a="'"$(repeat x $len_fun_remote+20)"'"; };'
    env_parallel -S lo echo ::: fail_bigfunc_remote

    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote+20)"'"; };'
    env_parallel echo ::: fail_bigfunc_quote
    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote_remote+20)"'"; };'
    env_parallel -S lo echo ::: fail_bigfunc_quote_remote

    bigfunc() { true; }
_EOF
  )
  ssh ksh@lo "$myscript"
}

par_environment_too_big_mksh() {
  myscript=$(cat <<'_EOF'
    echo 'bug #50815: env_parallel should warn if the environment is too big'
    len_var=46-15
    len_var_remote=$len_var-15
    len_var_quote=$len_var
    len_var_quote_remote=$len_var-15
    len_fun=28
    len_fun_remote=13
    len_fun_quote=28
    len_fun_quote_remote=18

    . `which env_parallel.mksh`;

    repeat() {
      # Repeat input string n*1000 times
      perl -e 'print ((shift)x(eval "1000*(".shift.")"))' "$@"
    }

    bigvar=$(repeat x $len_var)
    env_parallel echo ::: OK_bigvar
    bigvar=$(repeat x $len_var_remote)
    env_parallel -S lo echo ::: OK_bigvar_remote

    bigvar=$(repeat \" $len_var_quote)
    env_parallel echo ::: OK_bigvar_quote
    bigvar=$(repeat \" $len_var_quote_remote)
    env_parallel -S lo echo ::: OK_bigvar_quote_remote

    bigvar=u
    eval 'bigfunc() { a="'"$(repeat x $len_fun)"'"; };'
    env_parallel echo ::: OK_bigfunc
    eval 'bigfunc() { a="'"$(repeat x $len_fun_remote)"'"; };'
    env_parallel -S lo echo ::: OK_bigfunc_remote

    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote)"'"; };'
    env_parallel echo ::: OK_bigfunc_quote
    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote_remote)"'"; };'
    env_parallel -S lo echo ::: OK_bigfunc_quote_remote
    bigfunc() { true; }

    echo Rest should fail

    # Add 10 or 100. It differs a bit from system to system
    bigvar=$(repeat x $len_var+20)
    env_parallel echo ::: fail_bigvar
    bigvar=$(repeat x $len_var_remote+10)
    env_parallel -S lo echo ::: fail_bigvar_remote

    bigvar=$(repeat \" $len_var_quote+20)
    env_parallel echo ::: fail_bigvar_quote
    bigvar=$(repeat \" $len_var_quote_remote+20)
    env_parallel -S lo echo ::: fail_bigvar_quote_remote

    bigvar=u
    eval 'bigfunc() { a="'"$(repeat x $len_fun+20)"'"; };'
    env_parallel echo ::: fail_bigfunc
    eval 'bigfunc() { a="'"$(repeat x $len_fun_remote+20)"'"; };'
    env_parallel -S lo echo ::: fail_bigfunc_remote

    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote+20)"'"; };'
    env_parallel echo ::: fail_bigfunc_quote
    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote_remote+10)"'"; };'
    env_parallel -S lo echo ::: fail_bigfunc_quote_remote

    bigfunc() { true; }
_EOF
  )
  ssh mksh@lo "$myscript"
}

par_environment_too_big_sh() {
  myscript=$(cat <<'_EOF'
    echo 'bug #50815: env_parallel should warn if the environment is too big'
    len_var=58
    len_var_remote=42
    len_var_quote=31
    len_var_quote_remote=21
    len_fun=1 # unsupported
    len_fun_remote=1 # unsupported
    len_fun_quote=1 # unsupported
    len_fun_quote_remote=1 # unsupported
    
    . `which env_parallel.sh`;

    repeat() {
      # Repeat input string n*1000 times
      perl -e 'print ((shift)x(eval "1000*(".shift.")"))' "$@"
    }

    bigvar=$(repeat x $len_var)
    env_parallel echo ::: OK_bigvar
    bigvar=$(repeat x $len_var_remote)
    env_parallel -S lo echo ::: OK_bigvar_remote

    bigvar=$(repeat \" $len_var_quote)
    env_parallel echo ::: OK_bigvar_quote
    bigvar=$(repeat \" $len_var_quote_remote)
    env_parallel -S lo echo ::: OK_bigvar_quote_remote

    bigvar=u
    eval 'bigfunc() { a="'"$(repeat x $len_fun)"'"; };'
    env_parallel echo ::: OK_bigfunc
    eval 'bigfunc() { a="'"$(repeat x $len_fun_remote)"'"; };'
    env_parallel -S lo echo ::: OK_bigfunc_remote

    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote)"'"; };'
    env_parallel echo ::: OK_bigfunc_quote
    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote_remote)"'"; };'
    env_parallel -S lo echo ::: OK_bigfunc_quote_remote
    bigfunc() { true; }

    echo Rest should fail - functions not supported in sh

    bigvar=$(repeat x $len_var+10)
    env_parallel echo ::: fail_bigvar
    bigvar=$(repeat x $len_var_remote+10)
    env_parallel -S lo echo ::: fail_bigvar_remote

    bigvar=$(repeat \" $len_var_quote+10)
    env_parallel echo ::: fail_bigvar_quote
    bigvar=$(repeat \" $len_var_quote_remote+10)
    env_parallel -S lo echo ::: fail_bigvar_quote_remote

    bigvar=u
    eval 'bigfunc() { a="'"$(repeat x $len_fun+10)"'"; };'
    env_parallel echo ::: fail_bigfunc-not-supported
    eval 'bigfunc() { a="'"$(repeat x $len_fun_remote+10)"'"; };'
    env_parallel -S lo echo ::: fail_bigfunc_remote-not-supported

    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote+10)"'"; };'
    env_parallel echo ::: fail_bigfunc_quote-not-supported
    eval 'bigfunc() { a="'"$(repeat \" $len_fun_quote_remote+10)"'"; };'
    env_parallel -S lo echo ::: fail_bigfunc_quote_remote-not-supported

    bigfunc() { true; }
_EOF
  )
  ssh sh@lo "$myscript"
}

par_environment_too_big_tcsh() {
    echo Not implemented
}

par_environment_too_big_zsh() {
    echo moved to hwdep1.sh
}

par_parset_ash() {
  myscript=$(cat <<'_EOF'
    echo 'parset'
    . `which env_parallel.ash`

#    Arrays not supported
#    echo '### parset into array'
#    parset arr1 echo ::: foo bar baz
#    echo ${arr1[0]} ${arr1[1]} ${arr1[2]}

    echo '### parset into vars with comma'
    parset comma3,comma2,comma1 echo ::: baz bar foo
    echo $comma1 $comma2 $comma3

    echo '### parset into vars with space'
    parset 'space3 space2 space1' echo ::: baz bar foo
    echo $space1 $space2 $space3

    echo '### parset with newlines'
    parset 'newline3 newline2 newline1' seq ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"

#    Arrays not supported
#    echo '### parset into indexed array vars'
#    parset 'myarray[6],myarray[5],myarray[4]' echo ::: baz bar foo
#    echo ${myarray[*]}
#    echo ${myarray[4]} ${myarray[5]} ${myarray[6]}

    echo '### env_parset'
    myfun() {
        myecho myfun "$@";
    }
    alias myecho='echo myecho "$myvar"'
    myvar="myvar"
#    Arrays not supported
#    myarr=("myarr  0" "myarr  1" "myarr  2")
    mynewline="`echo newline1;echo newline2;`"
#    Arrays not supported
#    env_parset arr1 myfun ::: foo bar baz
#    echo "${arr1[0]} ${arr1[1]} ${arr1[2]}"
    env_parset comma3,comma2,comma1 myecho ::: baz bar foo
    echo "$comma1 $comma2 $comma3"
    env_parset 'space3 space2 space1' myecho ::: baz bar foo
    echo "$space1 $space2 $space3"
    env_parset 'newline3 newline2 newline1' 'echo "$mynewline";seq' ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"
#    Arrays not supported
#    env_parset 'myarray[6],myarray[5],myarray[4]' myfun ::: baz bar foo
#    echo "${myarray[*]}"
#    echo "${myarray[4]} ${myarray[5]} ${myarray[6]}"
    parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
    env_parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
_EOF
  )
  ssh ash@lo "$myscript"
}

par_parset_bash() {
  myscript=$(cat <<'_EOF'
    echo 'parset'
    . `which env_parallel.bash`

    echo '### parset into array'
    parset arr1 echo ::: foo bar baz
    echo ${arr1[0]} ${arr1[1]} ${arr1[2]}

    echo '### parset into vars with comma'
    parset comma3,comma2,comma1 echo ::: baz bar foo
    echo $comma1 $comma2 $comma3

    echo '### parset into vars with space'
    parset 'space3 space2 space1' echo ::: baz bar foo
    echo $space1 $space2 $space3

    echo '### parset with newlines'
    parset 'newline3 newline2 newline1' seq ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"

    echo '### parset into indexed array vars'
    parset 'myarray[6],myarray[5],myarray[4]' echo ::: baz bar foo
    echo ${myarray[*]}
    echo ${myarray[4]} ${myarray[5]} ${myarray[6]}

    echo '### env_parset'
    myfun() {
        myecho myfun "$@";
    }
    alias myecho='echo myecho "$myvar" "${myarr[1]}"'
    myvar="myvar"
    myarr=("myarr  0" "myarr  1" "myarr  2")
    mynewline="`echo newline1;echo newline2;`"
    env_parset arr1 myfun ::: foo bar baz
    echo "${arr1[0]} ${arr1[1]} ${arr1[2]}"
    env_parset comma3,comma2,comma1 myfun ::: baz bar foo
    echo "$comma1 $comma2 $comma3"
    env_parset 'space3 space2 space1' myfun ::: baz bar foo
    echo "$space1 $space2 $space3"
    env_parset 'newline3 newline2 newline1' 'echo "$mynewline";seq' ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"
    env_parset 'myarray[6],myarray[5],myarray[4]' myfun ::: baz bar foo
    echo "${myarray[*]}"
    echo "${myarray[4]} ${myarray[5]} ${myarray[6]}"
    parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
    env_parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
_EOF
  )
  ssh bash@lo "$myscript"
}

par_parset_csh() {
    echo Not implemented
}

par_parset_dash() {
  myscript=$(cat <<'_EOF'
    echo 'parset'
    . `which env_parallel.dash`

#    Arrays not supported
#    echo '### parset into array'
#    parset arr1 echo ::: foo bar baz
#    echo ${arr1[0]} ${arr1[1]} ${arr1[2]}

    echo '### parset into vars with comma'
    parset comma3,comma2,comma1 echo ::: baz bar foo
    echo $comma1 $comma2 $comma3

    echo '### parset into vars with space'
    parset 'space3 space2 space1' echo ::: baz bar foo
    echo $space1 $space2 $space3

    echo '### parset with newlines'
    parset 'newline3 newline2 newline1' seq ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"

#    Arrays not supported
#    echo '### parset into indexed array vars'
#    parset 'myarray[6],myarray[5],myarray[4]' echo ::: baz bar foo
#    echo ${myarray[*]}
#    echo ${myarray[4]} ${myarray[5]} ${myarray[6]}

    echo '### env_parset'
    myfun() {
        myecho myfun "$@";
    }
    alias myecho='echo myecho "$myvar"'
    myvar="myvar"
#    Arrays not supported
#    myarr=("myarr  0" "myarr  1" "myarr  2")
    mynewline="`echo newline1;echo newline2;`"
#    Arrays not supported
#    env_parset arr1 myfun ::: foo bar baz
#    echo "${arr1[0]} ${arr1[1]} ${arr1[2]}"
    env_parset comma3,comma2,comma1 myecho ::: baz bar foo
    echo "$comma1 $comma2 $comma3"
    env_parset 'space3 space2 space1' myecho ::: baz bar foo
    echo "$space1 $space2 $space3"
    env_parset 'newline3 newline2 newline1' 'echo "$mynewline";seq' ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"
#    Arrays not supported
#    env_parset 'myarray[6],myarray[5],myarray[4]' myfun ::: baz bar foo
#    echo "${myarray[*]}"
#    echo "${myarray[4]} ${myarray[5]} ${myarray[6]}"
    parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
    env_parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
_EOF
  )
  ssh dash@lo "$myscript"
}

par_parset_fish() {
    echo Not implemented
}

par_parset_ksh() {
  myscript=$(cat <<'_EOF'
    echo 'parset'
    . `which env_parallel.ksh`

    echo '### parset into array'
    parset arr1 echo ::: foo bar baz
    echo ${arr1[0]} ${arr1[1]} ${arr1[2]}

    echo '### parset into vars with comma'
    parset comma3,comma2,comma1 echo ::: baz bar foo
    echo $comma1 $comma2 $comma3

    echo '### parset into vars with space'
    parset 'space3 space2 space1' echo ::: baz bar foo
    echo $space1 $space2 $space3

    echo '### parset with newlines'
    parset 'newline3 newline2 newline1' seq ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"

    echo '### parset into indexed array vars'
    parset 'myarray[6],myarray[5],myarray[4]' echo ::: baz bar foo
    echo ${myarray[*]}
    echo ${myarray[4]} ${myarray[5]} ${myarray[6]}

    echo '### env_parset'
    myfun() {
        myecho myfun "$@";
    }
    alias myecho='echo myecho "$myvar" "${myarr[1]}"'
    myvar="myvar"
    myarr=("myarr  0" "myarr  1" "myarr  2")
    mynewline="`echo newline1;echo newline2;`"
    env_parset arr1 myfun ::: foo bar baz
    echo "${arr1[0]} ${arr1[1]} ${arr1[2]}"
    env_parset comma3,comma2,comma1 myfun ::: baz bar foo
    echo "$comma1 $comma2 $comma3"
    env_parset 'space3 space2 space1' myfun ::: baz bar foo
    echo "$space1 $space2 $space3"
    env_parset 'newline3 newline2 newline1' 'echo "$mynewline";seq' ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"
    env_parset 'myarray[6],myarray[5],myarray[4]' myfun ::: baz bar foo
    echo "${myarray[*]}"
    echo "${myarray[4]} ${myarray[5]} ${myarray[6]}"
    parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
    env_parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
_EOF
  )
  ssh ksh@lo "$myscript"
}

par_parset_mksh() {
  myscript=$(cat <<'_EOF'
    echo 'parset'
    . `which env_parallel.mksh`

    echo '### parset into array'
    parset arr1 echo ::: foo bar baz
    echo ${arr1[0]} ${arr1[1]} ${arr1[2]}

    echo '### parset into vars with comma'
    parset comma3,comma2,comma1 echo ::: baz bar foo
    echo $comma1 $comma2 $comma3

    echo '### parset into vars with space'
    parset 'space3 space2 space1' echo ::: baz bar foo
    echo $space1 $space2 $space3

    echo '### parset with newlines'
    parset 'newline3 newline2 newline1' seq ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"

    echo '### parset into indexed array vars'
    parset 'myarray[6],myarray[5],myarray[4]' echo ::: baz bar foo
    echo ${myarray[*]}
    echo ${myarray[4]} ${myarray[5]} ${myarray[6]}

    echo '### env_parset'
    # bug in mksh: Alias must be set before
    alias myecho='echo myecho "$myvar" "${myarr[1]}"'
    myfun() {
        myecho myfun "$@";
    }
    alias myecho='echo myecho "$myvar" "${myarr[1]}"'
    myvar="myvar"
    myarr=("myarr  0" "myarr  1" "myarr  2")
    mynewline="`echo newline1;echo newline2;`"
    env_parset arr1 myfun ::: foo bar baz
    echo "${arr1[0]} ${arr1[1]} ${arr1[2]}"
    env_parset comma3,comma2,comma1 myfun ::: baz bar foo
    echo "$comma1 $comma2 $comma3"
    env_parset 'space3 space2 space1' myfun ::: baz bar foo
    echo "$space1 $space2 $space3"
    env_parset 'newline3 newline2 newline1' 'echo "$mynewline";seq' ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"
    env_parset 'myarray[6],myarray[5],myarray[4]' myfun ::: baz bar foo
    echo "${myarray[*]}"
    echo "${myarray[4]} ${myarray[5]} ${myarray[6]}"
    parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
    env_parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
_EOF
  )
  ssh mksh@lo "$myscript"
}

par_parset_sh() {
  myscript=$(cat <<'_EOF'
    echo 'parset'
    . `which env_parallel.sh`

#    echo '### parset into array'
#    echo "Arrays not supported in all sh's"
#    parset arr1 echo ::: foo bar baz
#    echo ${arr1[0]} ${arr1[1]} ${arr1[2]}

    echo '### parset into vars with comma'
    parset comma3,comma2,comma1 echo ::: baz bar foo
    echo $comma1 $comma2 $comma3

    echo '### parset into vars with space'
    parset 'space3 space2 space1' echo ::: baz bar foo
    echo $space1 $space2 $space3

    echo '### parset with newlines'
    parset 'newline3 newline2 newline1' seq ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"

#    echo '### parset into indexed array vars'
#    echo "Arrays not supported in all sh's"
#    parset 'myarray[6],myarray[5],myarray[4]' echo ::: baz bar foo
#    echo ${myarray[*]}
#    echo ${myarray[4]} ${myarray[5]} ${myarray[6]}

    echo '### env_parset'
    echo '# alias'
    alias myalias='echo myalias'
    env_parset alias3,alias2,alias1 myalias ::: baz bar foo
    echo "$alias1"
    echo "$alias2"
    echo "$alias3"

#    echo '# function'
#    echo "Arrays not supported in all sh's"
#    myfun() {
#        echo myfun "$@";
#    }
#    env_parset fun3,fun2,fun1 myfun ::: baz bar foo
#    echo "$fun1"
#    echo "$fun2"
#    echo "$fun3"

    echo '# variable with newline'
    myvar="`echo newline1;echo newline2;`"
    env_parset var3,var2,var1 'echo "$myvar"' ::: baz bar foo
    echo "$var1"
    echo "$var2"
    echo "$var3"

#    Arrays not supported
#    myarr=("myarr  0" "myarr  1" "myarr  2")
#    Arrays not supported
#    env_parset arr1 myfun ::: foo bar baz
#    echo "${arr1[0]} ${arr1[1]} ${arr1[2]}"

    echo '### parset into vars with comma'
    env_parset comma3,comma2,comma1 echo ::: baz bar foo
    echo "$comma1 $comma2 $comma3"
    echo '### parset into vars with space'
    env_parset 'space3 space2 space1' echo ::: baz bar foo
    echo "$space1 $space2 $space3"
    echo '### parset with newlines'
    mynewline="`echo newline1;echo newline2;`"
    env_parset 'newline3 newline2 newline1' 'echo "$mynewline";seq' ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"
#    Arrays not supported
#    env_parset 'myarray[6],myarray[5],myarray[4]' myfun ::: baz bar foo
#    echo "${myarray[*]}"
#    echo "${myarray[4]} ${myarray[5]} ${myarray[6]}"
    parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
    env_parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
_EOF
  )
  ssh sh@lo "$myscript"
}

par_parset_tcsh() {
    echo Not implemented
}

par_parset_zsh() {
  myscript=$(cat <<'_EOF'
    echo 'parset'
    . `which env_parallel.zsh`
    eval "`cat <<"_EOS";

    echo '### parset into array'
    parset arr1 echo ::: foo bar baz
    echo ${arr1[1]} ${arr1[2]} ${arr1[3]}

    echo '### parset into vars with comma'
    parset comma3,comma2,comma1 echo ::: baz bar foo
    echo $comma1 $comma2 $comma3

    echo '### parset into vars with space'
    parset 'space3 space2 space1' echo ::: baz bar foo
    echo $space1 $space2 $space3

    echo '### parset with newlines'
    parset 'newline3 newline2 newline1' seq ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"

    echo '### parset into indexed array vars'
    parset 'myarray[6],myarray[5],myarray[4]' echo ::: baz bar foo
    echo ${myarray[*]}
    echo ${myarray[4]} ${myarray[5]} ${myarray[6]}

    echo '### env_parset'
    alias myecho='echo myecho "$myvar" "${myarr[1]}"';
    # eval is needed because zsh does not see alias in function otherwise
    eval "myfun() {
        myecho myfun \"\$\@\"
    }"
    myvar="myvar"
    myarr=("myarr  0" "myarr  1" "myarr  2")
    mynewline="$(echo newline1;echo newline2;)"
    env_parset arr1 myfun {} ::: foo bar baz
    echo "${arr1[1]}"
    echo "${arr1[2]}"
    echo "${arr1[3]}"
    env_parset comma3,comma2,comma1 myfun ::: baz bar foo
    echo "$comma1"
    echo "$comma2"
    echo "$comma3"
    env_parset 'space3 space2 space1' myfun ::: baz bar foo
    echo "$space1"
    echo "$space2"
    echo "$space3"
    env_parset 'newline3 newline2 newline1' 'echo "$mynewline";seq' ::: 3 2 1
    echo "$newline1"
    echo "$newline2"
    echo "$newline3"
    env_parset 'myarray[6],myarray[5],myarray[4]' myfun ::: baz bar foo
    echo "${myarray[*]}"
    echo "${myarray[4]} ${myarray[5]} ${myarray[6]}"
    parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
    env_parset a,b,c,d 'echo {};exit {}' ::: 0 1 1 0
    echo Exit value 2 = $?
_EOS`"
_EOF
  )
  ssh zsh@lo "$myscript"
}

### env_parallel_session

par_env_parallel_--session_ash() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.ash`
    echo '### Test env_parallel --session'

    level0var=l0var
# Arrays and functions not supported
#   level0arr=(level0 array)
#   level0func() { echo l0func; }
    alias level0alias='echo l0alias'

    env_parallel --session

    level1var=l1var
# Arrays and functions not supported
#    level1arr=(level1 array)
#    level1func() { echo l1func; }
    alias level1alias='echo l1alias'

    echo '### level0 should be hidden, level1 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK

    env_parallel --session

    level2var=l2var
# Arrays and functions not supported
#    level2arr=(level2 array)
#    level2func() { echo l2func; }
    alias level2alias='echo l2alias'

    echo '### level0+1 should be hidden, level2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0 should be hidden, level1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0+1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    alias aliasbefore='echo before'
# Functions not supported
#    varbefore='before'
#    funcbefore() { echo 'before' "$@"; }
# Arrays not supported
#    arraybefore=(array before)
    env_parallel --session
    # stuff defined
    env_parallel aliasbefore ::: must_fail
    env_parallel -S lo aliasbefore ::: must_fail
# Functions not supported
#    env_parallel funcbefore ::: must_fail
#    env_parallel -S lo funcbefore ::: must_fail
    env_parallel echo '$varbefore' ::: no_before
    env_parallel -S lo echo '$varbefore' ::: no_before
# Arrays not supported
#    env_parallel echo '${arraybefore[*]}' ::: no_before
#    env_parallel -S lo echo '${arraybefore[*]}' ::: no_before
    alias aliasafter='echo after'
    varafter='after'
# Functions not supported
#    funcafter() { echo 'after' "$@"; }
# Arrays not supported
#    arrayafter=(array after)
    env_parallel aliasafter ::: aliasafter_OK
    env_parallel -S lo aliasafter ::: aliasafter_OK
# Functions not supported
#    env_parallel funcafter ::: funcafter_OK
#    env_parallel -S lo funcafter ::: funcafter_OK
    env_parallel echo '$varafter' ::: varafter_OK
    env_parallel -S lo echo '$varafter' ::: varafter_OK
# Arrays not supported
#    env_parallel echo '${arrayafter[*]}' ::: arrayafter_OK
#    env_parallel -S lo echo '${arrayafter[*]}' ::: arrayafter_OK
    unset PARALLEL_IGNORED_NAMES
_EOF
  )
  ssh ash@lo "$myscript"
}

par_env_parallel_--session_bash() {
  myscript=$(cat <<'_EOF'
    echo '### Test env_parallel --session / --end-session'
    . `which env_parallel.bash`

    level0var=l0var
    level0arr=(level0 array)
    level0func() { echo l0func; }
    alias level0alias='echo l0alias'

    env_parallel --session

    level1var=l1var
    level1arr=(level1 array)
    level1func() { echo l1func; }
    alias level1alias='echo l1alias'

    echo '### level0 should be hidden, level1 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK

    env_parallel --session

    level2var=l2var
    level2arr=(level2 array)
    level2func() { echo l2func; }
    alias level2alias='echo l2alias'

    echo '### level0+1 should be hidden, level2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0 should be hidden, level1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0+1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    alias aliasl0='echo l0'
    varl0='l0'
    funcl0() { echo 'l0' "$@"; }
    arrayl0=(array l0)
    env_parallel --session
    # stuff defined
    env_parallel aliasl0 ::: must_fail
    env_parallel -S lo aliasl0 ::: must_fail
    env_parallel funcl0 ::: must_fail
    env_parallel -S lo funcl0 ::: must_fail
    env_parallel echo '$varl0' ::: no_before
    env_parallel -S lo echo '$varl0' ::: no_before
    env_parallel echo '${arrayl0[*]}' ::: no_before
    env_parallel -S lo echo '${arrayl0[*]}' ::: no_before
    alias aliasl1='echo l1'
    varl1='l1'
    funcl1() { echo 'l1' "$@"; }
    arrayl1=(array l1)
    env_parallel aliasl1 ::: aliasl1_OK
    env_parallel -S lo aliasl1 ::: aliasl1_OK
    env_parallel funcl1 ::: funcl1_OK
    env_parallel -S lo funcl1 ::: funcl1_OK
    env_parallel echo '$varl1' ::: varl1_OK
    env_parallel -S lo echo '$varl1' ::: varl1_OK
    env_parallel echo '${arrayl1[*]}' ::: arrayl1_OK
    env_parallel -S lo echo '${arrayl1[*]}' ::: arrayl1_OK


    unset PARALLEL_IGNORED_NAMES
_EOF
  )
  ssh bash@lo "$myscript"
}

par_env_parallel_--session_csh() {
    echo Not implemented
}

par_env_parallel_--session_dash() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.dash`
    echo '### Test env_parallel --session'

    level0var=l0var
# Arrays and functions not supported
#   level0arr=(level0 array)
#   level0func() { echo l0func; }
    alias level0alias='echo l0alias'

    env_parallel --session

    level1var=l1var
# Arrays and functions not supported
#    level1arr=(level1 array)
#    level1func() { echo l1func; }
    alias level1alias='echo l1alias'

    echo '### level0 should be hidden, level1 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK

    env_parallel --session

    level2var=l2var
# Arrays and functions not supported
#    level2arr=(level2 array)
#    level2func() { echo l2func; }
    alias level2alias='echo l2alias'

    echo '### level0+1 should be hidden, level2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0 should be hidden, level1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0+1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    alias aliasbefore='echo before'
    varbefore='before'
# Functions not supported
#    funcbefore() { echo 'before' "$@"; }
# Arrays not supported
#    arraybefore=(array before)
    env_parallel --session
    # stuff defined
    env_parallel aliasbefore ::: must_fail
    env_parallel -S lo aliasbefore ::: must_fail
# Functions not supported
#    env_parallel funcbefore ::: must_fail
#    env_parallel -S lo funcbefore ::: must_fail
    env_parallel echo '$varbefore' ::: no_before
    env_parallel -S lo echo '$varbefore' ::: no_before
# Arrays not supported
#    env_parallel echo '${arraybefore[*]}' ::: no_before
#    env_parallel -S lo echo '${arraybefore[*]}' ::: no_before
    alias aliasafter='echo after'
    varafter='after'
# Functions not supported
#    funcafter() { echo 'after' "$@"; }
# Arrays not supported
#    arrayafter=(array after)
    env_parallel aliasafter ::: aliasafter_OK
    env_parallel -S lo aliasafter ::: aliasafter_OK
# Functions not supported
#    env_parallel funcafter ::: funcafter_OK
#    env_parallel -S lo funcafter ::: funcafter_OK
    env_parallel echo '$varafter' ::: varafter_OK
    env_parallel -S lo echo '$varafter' ::: varafter_OK
# Arrays not supported
#    env_parallel echo '${arrayafter[*]}' ::: arrayafter_OK
#    env_parallel -S lo echo '${arrayafter[*]}' ::: arrayafter_OK
    unset PARALLEL_IGNORED_NAMES
_EOF
  )
  ssh dash@lo "$myscript"
}

par_env_parallel_--session_fish() {
  myscript=$(cat <<'_EOF'
    . (which env_parallel.fish)

    echo '### Test env_parallel --session'

    alias aliasbefore='echo before'
    set varbefore 'before'
    function funcbefore
      echo 'before' "$argv"
    end
    set arraybefore array before
    env_parallel --session
    # stuff defined
    env_parallel aliasbefore ::: must_fail
    env_parallel -S lo aliasbefore ::: must_fail
    env_parallel funcbefore ::: must_fail
    env_parallel -S lo funcbefore ::: must_fail
    env_parallel echo '$varbefore' ::: no_before
    env_parallel -S lo echo '$varbefore' ::: no_before
    env_parallel echo '$arraybefore' ::: no_before
    env_parallel -S lo echo '$arraybefore' ::: no_before
    alias aliasafter='echo after'
    set varafter 'after'
    function funcafter
      echo 'after' "$argv"
    end
    set arrayafter array after
    env_parallel aliasafter ::: aliasafter_OK
    env_parallel -S lo aliasafter ::: aliasafter_OK
    env_parallel funcafter ::: funcafter_OK
    env_parallel -S lo funcafter ::: funcafter_OK
    env_parallel echo '$varafter' ::: varafter_OK
    env_parallel -S lo echo '$varafter' ::: varafter_OK
    env_parallel echo '$arrayafter' ::: arrayafter_OK
    env_parallel -S lo echo '$arrayafter' ::: arrayafter_OK
    set -e PARALLEL_IGNORED_NAMES
_EOF
  )
  ssh fish@lo "$myscript" 2>&1 |
      perl -pe 's/^[ ~^]+$//g'
}

par_env_parallel_--session_ksh() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.ksh`
    echo '### Test env_parallel --session'

    level0var=l0var
    level0arr=(level0 array)
    level0func() { echo l0func; }
    alias level0alias='echo l0alias'

    env_parallel --session

    level1var=l1var
    level1arr=(level1 array)
    level1func() { echo l1func; }
    alias level1alias='echo l1alias'

    echo '### level0 should be hidden, level1 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK

    env_parallel --session

    level2var=l2var
    level2arr=(level2 array)
    level2func() { echo l2func; }
    alias level2alias='echo l2alias'

    echo '### level0+1 should be hidden, level2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0 should be hidden, level1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0+1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    alias aliasbefore='echo before'
    varbefore='before'
    funcbefore() { echo 'before' "$@"; }
    arraybefore=(array before)
    env_parallel --session
    # stuff defined
    env_parallel aliasbefore ::: must_fail
    env_parallel -S lo aliasbefore ::: must_fail
    env_parallel funcbefore ::: must_fail
    env_parallel -S lo funcbefore ::: must_fail
    env_parallel echo '$varbefore' ::: no_before
    env_parallel -S lo echo '$varbefore' ::: no_before
    env_parallel echo '${arraybefore[*]}' ::: no_before
    env_parallel -S lo echo '${arraybefore[*]}' ::: no_before
    alias aliasafter='echo after'
    varafter='after'
    funcafter() { echo 'after' "$@"; }
    arrayafter=(array after)
    env_parallel aliasafter ::: aliasafter_OK
    env_parallel -S lo aliasafter ::: aliasafter_OK
    env_parallel funcafter ::: funcafter_OK
    env_parallel -S lo funcafter ::: funcafter_OK
    env_parallel echo '$varafter' ::: varafter_OK
    env_parallel -S lo echo '$varafter' ::: varafter_OK
    env_parallel echo '${arrayafter[*]}' ::: arrayafter_OK
    env_parallel -S lo echo '${arrayafter[*]}' ::: arrayafter_OK
    unset PARALLEL_IGNORED_NAMES
_EOF
  )
  ssh ksh@lo "$myscript"
}

par_env_parallel_--session_mksh() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.mksh`
    echo '### Test env_parallel --session'

    level0var=l0var
    level0arr=(level0 array)
    level0func() { echo l0func; }
    alias level0alias='echo l0alias'

    env_parallel --session

    level1var=l1var
    level1arr=(level1 array)
    level1func() { echo l1func; }
    alias level1alias='echo l1alias'

    echo '### level0 should be hidden, level1 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK

    env_parallel --session

    level2var=l2var
    level2arr=(level2 array)
    level2func() { echo l2func; }
    alias level2alias='echo l2alias'

    echo '### level0+1 should be hidden, level2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0 should be hidden, level1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0+1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    alias aliasbefore='echo before'
    varbefore='before'
    funcbefore() { echo 'before' "$@"; }
    arraybefore=(array before)
    env_parallel --session
    # stuff defined
    env_parallel aliasbefore ::: must_fail
    env_parallel -S lo aliasbefore ::: must_fail
    env_parallel funcbefore ::: must_fail
    env_parallel -S lo funcbefore ::: must_fail
    env_parallel echo '$varbefore' ::: no_before
    env_parallel -S lo echo '$varbefore' ::: no_before
    env_parallel echo '${arraybefore[*]}' ::: no_before
    env_parallel -S lo echo '${arraybefore[*]}' ::: no_before
    alias aliasafter='echo after'
    varafter='after'
    funcafter() { echo 'after' "$@"; }
    arrayafter=(array after)
    env_parallel aliasafter ::: aliasafter_OK
    env_parallel -S lo aliasafter ::: aliasafter_OK
    env_parallel funcafter ::: funcafter_OK
    env_parallel -S lo funcafter ::: funcafter_OK
    env_parallel echo '$varafter' ::: varafter_OK
    env_parallel -S lo echo '$varafter' ::: varafter_OK
    env_parallel echo '${arrayafter[*]}' ::: arrayafter_OK
    env_parallel -S lo echo '${arrayafter[*]}' ::: arrayafter_OK
    unset PARALLEL_IGNORED_NAMES
_EOF
  )
  stdout ssh mksh@lo "$myscript" |
      perl -pe 's/^[EŴ]:/EW:/g'
}

par_env_parallel_--session_sh() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.sh`
    echo '### Test env_parallel --session'

    level0var=l0var
#    level0arr=(level0 array)
    level0func() { echo l0func; }
#    alias level0alias='echo l0alias'

    env_parallel --session

    level1var=l1var
#    level1arr=(level1 array)
    level1func() { echo l1func; }
#    alias level1alias='echo l1alias'

    echo '### level0 should be hidden, level1 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK

    env_parallel --session

    level2var=l2var
#    level2arr=(level2 array)
    level2func() { echo l2func; }
#    alias level2alias='echo l2alias'

    echo '### level0+1 should be hidden, level2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0 should be hidden, level1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0+1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    alias aliasbefore='echo before'
    varbefore='before'
    funcbefore() { echo 'before' "$@"; }
#    Arrays not supported
#    arraybefore=(array before)
    env_parallel --session
    # stuff defined
    env_parallel aliasbefore ::: must_fail
    env_parallel -S lo aliasbefore ::: must_fail
    env_parallel funcbefore ::: must_fail
    env_parallel -S lo funcbefore ::: must_fail
    env_parallel echo '$varbefore' ::: no_before
    env_parallel -S lo echo '$varbefore' ::: no_before
#    Arrays not supported
#    env_parallel echo '${arraybefore[*]}' ::: no_before
#    env_parallel -S lo echo '${arraybefore[*]}' ::: no_before
    alias aliasafter='echo after'
    varafter='after'
    funcafter() { echo 'after' "$@"; }
#    Arrays not supported
#    arrayafter=(array after)
    env_parallel aliasafter ::: aliasafter_OK
    env_parallel -S lo aliasafter ::: aliasafter_OK
    env_parallel funcafter ::: funcafter_OK
    env_parallel -S lo funcafter ::: funcafter_OK
    env_parallel echo '$varafter' ::: varafter_OK
    env_parallel -S lo echo '$varafter' ::: varafter_OK
#    Arrays not supported
#    env_parallel echo '${arrayafter[*]}' ::: arrayafter_OK
#    env_parallel -S lo echo '${arrayafter[*]}' ::: arrayafter_OK
    unset PARALLEL_IGNORED_NAMES
_EOF
  )
  ssh sh@lo "$myscript"
}

par_env_parallel_--session_tcsh() {
    echo Not implemented
}

par_env_parallel_--session_zsh() {
  myscript=$(cat <<'_EOF'
    . `which env_parallel.zsh`
    eval "`cat <<"_EOS";
    echo '### Test env_parallel --session'

    level0var=l0var
    level0arr=(level0 array)
    level0func() { echo l0func; }
    alias level0alias='echo l0alias'

    env_parallel --session

    level1var=l1var
    level1arr=(level1 array)
    level1func() { echo l1func; }
    alias level1alias='echo l1alias'

    echo '### level0 should be hidden, level1 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK

    env_parallel --session

    level2var=l2var
    level2arr=(level2 array)
    level2func() { echo l2func; }
    alias level2alias='echo l2alias'

    echo '### level0+1 should be hidden, level2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0 should be hidden, level1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: fail 2>&1
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    env_parallel --endsession

    echo '### level0+1+2 should be transferred'
    env_parallel -Slo 'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel      'echo $level0var; level0func; level0alias; echo ${level0arr[*]}' ::: OK
    env_parallel -Slo 'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel      'echo $level1var; level1func; level1alias; echo ${level1arr[*]}' ::: OK
    env_parallel -Slo 'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK
    env_parallel      'echo $level2var; level2func; level2alias; echo ${level2arr[*]}' ::: OK

    alias aliasbefore='echo before'
    varbefore='before'
    funcbefore() { echo 'before' "$@"; }
    arraybefore=(array before)
    env_parallel --session
    # stuff defined
    env_parallel aliasbefore ::: must_fail
    env_parallel -S lo aliasbefore ::: must_fail
    env_parallel funcbefore ::: must_fail
    env_parallel -S lo funcbefore ::: must_fail
    env_parallel echo '$varbefore' ::: no_before
    env_parallel -S lo echo '$varbefore' ::: no_before
    env_parallel echo '${arraybefore[*]}' ::: no_before
    env_parallel -S lo echo '${arraybefore[*]}' ::: no_before
    alias aliasafter='echo after'
    varafter='after'
    funcafter() { echo 'after' "$@"; }
    arrayafter=(array after)
    env_parallel aliasafter ::: aliasafter_OK
    env_parallel -S lo aliasafter ::: aliasafter_OK
    env_parallel funcafter ::: funcafter_OK
    env_parallel -S lo funcafter ::: funcafter_OK
    env_parallel echo '$varafter' ::: varafter_OK
    env_parallel -S lo echo '$varafter' ::: varafter_OK
    env_parallel echo '${arrayafter[*]}' ::: arrayafter_OK
    env_parallel -S lo echo '${arrayafter[*]}' ::: arrayafter_OK
    unset PARALLEL_IGNORED_NAMES
_EOS`"
_EOF
  )
  ssh zsh@lo "$myscript"
}

export -f $(compgen -A function | grep par_)

clean_output() {
    perl -pe 's/line \d\d+/line 99/g;
              s/\d+ >= \d+/999 >= 999/;
              s/sh:? \d?\d\d:/sh: 999:/;
              s/:\d?\d\d:/:999:/;
              s/sh\[\d+\]/sh[999]/;
	      s/.*(tange|zenodo).*//i;
	      s:/usr/bin:/bin:g;
	      s:/tmp/par-job-\d+_.....\[\d+\]:script[9]:g;
	      s!/tmp/par-job-\d+_.....!script!g;
    	      s/script: \d\d+/script: 99/g;
	      '
}
    
# --retries 2 due to ssh_exchange_identification: read: Connection reset by peer

#compgen -A function | grep par_ | sort | parallel --delay $D -j$P --tag -k '{} 2>&1'
#compgen -A function | grep par_ | sort |
compgen -A function | G par_ "$@" | LC_ALL=C sort | G -v fish |
    # 2019-07-14 200% too high for 16 GB/4 thread
    parallel --joblog /tmp/jl-`basename $0` -j75% --retries 2 --tag -k '{} 2>&1' |
    clean_output

compgen -A function | G par_ "$@" | LC_ALL=C sort | G fish |
    # 2024-07-18 fish is prone to racing
    parallel --joblog /tmp/jl-`basename $0` -j1 --retries 2 --tag -k '{} 2>&1' |
    clean_output