tests/dejagnu7.test

   1 #! /bin/sh
   2 # Copyright (C) 2003  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 3, 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 <http://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 . ./defs || Exit 1
  22
  23 # Check whether DejaGnu supports --status
  24 runtest --help | $FGREP -e --status || Exit 77
  25
  26 cat > failtcl << 'END'
  27 #! /bin/sh
  28 echo whatever
  29 END
  30
  31 chmod +x failtcl
  32
  33 echo AC_OUTPUT >> configure.in
  34
  35 cat > Makefile.am << 'END'
  36 AUTOMAKE_OPTIONS = dejagnu
  37
  38 DEJATOOL = failtcl
  39
  40 AM_RUNTESTFLAGS = --status FAILTCL=$(srcdir)/failtcl
  41 END
  42
  43 mkdir failtcl.test
  44
  45 cat > failtcl.test/failtcl.exp << 'END'
  46 set test test
  47 spawn $FAILTCL
  48 expect {
  49     default { pass "$test" }
  50 # Oops, no closing brace.
  51 END
  52
  53 $ACLOCAL
  54 $AUTOCONF
  55 $AUTOMAKE --add-missing
  56
  57 ./configure
  58
  59 $MAKE check && Exit 1
  60 test -f failtcl.log
  61 test -f failtcl.sum
  62 $FGREP 'missing close-brace' failtcl.sum