| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127 | #! /bin/sh# Copyright (C) 2011-2017 Free Software Foundation, Inc.## This program is free software; you can redistribute it and/or modify# it under the terms of the GNU General Public License as published by# the Free Software Foundation; either version 2, or (at your option)# any later version.## This program is distributed in the hope that it will be useful,# but WITHOUT ANY WARRANTY; without even the implied warranty of# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the# GNU General Public License for more details.## You should have received a copy of the GNU General Public License# along with this program.  If not, see <http://www.gnu.org/licenses/>.# TAP support: some unusual forms for valid TAP input.# See also related test 'tap-fancy2.sh'.. test-init.sh. tap-setup.sh## From manpage Test::Harness::TAP(3):##   Lines written to standard output matching /^(not )?ok\b/ must be#   interpreted as test lines. All other lines must not be considered#   test output.## Unfortunately, the exact format of TODO and SKIP directives is not as# clearly described in that manpage; but a simple reverse-engineering of# the prove(1) utility shows that it is probably given by the perl regex# /#\s*(TODO|SKIP)\b/.#cat > all.test <<END1..21ok? a questionnot ok? a questionok+plusnot ok+plusok-minusnot ok-minusok#55not ok#55ok${tab}  ${tab}9ok ${tab}${tab}          10not ok${tab}  ${tab}11not ok ${tab}${tab}          12ok# SKIPok${tab}#SKIP--who cares?ok?#SKIP!ok!#SKIP?not ok# TODOnot ok${tab}#TODO--who cares?not ok?#TODO!not ok!#TODO?ok~#TODOENDrun_make -O -e FAIL checkcount_test_results total=21 pass=6 fail=6 xfail=4 xpass=1 skip=4 error=0## "Weird" characters support.## The "#" character might cause confusion w.r.t. TAP directives (TODO,# SKIP), so we don't attempt to use it.weirdchars=\''"$!&()[]<>;^?*/@%=,.:'cat > all.test <<END1..6ok $weirdcharsnot ok $weirdcharsok $weirdchars # TODOnot ok $weirdchars # TODOok $weirdchars # SKIPBail out! $weirdcharsENDrun_make -O -e FAIL checkcount_test_results total=6 pass=1 fail=1 xfail=1 xpass=1 skip=1 error=1$FGREP "PASS: all.test 1 $weirdchars" stdout$FGREP "FAIL: all.test 2 $weirdchars" stdout$FGREP "XPASS: all.test 3 $weirdchars" stdout$FGREP "XFAIL: all.test 4 $weirdchars" stdout$FGREP "SKIP: all.test 5 $weirdchars" stdout$FGREP "ERROR: all.test - Bail out! $weirdchars" stdout## Trailing backslashes does not confuse the parser.#bs='\'cat > all.test <<END1..6ok $bsnot ok $bsok # TODO $bsnot ok # TODO $bsok # SKIP $bsBail out! $bsENDrun_make -O -e FAIL checkcount_test_results total=6 pass=1 fail=1 xfail=1 xpass=1 skip=1 error=1grep '^PASS: all\.test 1 \\$' stdoutgrep '^FAIL: all\.test 2 \\$' stdoutgrep '^XPASS: all\.test 3 # TODO \\$' stdoutgrep '^XFAIL: all\.test 4 # TODO \\$' stdoutgrep '^SKIP: all\.test 5 # SKIP \\$' stdoutgrep '^ERROR: all\.test - Bail out! \\$' stdout:
 |