diff options
Diffstat (limited to 't/tap-bad-prog.tap')
| -rw-r--r-- | t/tap-bad-prog.tap | 32 |
1 files changed, 5 insertions, 27 deletions
diff --git a/t/tap-bad-prog.tap b/t/tap-bad-prog.tap index 490cd4a78..34fa29391 100644 --- a/t/tap-bad-prog.tap +++ b/t/tap-bad-prog.tap @@ -1,5 +1,5 @@ #! /bin/sh -# Copyright (C) 2011-2013 Free Software Foundation, Inc. +# Copyright (C) 2011-2014 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 @@ -73,35 +73,13 @@ else fi # Check that no spurious test result is reported. This is lower-priority -# (and in fact the check currently fails for our awk-based driver). -directive= -if test $am_tap_implementation = shell; then - directive=TODO -else - # Older versions of IPC::Open3 (e.g., version 1.05 on perl 5.12.4 or - # version 1.0103 on perl 5.6.2) fail to properly trap errors in exec(2) - # calls in the child process; hence, the TAP driver cannot be properly - # informed of such error. - if $PERL -w -e ' - use IPC::Open3 qw/open3/; - $@ = ""; - eval { open3(*STDIN, *STDOUT, *STDERR, "am--no-such-command") }; - $@ =~ m/\bopen3:.*am--no-such-command/ - or die "Bad \$@ value: \"$@\"\n"; - '; then - : # OK. IPC::Open3 should be good enough. - else - for s in '"missing plan" message' 'results'; do - skip_ -r "IPC::Open3 not good enough" "no spurious $s" - done - exit 0 - fi -fi +# (and in fact the check currently fails). command_ok_ 'no spurious "missing plan" message' \ - -D "$directive" -- not grep 'missing.* plan' stdout + -D TODO -- not grep 'missing.* plan' stdout + command_ok_ 'no spurious results' \ - -D "$directive" -r 'still get "missing plan"' \ + -D TODO -r 'still get "missing plan"' \ count_test_results total=3 pass=0 fail=0 xpass=0 xfail=0 skip=0 error=3 : |