tests/test-metadata-results.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 # Parallel testsuite harness: check APIs for the registering of test
  18 # results in `*.trs' files, as documented in the automake manual.
  19
  20 parallel_tests=yes
  21 . ./defs || Exit 1
  22
  23 cat >> configure.in << 'END'
  24 AC_OUTPUT
  25 END
  26
  27 cat > Makefile.am << 'END'
  28 TEST_LOG_DRIVER = ./dummy-driver
  29 TESTS = foo.test bar.test
  30 END
  31
  32 cat > dummy-driver <<'END'
  33 #! /bin/sh
  34 set -e; set -u
  35 while test $# -gt 0; do
  36   case $1 in
  37     --log-file) log_file=$2; shift;;
  38     --trs-file) trs_file=$2; shift;;
  39     --test-name) test_name=$2; shift;;
  40     --expect-failure|--color-tests|--enable-hard-errors) shift;;
  41     --) shift; break;;
  42      *) echo "$0: invalid option/argument: '$1'" >&2; exit 2;;
  43   esac
  44   shift
  45 done
  46 : > $log_file
  47 cp $1 $trs_file
  48 END
  49 chmod a+x dummy-driver
  50
  51 mk_check ()
  52 {
  53   st=0
  54   $MAKE check >stdout || st=$?
  55   cat stdout
  56   # Our dummy driver make no testsuite progress report.
  57   grep ': .*\.test' stdout && Exit 1
  58   # Nor it writes to the log files.
  59   test -s foo.log && Exit 1
  60   test -s bar.log && Exit 1
  61   return $st
  62 }
  63
  64 # This must be different from the one defined in `test/defs', as that
  65 # assumes that the driver does proper testsuite progress reporting.
  66 count_test_results ()
  67 {
  68   total=ERR pass=ERR fail=ERR xpass=ERR xfail=ERR skip=ERR error=ERR
  69   eval "$@"
  70   st=0
  71   grep "^# TOTAL:  *$total$" stdout || rc=1
  72   grep "^# PASS:  *$pass$"   stdout || rc=1
  73   grep "^# XFAIL:  *$xfail$" stdout || rc=1
  74   grep "^# SKIP:  *$skip$"   stdout || rc=1
  75   grep "^# FAIL:  *$fail$"   stdout || rc=1
  76   grep "^# XPASS:  *$xpass$" stdout || rc=1
  77   grep "^# ERROR:  *$error$" stdout || rc=1
  78   test $st -eq 0 || Exit 1
  79 }
  80
  81 $ACLOCAL
  82 $AUTOCONF
  83 $AUTOMAKE
  84
  85 ./configure
  86
  87 # Basic checks.  Also that that `:global-test-result:' fields and
  88 # "old-style" directives with format "RESULT: test-name" are now ignored.
  89
  90 : > foo.test
  91 echo blah blah blah > bar.test
  92 mk_check
  93 count_test_results total=0 pass=0 fail=0 xpass=0 xfail=0 skip=0 error=0
  94
  95 cat > foo.test <<END
  96 :test-global-result: PASS
  97 :test-result: FAIL
  98 END
  99 cat > bar.test <<END
 100 :test-result: SKIP
 101 :test-global-result: ERROR
 102 END
 103 mk_check && Exit 1
 104 count_test_results total=2 pass=0 fail=1 xpass=0 xfail=0 skip=1 error=0
 105
 106 cat > foo.test <<END
 107 FAIL: foo.test
 108 :test-result: PASS
 109 :test-global-result: XPASS
 110 END
 111 echo ERROR: bar.test > bar.test
 112 mk_check
 113 count_test_results total=1 pass=1 fail=0 xpass=0 xfail=0 skip=0 error=0
 114
 115 cat > foo.test <<END
 116 :test-global-result: SKIP
 117 :test-result: FAIL
 118 END
 119 cat > bar.test <<END
 120 :test-global-result: PASS
 121 END
 122 mk_check && Exit 1
 123 count_test_results total=1 pass=0 fail=1 xpass=0 xfail=0 skip=0 error=0
 124
 125 cat > foo.test <<END
 126 :test-result: XFAIL
 127 :test-result: PASS
 128 :test-result: SKIP
 129 END
 130 cat > bar.test <<END
 131 :test-result: SKIP
 132 :test-result: PASS
 133 :test-result: SKIP
 134 :test-result: PASS
 135 :test-result: PASS
 136 END
 137 mk_check
 138 count_test_results total=8 pass=4 fail=0 xpass=0 xfail=1 skip=3 error=0
 139
 140 # Check that all results expected to be supported are *really* supported.
 141
 142 cat > foo.test <<END
 143 :test-result: PASS
 144 :test-result: SKIP
 145 :test-result: XFAIL
 146 :test-result: FAIL
 147 :test-result: XPASS
 148 :test-result: ERROR
 149 END
 150 : > bar.test
 151 mk_check && Exit 1
 152 count_test_results total=6 pass=1 fail=1 xpass=1 xfail=1 skip=1 error=1
 153
 154 cp foo.test bar.test
 155 mk_check && Exit 1
 156 count_test_results total=12 pass=2 fail=2 xpass=2 xfail=2 skip=2 error=2
 157
 158 # Check that we are liberal w.r.t. whitespace use.
 159
 160 : > foo.test
 161 : > bar.test
 162 for RESULT in PASS FAIL XPASS XFAIL SKIP ERROR; do
 163   sed -e 's/^ *//' -e 's/|//g' >> foo.test <<END
 164     |:test-result:$RESULT|
 165     |:test-result: $tab  $RESULT|
 166     |:test-result:$RESULT  $tab|
 167     |:test-result:$tab$tab  $RESULT$tab  $tab |
 168 END
 169   echo "  $tab $tab$tab   :test-result: $RESULT" >> bar.test
 170 done
 171 cat foo.test # For debugging.
 172 cat bar.test # Likewise.
 173 mk_check && Exit 1
 174 count_test_results total=30 pass=5 fail=5 xpass=5 xfail=5 skip=5 error=5
 175
 176 :