mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-03-29 10:11:58 -07:00
New unit
becos Copied from Perforce Change: 18184 ServerID: perforce.ravenbrook.com
This commit is contained in:
parent
6c9cad3202
commit
9870bc3e2c
3 changed files with 103 additions and 0 deletions
47
mps/qa/test/script/commands/help
Normal file
47
mps/qa/test/script/commands/help
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
#!/usr/local/perl
|
||||
#
|
||||
# provide help on QA functions
|
||||
#
|
||||
|
||||
&options();
|
||||
|
||||
if (@qa_args) {
|
||||
foreach (@qa_args) {
|
||||
&printhelp($_);
|
||||
}
|
||||
} else {
|
||||
print "Help topics:\n";
|
||||
foreach (<$script_dir/help/*>) {
|
||||
/\/([^\/]*)$/;
|
||||
&summhelp($1);
|
||||
}
|
||||
print "For help on a topic, type 'qa help <topic>'.\n";
|
||||
}
|
||||
|
||||
sub summhelp {
|
||||
local ($infile, $sumline) = @_;
|
||||
unless(open(IN, $script_dir."/help/".$infile)) {
|
||||
die "File ".$infile." unexpectedly not found.\n";
|
||||
}
|
||||
$sumline = <IN>;
|
||||
close(IN);
|
||||
write STDOUT;
|
||||
}
|
||||
|
||||
sub printhelp {
|
||||
local ($infile) = @_;
|
||||
unless(open(IN, $script_dir."/help/".$infile)) {
|
||||
print "No help available on $infile.\n";
|
||||
} else {
|
||||
<IN>;
|
||||
while (<IN>) {
|
||||
print $_;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
format STDOUT =
|
||||
@<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
||||
$infile, $sumline
|
||||
.
|
||||
|
||||
20
mps/qa/test/script/help/naming
Normal file
20
mps/qa/test/script/help/naming
Normal file
|
|
@ -0,0 +1,20 @@
|
|||
Numbering of test programs
|
||||
|
||||
Test programs are identified by codes consisting of a single letter
|
||||
and some numbers (no leading zeros). The letter gives the type
|
||||
of test, and where to find it, as follows:
|
||||
|
||||
f -- Functional test MMQA_test_function
|
||||
a -- Argument violation MMQA_test_argerr
|
||||
c -- Context violation MMQA_test_conerr
|
||||
t -- aTtribute test MMQA_test_attribute
|
||||
m -- Miscellaneous test MMQA_test_misc
|
||||
|
||||
Every program is classified as one of these, and for each there is
|
||||
a directory, as given above. In the directory, nn.c are the
|
||||
test files, numbered in decimal from 0, and index is a text
|
||||
file giving short summaries of what the tests test.
|
||||
|
||||
When citing a test in a bug report, Darwin request or other
|
||||
documentation, give its code as, e.g. 'f5'.
|
||||
|
||||
36
mps/qa/test/script/help/output
Normal file
36
mps/qa/test/script/help/output
Normal file
|
|
@ -0,0 +1,36 @@
|
|||
Conventions for test output
|
||||
|
||||
Lines beginning with % are comments and will be ignored
|
||||
in all automatic processing. They'll only be useful
|
||||
when running test programs manually.
|
||||
|
||||
All other lines will be of the form:
|
||||
|
||||
<variable>=<value>
|
||||
|
||||
Where <var> is a string of alphanumerics and blahs, and
|
||||
<value> is any printable chars up to the end of line.
|
||||
|
||||
The output should begin with identifying lines something
|
||||
like this:
|
||||
|
||||
test_program=
|
||||
platform=
|
||||
product=
|
||||
version=
|
||||
|
||||
No line should be more than 80 chars long.
|
||||
|
||||
Obviously this isn't the direct output from the test
|
||||
program. Things like abortion, assertion failure &c &c
|
||||
will tend to produce other junk in the test output; this
|
||||
will be processed by a (platform-specific) program to produce
|
||||
the eventual test output. The processing program will
|
||||
pass straight through all lines beginning with %, and all
|
||||
blank lines. It will strip a ! from the beginning of any
|
||||
line which begins with one (use for !<var>=<value>),
|
||||
and do platform-speciic stuff on all the remaining lines.
|
||||
It will complain about (at least) the first line it
|
||||
doesn't understand.
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue