t/dejagnu7.sh

   1 #! /bin/sh
   2 # Copyright (C) 2003-2018 Free Software Foundation, Inc.
   3 #
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 2, or (at your option)
   7 # any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
  16
  17 # Check that "make check" fails, when we invoke DejaGnu tests with --status
  18 # (to detect TCL errors) on a file with TCL errors.
  19
  20 required=runtest
  21 . test-init.sh
  22
  23 runtest --help | grep '.*--status' \
  24   || skip_ "dejagnu lacks support for '--status'"
  25
  26 cat > failtcl << 'END'
  27 #! /bin/sh
  28 echo whatever
  29 END
  30 chmod +x failtcl
  31
  32 cat >> configure.ac << 'END'
  33 AC_OUTPUT
  34 END
  35
  36 cat > Makefile.am << 'END'
  37 AUTOMAKE_OPTIONS = dejagnu
  38 DEJATOOL = failtcl
  39 AM_RUNTESTFLAGS = --status FAILTCL=$(srcdir)/failtcl
  40 END
  41
  42 mkdir failtcl.test
  43 cat > failtcl.test/failtcl.exp << 'END'
  44 set test test
  45 spawn $FAILTCL
  46 expect {
  47     default { pass "$test" }
  48 # Oops, no closing brace.
  49 END
  50
  51 $ACLOCAL
  52 $AUTOCONF
  53 $AUTOMAKE --add-missing
  54
  55 ./configure
  56
  57 $MAKE check && exit 1
  58 test -f failtcl.log
  59 test -f failtcl.sum
  60 $FGREP 'missing close-brace' failtcl.sum
  61
  62 :