| /coreutils/tests/misc/ |
| D | numfmt.pl | 22 my $prog = 'numfmt';
34 my $try = "Try '$prog --help' for more information.\n";
48 {ERR => "$prog: invalid number: 'no_NL'\n"},
80 {ERR => "$prog: invalid number: '-0.-1'\n"},
86 {ERR => "$prog: invalid suffix in input: '1.22.'\n"},
94 {ERR => "$prog: invalid unit size: 'AA'\n"},
97 {ERR => "$prog: invalid unit size: '54W'\n"},
102 {ERR => "$prog: invalid unit size: 'i'\n"},
105 {ERR => "$prog: invalid unit size: '1i'\n"},
108 {ERR => "$prog: invalid unit size: '$limits->{UINTMAX_OFLOW}'\n"},
[all …]
|
| D | comm.pl | 25 my $prog = 'comm';
76 {ERR => "$prog: missing operand after 'a'\n"
77 . "Try '$prog --help' for more information.\n"}],
81 {ERR => "$prog: missing operand\n"
82 . "Try '$prog --help' for more information.\n"}],
86 {ERR => "$prog: extra operand 'no-such'\n"
87 . "Try '$prog --help' for more information.\n"}],
92 {ERR => "$prog: file 2 is not in sorted order\n"
93 . "$prog: input is not in sorted order\n"}],
98 {ERR => "$prog: file 2 is not in sorted order\n"}],
[all …]
|
| D | join.pl | 26 my $prog = 'join';
180 "$prog: invalid field number: 'x'\n"],
203 "$prog: chkodr-5.1:2: is not sorted: a 2\n"],
208 "$prog: chkodr-5b.2:2: is not sorted: a Z\n"],
213 "$prog: chkodr-5c.2:2: is not sorted: \n"],
218 "$prog: chkodr-5d.1:3: is not sorted: \n" .
219 "$prog: chkodr-5d.2:3: is not sorted: \n" .
220 "$prog: input is not in sorted order\n"
226 "$prog: chkodr-5e.1:3: is not sorted: o\n" .
227 "$prog: chkodr-5e.2:3: is not sorted: p\n" .
[all …]
|
| D | echo.sh | 19 prog='env echo'
28 $prog -n -e '\x1b\n\e\n\33\n\033\n\0033\n' > out || fail=1
33 $prog -n -e '\x\n' > out || fail=1
37 $prog -- 'foo' > out || fail=1
38 $prog -n -e -- 'foo\n' >> out || fail=1
46 $prog -e 'foo\n\cbar' > out || fail=1
54 POSIXLY_CORRECT=1 $prog -n -E 'foo\n' > out || fail=1
55 POSIXLY_CORRECT=1 $prog -nE 'foo' >> out || fail=1
56 POSIXLY_CORRECT=1 $prog -E -n 'foo' >> out || fail=1
57 POSIXLY_CORRECT=1 $prog --version >> out || fail=1
[all …]
|
| D | invalid-opt.pl | 63 foreach my $prog (@built_programs)
65 $prog eq '['
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";
88 $prog eq 'stty'
91 my @Tests = (["$prog-invalid-opt", '-/', {OUT=>$out},
98 my $f = run_tests ($prog, \$prog, \@Tests, $save_temps, $verbose);
|
| D | mktemp.pl | 51 my $prog = 'mktemp';
59 {ERR=>"$prog: too many templates\n"
60 . "Try '$prog --help' for more information.\n"}, {EXIT => 1} ],
63 {ERR=>"$prog: too few X's in template 'foo.XX'\n"}],
104 {ERR=>"$prog: invalid template, 'a/bXXXX', "
108 {ERR=>"$prog: invalid template, '/bXXXX'; "
145 {ERR=>"$prog: invalid suffix '/b', contains directory separator\n"}],
148 {ERR=>"$prog: invalid suffix '/b', contains directory separator\n"}],
151 {ERR=>"$prog: with --suffix, template 'aXXXXb' must end in X\n"}],
153 {ERR=>"$prog: with --suffix, template '' must end in X\n"}],
[all …]
|
| D | xstrtol.pl | 26 my $prog = 'pr';
33 {ERR=>"$prog: invalid suffix in --pages argument '${too_big}h'\n"}],
36 {ERR=>"$prog: --pages argument '$too_big' too large\n"}],
39 {ERR=>"$prog: invalid --pages argument 'x'\n"}],
42 {ERR=>"$prog: invalid page range '9x'\n"}],
48 my $fail = run_tests ($ME, $prog, \@Tests, $save_temps, $verbose);
|
| D | expand.pl | 25 my $prog = 'expand';
172 {ERR => "$prog: tab size contains invalid character(s): 'a'\n"}],
174 {ERR => "$prog: tab stop is too large '$UINTMAX_OFLOW'\n"}],
176 {ERR => "$prog: tab size cannot be 0\n"}],
178 {ERR => "$prog: tab sizes must be ascending\n"}],
180 {ERR => "$prog: '/' specifier only allowed with the last value\n"}],
182 {ERR => "$prog: '/' specifier only allowed with the last value\n"}],
184 {ERR => "$prog: '/' specifier not at start of number: '/'\n"}],
190 my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose);
|
| /coreutils/tests/printf/ |
| D | printf.sh | 19 prog='env printf'
29 $prog '\x1b\n\33\n\e\n' > out || fail=1
34 $prog -- 'foo\n' > out || fail=1
43 $prog '1 %*sy\n' -3 x > out || fail=1
46 if POSIXLY_CORRECT=1 $prog '2 \x' >/dev/null 2>&1; then
53 $prog '3 \x40\n' >> out || fail=1
55 $prog '4 \x40\n' >> out || fail=1
56 $prog '5 % +d\n' 234 >> out || fail=1
61 $prog '6 \41\n' | tr '\41' '!' >> out
65 $prog '7 \2y \02y \002y \0002y\n' |tr '\0\2' '*=' >> out
[all …]
|
| D | printf-cov.pl | 21 my $prog = 'printf';
22 my $try = "Try '$prog --help' for more information.\n";
30 ['no-args', {EXIT=>1}, {ERR=>"$prog: missing operand\n$try"}],
31 ['no-arg2', '--', {EXIT=>1}, {ERR=>"$prog: missing operand\n$try"}],
49 {EXIT=>1}, {ERR=>"$prog: invalid precision: '$pow_2_31'\n"}],
51 {EXIT=>1}, {ERR=>"$prog: invalid field width: '$pow_2_31'\n"}],
68 {ERR=>"$prog: missing hexadecimal number in escape\n"}],
70 {ERR=>"$prog: missing hexadecimal number in escape\n"}],
72 {ERR=>"$prog: missing hexadecimal number in escape\n"}],
76 {ERR=>"$prog: invalid universal character name \\ud800\n"}],
[all …]
|
| D | printf-mb.sh | 22 prog='env printf'
30 LC_ALL=$f $prog '%04x\n' '"á' >>out 2>>err
32 LC_ALL=$f $prog '%04x\n' "'$($prog '\xe1')" >>out 2>>err
34 LC_ALL=C $prog '%04x\n' "'$($prog '\xe1')" >>out 2>>err
36 LC_ALL=$f $prog '%04x\n' '"á=' >>out 2>>err
38 LC_ALL=$f $prog '%04x\n' "'$($prog '\xe1')=" >>out 2>>err
|
| D | printf-quote.sh | 22 prog='env printf'
25 $prog '%q\n' '' "'" a 'a b' '~a' 'a~' "$($prog %b 'a\r')" > out
43 LC_ALL=$f $prog '%q\n' 'áḃç' > out
45 LC_ALL=$f $prog '%q\n' "$($prog '\xc2\x81')" >> out
47 LC_ALL=C $prog '%q\n' 'áḃç' >> out
|
| /coreutils/tests/basenc/ |
| D | basenc.pl | 26 my $prog = 'basenc';
75 my $try_help = "Try '$prog --help' for more information.\n";
85 {ERR=>"$prog: foobar\n" . $try_help },
89 {ERR=>"$prog: missing encoding type\n" . $try_help }],
92 {ERR=>"$prog: extra operand 'B'\n" . $try_help}],
119 {EXIT=>1}, {ERR=>"$prog: invalid input\n"}],
140 {EXIT=>1}, {ERR=>"$prog: invalid input\n"}],
142 {EXIT=>1}, {ERR=>"$prog: invalid input\n"}],
156 {ERR=>"$prog: invalid input\n"}],
158 {ERR=>"$prog: invalid input\n"}],
[all …]
|
| /coreutils/tests/cksum/ |
| D | b2sum.sh | 22 for prog in 'b2sum' 'cksum -a blake2b'; do
24 [ "$prog" = 'b2sum' ] && { $prog --version || continue; }
28 [ "$prog" = 'b2sum' ] && tag_opt='--tag' || tag_opt=''
32 $prog -l $l $tag_opt "$i" >> check.b2sum
36 $prog --strict -c check.b2sum || fail=1
39 $prog --strict -c openssl.b2sum || fail=1
43 [ "$prog" != 'b2sum' ] && tag_opt='--untagged' || tag_opt=''
45 $prog $tag_opt --text -l $l /dev/null | tee -a check.vals > check.b2sum
46 $prog -l $l --strict -c check.b2sum || fail=1
47 $prog --strict -c check.b2sum || fail=1
[all …]
|
| /coreutils/tests/expr/ |
| D | expr.pl | 22 my $prog = 'expr';
77 ['fail-a', '3 + -', {ERR => "$prog: non-integer argument\n"},
94 {ERR => "$prog: Unmatched ( or \\(\n"}, {EXIT => 2}],
96 {ERR => "$prog: Unmatched ( or \\(\n"}, {EXIT => 2}],
100 {ERR => "$prog: Unmatched ) or \\)\n"}, {EXIT => 2}],
102 {ERR => "$prog: Unmatched ) or \\)\n"}, {EXIT => 2}],
138 {ERR => "$prog: Unmatched \\{\n"}, {EXIT => 2}],
140 {ERR => "$prog: Unmatched \\{\n"}, {EXIT => 2}],
142 {ERR => "$prog: Invalid content of \\{\\}\n"}, {EXIT => 2}],
146 {ERR => "$prog: Invalid content of \\{\\}\n"}, {EXIT => 2}],
[all …]
|
| /coreutils/tests/sort/ |
| D | sort-merge.pl | 24 my $prog = 'sort';
45 {ERR=>"$prog: invalid --batch-size argument '0'\n".
46 "$prog: minimum --batch-size argument is '2'\n"}, {EXIT=>2}],
49 {ERR=>"$prog: invalid --batch-size argument '1'\n".
50 "$prog: minimum --batch-size argument is '2'\n"}, {EXIT=>2}],
53 {ERR=>"$prog: invalid --batch-size argument '-1'\n"}, {EXIT=>2}],
56 {ERR=>"$prog: invalid --batch-size argument 'a'\n"}, {EXIT=>2}],
60 {ERR=>"$prog: --batch-size argument '$bigint' too large\n".
61 "$prog: maximum --batch-size argument with current rlimit is\n"},
71 {ERR=>"$prog: cannot create temporary file in '$badtmp':\n"},
[all …]
|
| D | sort-files0-from.pl | 24 my $prog = 'sort';
33 {ERR => "$prog: extra operand 'no-such'\n"
35 . "Try '$prog --help' for more information.\n"}
40 {ERR => "$prog: open failed: missing: "
45 {ERR => "$prog: when reading file names from stdin, no file name of"
50 {ERR_SUBST => 's/no input from.+$//'}, {ERR => "$prog: \n"}],
54 {ERR => "$prog: no input from '/dev/null'\n"}],
58 {ERR => "$prog: -:1: invalid zero-length file name\n"}],
65 {ERR => "$prog: -:1: invalid zero-length file name\n"}],
89 {ERR => "$prog: -:1: invalid zero-length file name\n"}, {EXIT=>2} ],
[all …]
|
| D | sort.pl | 22 my $prog = 'sort';
36 my $no_file = "$prog: cannot read: no-file: No such file or directory\n";
74 {ERR=>"$prog: options '-hn' are incompatible\n"}],
86 {ERR=>"$prog: -:3: disorder: B\n"}, $normalize_filename],
92 {ERR=>"$prog: -:2: disorder: A\n"}, $normalize_filename],
95 {ERR=>"$prog: -:3: disorder: B\n"}, $normalize_filename],
97 {ERR=>"$prog: -:2: disorder: A\n"}, $normalize_filename],
108 {ERR=>"$prog: -: invalid field specification '0'\n"},
112 {ERR=>"$prog: character offset is zero: invalid field specification '1.0'\n"}],
114 {ERR=>"$prog: invalid number after ',': invalid count at start of '-k0'\n"}],
[all …]
|
| /coreutils/tests/wc/ |
| D | wc-files0-from.pl | 24 my $prog = 'wc';
33 {ERR => "$prog: extra operand 'no-such'\n"
35 . "Try '$prog --help' for more information.\n"}
40 {ERR => "$prog: cannot open 'missing' for reading: "
45 {ERR => "$prog: when reading file names from stdin, no file name of"
56 {ERR => "$prog: -:1: invalid zero-length file name\n"}],
61 {ERR => "$prog: -:1: invalid zero-length file name\n"
62 . "$prog: -:2: invalid zero-length file name\n"}],
86 {ERR => "$prog: -:1: invalid zero-length file name\n"}, {EXIT=>1} ],
92 my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose);
|
| /coreutils/tests/du/ |
| D | files0-from.pl | 24 my $prog = 'du';
33 {ERR => "$prog: extra operand 'no-such'\n"
35 . "Try '$prog --help' for more information.\n"}
40 {ERR => "$prog: cannot open 'missing' for reading: "
45 {ERR => "$prog: when reading file names from stdin, no file name of"
56 {ERR => "$prog: -:1: invalid zero-length file name\n"}],
60 {ERR => "$prog: -:1: invalid zero-length file name\n"
61 . "$prog: -:2: invalid zero-length file name\n"}],
87 {ERR => "$prog: -:1: invalid zero-length file name\n"}, {EXIT=>1} ],
93 my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose);
|
| D | no-x.sh | 31 prog=du
39 sed "s/^$prog: cannot access /$prog: /" out > t && mv t out
40 sed "s/^$prog: cannot read directory /$prog: /" out > t && mv t out
44 $prog: 'd/no-x': Permission denied
|
| /coreutils/tests/tail/ |
| D | tail.pl | 21 my $prog = 'tail';
59 "$prog: cannot open '+cl' for reading: No such file or directory\n"],
62 "$prog: invalid number of bytes: 'l'\n", $normalize_strerror],
65 "$prog: cannot open '+2cz' for reading: No such file or directory\n"],
69 "$prog: option used in invalid context -- 2\n"],
75 "$prog: invalid number of bytes: '99999999999999999999'\n",
78 "$prog: invalid number of bytes: '-'\n", $normalize_strerror],
147 my $fail = run_tests ($prog, $prog, \@Tests, $save_temps, $verbose);
|
| /coreutils/tests/stat/ |
| D | stat-printf.pl | 22 my $prog = 'stat';
43 {ERR=>"$prog: warning: unrecognized escape '\\x'\n"}],
52 {ERR=>"$prog: warning: backslash at end of format\n"}],
55 {ERR=>"$prog: '%9%': invalid directive\n"}],
57 {ERR=>"$prog: '%9': invalid directive\n"}],
63 my $fail = run_tests ($ME, $prog, \@Tests, $save_temps, $verbose);
|
| /coreutils/tests/help/ |
| D | help-version-getopt.sh | 28 for prog in $programs; do
31 *" $prog "*) ;;
39 env $prog $opt >exp || fail=1
42 env $prog $opt AFTER > out1 || fail=1
47 if [ "$prog" = nohup ]; then
56 env $prog $BEFORE $opt > out2 || fail=1
60 env $prog $BEFORE $opt AFTER > out3 || fail=1
|
| /coreutils/tests/chgrp/ |
| D | no-x.sh | 37 prog=chgrp
45 sed "s/^$prog: cannot access /$prog: /" out > t && mv t out
46 sed "s/^$prog: cannot read directory /$prog: /" out > t && mv t out
50 $prog: 'd/no-x': Permission denied
|