#!/bin/bash

echo "### These tests requires VirtualBox running with the following images"
echo `whoami`"@freebsd7"

VBoxManage startvm FreeBSD71 >/dev/null 2>&1
ping -c 1 freebsd7.tange.dk >/dev/null 2>&1

ssh freebsd7.tange.dk touch .parallel/will-cite
scp -q .*/src/{parallel,sem,sql,niceload,env_parallel*} freebsd7.tange.dk:bin/

. `which env_parallel.bash`
env_parallel --session

par_no_more_procs() {
    echo 'bug #40136: FreeBSD: No more processes'
    sem --jobs 3 --id my_id -u 'echo First started; sleep 10; echo The first finished;echo' &&
	sem --jobs 3 --id my_id -u 'echo Second started; sleep 11; echo The second finished;echo' &&
	sem --jobs 3 --id my_id -u 'echo Third started; sleep 12; echo The third finished;echo' &&
	sem --jobs 3 --id my_id -u 'echo Fourth started; sleep 13; echo The fourth finished;echo' &&
	sem --wait --id my_id
}

par_compress_pipe() {
    echo 'Test --compress --pipe'
    jot 1000 | parallel --compress --pipe cat | wc

    echo 'bug #41613: --compress --line-buffer no newline'
    perl -e 'print "It worked"'| parallel --pipe --compress --line-buffer cat
    echo
}

par_sem_fg() {
    echo 'bug #40135: FreeBSD: sem --fg does not finish under /bin/sh'
    sem --fg 'sleep 1; echo The job finished'
}

par_round_robin() {
    echo 'bug #40133: FreeBSD: --round-robin gives no output'
    jot 1000000 | parallel --round-robin --pipe -kj3 cat | wc
    jot 1000000 | parallel --round-robin --pipe -kj4 cat | wc
}

par_shebang() {
    echo 'bug #40134: FreeBSD: --shebang not working'
    (echo '#!/usr/bin/env -S parallel --shebang -rk echo'
     echo It
     echo worked) > shebang
    chmod 755 ./shebang; ./shebang

    echo 'bug #40134: FreeBSD: --shebang(-wrap) not working'
    (echo '#!/usr/bin/env -S parallel --shebang-wrap /usr/bin/perl :::';
     echo 'print @ARGV,"\n";') > shebang-wrap
    chmod 755 ./shebang-wrap
    ./shebang-wrap wrap works | sort -r

    echo 'bug #40134: FreeBSD: --shebang(-wrap) with options not working'
    (echo '#!/usr/bin/env -S parallel --shebang-wrap -v -k -j 0 /usr/bin/perl -w :::'
     echo 'print @ARGV,"\n";') > shebang-wrap-opt;
    chmod 755 ./shebang-wrap-opt
    ./shebang-wrap-opt wrap works with options
}

par_shellshock_bug() {
    bash -c 'echo bug \#43358: shellshock breaks exporting functions using --env name;
      echo Non-shellshock-hardened to non-shellshock-hardened;
      funky() { echo Function $1; };
      export -f funky;
      PARALLEL_SHELL=bash parallel --env funky -S localhost funky ::: non-shellshock-hardened'

    bash -c 'echo bug \#43358: shellshock breaks exporting functions using --env name;
      echo Non-shellshock-hardened to shellshock-hardened;
      funky() { echo Function $1; };
      export -f funky;
      PARALLEL_SHELL=bash parallel --env funky -S parallel@192.168.1.72 funky ::: shellshock-hardened'
}

par_load() {
    echo '### Test --load (must give 1=true)'
    parallel -j0 -N0 --timeout 5 --nice 10 'bzip2 < /dev/zero >/dev/null' ::: 1 2 3 4 5 6 &
    parallel --argsep ,, --joblog - -N0 parallel --load 100% echo ::: 1 ,, 1 |
	parallel -k --colsep '\t' --header :  echo '{=4 $_=$_>5=}'
}

par_env_parallel() {
    echo "### env_parallel on Freebsd"
    . bin/env_parallel.sh
    myvar="`echo 'myvar_line  1'; echo 'myvar_line  2'`"
    alias myalias='echo myalias1 "$myvar";'"`echo` echo myalias2"
    env_parallel myalias ::: foo
}

# Moving the functions to FreeBSD is a bit tricky:
#   We use env_parallel.bash to copy the functions to FreeBSD

. `which env_parallel.bash`

#   GNU/Linux runs bash, but the FreeBSD runs (a)sh,
#   (a)sh does not support 'export -f' so any function exported
#   must be unset

unset run_once
unset run_test
unset TMPDIR

#   As the copied environment is written in Bash dialect
#   we get 'shopt'-errors and 'declare'-errors.
#   We can safely ignore those.

PARALLEL_SHELL=sh env_parallel --env _ -vj9 -k --joblog /tmp/jl-`basename $0` --retries 3 \
	     -S freebsd7.tange.dk --tag '{} 2>&1' \
	     ::: $(compgen -A function | grep par_ | sort) \
	     2> >(grep -Ev 'shopt: not found|declare: not found')

VBoxManage controlvm FreeBSD71 savestate