tests/dejagnu7.test

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