JehanneOS/mksh
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

beautify

Browse Source
This commit is contained in:
tg 2005-06-08 21:39:59 +00:00
parent 1f32407004
commit faecfafee7
1 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
check.pl
View File

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $MirOS: src/bin/mksh/check.pl,v 1.5 2005/06/08 11:06:45 tg Exp $
# $MirOS: src/bin/mksh/check.pl,v 1.6 2005/06/08 21:39:59 tg Exp $
# $OpenBSD: th,v 1.12 2005/05/28 04:53:47 millert Exp $
#-
# Example test:
@ -134,7 +134,7 @@ $os = defined $^O ? $^O : 'unknown';
($prog = $0) =~ s#.*/##;
$Usage = <<EOF ;
Usage: $prog [-s test-set] [-C category] [-p prog] [-v] [-e e=v] test-name ...
Usage: $prog [-s test-set] [-C category] [-p prog] [-v] [-e e=v] name ...
-p p Use p as the program to test
-C c Specify the comma separated list of categories the program
belongs to (see category field).
@ -146,8 +146,8 @@ Usage: $prog [-s test-set] [-C category] [-p prog] [-v] [-e e=v] test-name ...
-v Verbose mode: print reason test failed.
-e e=v Set the environment variable e to v for all tests
(if no =v is given, the current value is used)
test-name(s) specifies the name of the test(s) to run; if none are
specified, all tests are run.
name specifies the name of the test(s) to run; if none are
specified, all tests are run.
EOF
# See comment above for flag meanings
@ -180,7 +180,7 @@ EOF
# Categories of the program under test. Provide the current
# os by default.
%categories = (
"os:$os", '1'
"os:$os", '1'
);
$temps = "/tmp/rts$$";
@ -379,8 +379,6 @@ run_test
local(*test) = @_;
local($name) = $test{':full-name'};
#print "Running test $name...\n" if $verbose;
if (defined $test{'stdin'}) {
return undef if !&write_file($tempi, $test{'stdin'});
$ifile = $tempi;
@ -405,9 +403,8 @@ run_test
for ($i = 0; $i < $test{'file-setup'}; $i++) {
$val = $test{"file-setup:$i"};
#
# format is: type perm "name"
#
($type, $perm, $rest) =
split(' ', $val, 3);
$c = substr($rest, 0, 1);
@ -893,15 +890,14 @@ read_test
chop $val if $do_chop;
$do_chop = 1;
$need_redo = 1;
#
# Syntax check on fields that can several instances
# (can give useful line numbers this way)
#
if ($field eq 'file-setup') {
local($type, $perm, $rest, $c, $len, $name);
#
# format is: type perm "name"
#
if ($val !~ /^[ \t]*(\S+)[ \t]+(\S+)[ \t]+([^ \t].*)/) {
print STDERR
"$prog:$file:$.: bad paramter line for file-setup field\n";
@ -937,9 +933,8 @@ read_test
if ($field eq 'file-result') {
local($type, $perm, $uid, $gid, $matchType,
$rest, $c, $len, $name);
#
# format is: type perm uid gid matchType "name"
#
if ($val !~ /^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S.*)/) {
print STDERR
"$prog:$file:$.: bad paramter line for file-result field\n";
@ -1126,9 +1121,8 @@ check_file_result
for ($i = 0; $i < $test{'file-result'}; $i++) {
$val = $test{"file-result:$i"};
#
# format is: type perm "name"
#
($type, $perm, $uid, $gid, $matchType, $rest) =
split(' ', $val, 6);
$c = substr($rest, 0, 1);
@ -1199,7 +1193,8 @@ check_file_result
return $why;
}
sub HELP_MESSAGE
sub
HELP_MESSAGE
{
print STDERR $Usage;
exit 0;