2
# exercise the 'invalid option' handling code in each program
4
# Copyright (C) 2008-2011 Free Software Foundation, Inc.
6
# This program is free software: you can redistribute it and/or modify
7
# it under the terms of the GNU General Public License as published by
8
# the Free Software Foundation, either version 3 of the License, or
9
# (at your option) any later version.
11
# This program is distributed in the hope that it will be useful,
12
# but WITHOUT ANY WARRANTY; without even the implied warranty of
13
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14
# GNU General Public License for more details.
16
# You should have received a copy of the GNU General Public License
17
# along with this program. If not, see <http://www.gnu.org/licenses/>.
22
# Turn off localization of executable's output.
23
@ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
62
my @built_programs = split ' ', $ENV{built_programs};
63
foreach my $prog (@built_programs)
68
my $try = "Try \`$prog --help' for more information.\n";
69
my $x = $exit_status{$prog};
73
my $out = $expected_out{$prog};
77
my $err = $expected_err{$prog};
79
or $err = $x == 0 ? '' : "$prog: invalid option -- /\n$try";
81
# Accommodate different syntax in glibc's getopt
82
# diagnostics by filtering out single quotes.
83
# Also accommodate BSD getopt.
84
my $err_subst = "s,'/',/,; s,unknown,invalid,";
86
# Depending on how this script is run, stty emits different
87
# diagnostics. Don't bother checking them.
89
and $err_subst = 's/(.|\n)*//ms';
91
my @Tests = (["$prog-invalid-opt", '-/', {OUT=>$out},
92
{ERR_SUBST => $err_subst},
93
{EXIT=>$x}, {ERR=>$err}]);
95
my $save_temps = $ENV{DEBUG};
96
my $verbose = $ENV{VERBOSE};
98
my $f = run_tests ($prog, \$prog, \@Tests, $save_temps, $verbose);