build-aux/test.sh

   1 #! /bin/sh
   2
   3 # Mes --- Maxwell Equations of Software
   4 # Copyright © 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
   5 #
   6 # This file is part of Mes.
   7 #
   8 # Mes is free software; you can redistribute it and/or modify it
   9 # under the terms of the GNU General Public License as published by
  10 # the Free Software Foundation; either version 3 of the License, or (at
  11 # your option) any later version.
  12 #
  13 # Mes is distributed in the hope that it will be useful, but
  14 # WITHOUT ANY WARRANTY; without even the implied warranty of
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 # GNU General Public License for more details.
  17 #
  18 # You should have received a copy of the GNU General Public License
  19 # along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 set -x
  22
  23 GUILE=${GUILE-$MES}
  24 DIFF=${DIFF-$(command -v diff)}
  25 [ -z "$DIFF" ] && DIFF="sh build-aux/diff.scm"
  26
  27 t=${1-scaffold/tests/t}
  28 rm -f "$t".mes-out
  29 shift
  30
  31 set -e
  32
  33 rm -f "$t".mlibc-out
  34 if [ -n "$CC32" ]; then
  35     sh build-aux/cc-mlibc.sh "$t"
  36
  37     r=0
  38     [ -f "$t".exit ] && r=$(cat "$t".exit)
  39     set +e
  40     "$t".mlibc-out > "$t".mlibc-stdout
  41     m=$?
  42     cat "$t".mlibc-stdout
  43     set -e
  44
  45     [ $m = $r ]
  46     if [ -f "$t".expect ]; then
  47         $DIFF -ub "$t".expect "$t".mlibc-stdout;
  48     fi
  49 fi
  50
  51 rm -f "$t".mes-out
  52 sh build-aux/cc-mes.sh "$t"
  53
  54 r=0
  55 [ -f "$t".exit ] && r=$(cat "$t".exit)
  56 set +e
  57 "$t".mes-out > "$t".mes-stdout
  58 m=$?
  59 cat "$t".mes-stdout
  60 set -e
  61
  62 [ $m = $r ]
  63 if [ -f "$t".expect ]; then
  64     $DIFF -ub "$t".expect "$t".mes-stdout;
  65 fi