checkups.sh

#! /usr/bin/env sh

APPL='syrinx.tcl'

PASS=0
FAIL=0

checkup () {
  if test "$?" -eq '0';
  then
    PASS=$(($PASS+1))
    echo "\n[ Passed: $PASS ]\n"
  else
    FAIL=$(($FAIL+1))
    echo "\n[ Failed: $FAIL ]\n"
  fi
  return
}

if [ -n "$APPL" ] && [ -f "$APPL" ];
then

  sleep 1

  echo "\n Beginning Test\n"

  sleep 1

  # correct tuning chosen so parse variant arguments
  # display all matrices formatted in chosen tuning
  tclsh "$APPL" fkbjdn NOP NOP flock

  checkup

  sleep 2

  # correct tuning chosen so parse variant arguments
  # display matrices of chosen tuning and keys
  tclsh "$APPL" beadgcf n0 k9 j3

  checkup

  sleep 2

  # maximum amount of input arguments
  tclsh "$APPL" cgdae $(ITR=1; MAX=86;
    while test "$ITR" -lt "$MAX";
    do printf "%s " "$ITR"; ITR=$(($ITR+1));
    done)

  checkup

  sleep 2

  # limit quantity of characters for each argument
  WORD='abcdefghijklmnopqrstuvwxyz'

  tclsh "$APPL" cgdae "$WORD" "$WORD" "$WORD"

  checkup

  sleep 2

  # numerically search through keys
  tclsh "$APPL" 56

  checkup

  sleep 2

  # alphabetic search through values
  tclsh "$APPL" uv

  checkup

  sleep 2

  # Ploceus::matallic true
  tclsh "$APPL" AuHg

  checkup

  sleep 2

  # failure to establish instrument tuning
  # display help message with examples
  tclsh "$APPL" NOP NOP

  checkup

  sleep 2

  # display menu of signatures
  tclsh "$APPL"

  checkup

  sleep 1

  echo "\n Finished Test\n"
  echo "\t[ Passed: $PASS, Failed: $FAIL ]\n"

else
  echo "\n\tfile: $0, variable APPL value: '$APPL'\n"
  exit 1
fi

exit 0