test/test

   1 #! /bin/sh
   2
   3 ### Run tests
   4
   5 errors=0
   6
   7 # run_test program expected_output
   8 run_test() {
   9     printf '%s...' "$1"
  10     output=`$2`
  11     s=$?
  12     if [ $s -ne 0 ]
  13     then
  14         echo "FAIL: exit status is $s"
  15         errors=$((errors + 1))
  16     elif [ "$output" != "$3" ]
  17     then
  18         echo "FAIL: wrong output"
  19         errors=$((errors + 1))
  20     else
  21         echo pass
  22     fi
  23 }
  24
  25 run_test2() {
  26     run_test "$1" "./$1" "$2"
  27 }
  28
  29 run_test1() {
  30     run_test2 "$1" "`cat $1.out`"
  31 }
  32
  33 run_test2 hello "Hello, world!"
  34
  35 run_test1 call
  36
  37 run_test1 if
  38
  39 run_test1 goto
  40
  41 run_test2 fact 479001600
  42
  43 run_test1 bitwise
  44
  45 run_test1 plusminus
  46
  47 run_test1 mul
  48
  49 run_test1 div
  50
  51 run_test1 mod
  52
  53 run_test1 set-byte
  54
  55 run_test1 set-word
  56
  57 run_test1 vtable
  58
  59 run_test2 tail-calls ''
  60
  61 if [ $errors -eq 0 ]
  62 then
  63     echo All tests passed
  64 else
  65     echo "$errors tests failed"
  66     exit 1
  67 fi