Merge branch 'micro' into maint
[platform/upstream/automake.git] / t / dejagnu7.sh
1 #! /bin/sh
2 # Copyright (C) 2003-2013 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 <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 . 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 :