tests/tests-environment-backcompat.test

   1 #! /bin/sh
   2 # Copyright (C) 2011 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 # With old serial testsuite driver, TESTS_ENVIRONMENT can be used to
  18 # define the "test runner", i.e. the program that the test scripts must
  19 # be run by (with the parallel-tests driver one should use LOG_COMPILER
  20 # for this).  The behaviour tested here is also documented in the manual.
  21
  22 parallel_tests=no
  23 . ./defs || Exit 1
  24
  25 set -e
  26
  27 cat >> configure.in <<END
  28 AC_SUBST([PERL], ['$PERL'])
  29 AC_OUTPUT
  30 END
  31
  32 cat > Makefile.am << 'END'
  33 TESTS_ENVIRONMENT = $(PERL) -Mstrict -w
  34 TESTS = foo.pl bar.pl baz.pl
  35 XFAIL_TESTS = baz.pl
  36 EXTRA_DIST = $(TESTS)
  37 END
  38
  39 echo 'exit (0);' > foo.pl
  40 echo 'exit (0);' > bar.pl
  41
  42 cat > baz.pl << 'END'
  43 # With "use strict" enacted, this will cause an error, since the
  44 # variable `$x' is not declared with `my' nor specified with an
  45 # explicit package name.
  46 $x = 0;
  47 exit ($x);
  48 END
  49
  50 chmod a+x *.pl
  51
  52 $ACLOCAL
  53 $AUTOCONF
  54 $AUTOMAKE -a
  55
  56 ./configure
  57
  58 $MAKE check
  59 $MAKE distcheck
  60
  61 :