2 # Copyright (C) 2011-2013 Free Software Foundation, Inc.
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)
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.
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/>.
17 # Basic TAP test protocol support:
18 # - special plan format to skip all the tests in a script
24 weirdchars=\''"$!&()[]<>#;^?*/@%=,.:'
36 # It is undefined whether the comment after the plan below should
37 # count as an explanation; still, the test should be skipped.
39 1..0 # WWW::Mechanize not installed
46 1..0 # SKIP wget(1) not installed
51 1..0 # SKIP: Can't connect to gnu.org!
56 1..0 # SKIP $weirdchars
60 TESTS='foo.test bar.test baz.test wget.test curl.test mu.test'
61 count_test_results total=6 pass=0 fail=0 xpass=0 xfail=0 skip=6 error=0
63 # Look for a regression where the "1..0" wasn't being stripped from the
65 $FGREP '1..0' stdout && exit 1
67 grep '^SKIP: foo\.test$' stdout
68 grep '^SKIP: bar\.test$' stdout
69 grep '^SKIP: baz\.test' stdout # Deliberately laxer, see above for why.
70 grep '^SKIP: wget\.test .* wget(1) not installed$' stdout
71 grep '^SKIP: curl\.test .* Can'\''t connect to gnu\.org!$' stdout
72 grep '^SKIP: mu\.test' stdout | $FGREP "$weirdchars" stdout
73 test $(grep -c ': .*\.test' stdout) -eq 6