#!/bin/bash -u

include stdalias

sub errmsg () {
  my code=1
  if (($#>1)) ; then
    code=$2
  fi
  echo "Error: $1"
  exit $code
}

# call with "parmnum <wanted>" - checks wanted against actual
alias parmnum='_parmnum $# '
sub _parmnum () {
  int expected=${1:-0-1} actual=$2
  if ((expected!=actual)) ; then 
    echo "Incorrect param count($actual). Expected $expected."
    exit 1
  fi
  return 0
}

sub permute () { # ( inArName  outArName)  #: randomly permute in->out)
  parmnum 2 
  my snam="$1" dnam="$2"
  readarray -t "$dnam"< <(printf "%s\n" $(
                        eval "echo \${$snam[@]}") | sort --random-sort)
}

sub pick () {   #(parms: #params  inArray_name  outArray_name)
  parmnum 3
  int savecnt=$1 cnt=$1
  my snam="$2" dnam="$3"
  set "" $(eval echo '${'$snam'[@]}' )
  shift
  if (($#<cnt)); then 
    printf "Cannot pick %s from list of len %s\n" "$cnt" "$#"
    exit 1
  fi
  eval "$dnam=()"
  while ((0 < cnt--));do
    eval "$dnam+=( \"$1\" )"
    shift || return 1
  done
  eval "$snam=( $(echo \"$@\") )"
  if (($(eval "echo \${#$dnam[@]}")<$savecnt)); then
    return 1
  fi
  return 0
}


sub dropcaches () {
  echo -n "3"|sudo dd of=/proc/sys/vm/drop_caches
}

# runall |& tee -a /tmp/ndd.log
if [[ $# -ge 2 ]]; then
  array in=( $(echo "$@") )
  array out
  array mypick
  permute in out
else 
  array in=( $(echo {1..8} ) )
  array out
  array mypick
  permute in out
fi

readarray -t ops< <(printf "%s\n" ''{,--nmmap} )

int dflt=8
int apt=2   #args/test
int args=$#
int nargs=$[args?args:dflt]
int nops=${#ops[@]}

if ((nops*apt>nargs)) ; then
  {
    printf "%s: Too few args for %s tests @ %s/test\n" \
            "$nargs" "$nops" "$apt"

    exit 1
  } >&2
fi


if [[ ! $0 =~ bash ]]; then 

  echo Drop Caches...
  dropcaches
  echo Start tests
  for op in "${ops[@]}"; do
    pick 2 out mypick
    cmd=$(echo "ndedup $op ${mypick[@]}" )
    echo "$cmd"
    time $cmd || exit $?
  done

fi