mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-30 02:33:03 -07:00
Code Issues Projects Releases Wiki Activity

Support for #define

Browse source 
Copied from Perforce
 Change: 20169
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-10-07 11:46:07 +01:00
parent 72aca4a75f
commit 4ec5072377
1 changed files with 26 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

27
mps/qa/test/script/headread
View file

@ -1,5 +1,5 @@
#!/usr/local/bin/perl
# $HopeName$
# $HopeName: MMQA_harness!script:headread(trunk.7) $
#
# subroutines to assist in
# 1. reading test headers
@ -71,6 +71,7 @@ sub readheader {
%spec_rel = %keyrelations;
close(IN);
&get_parmdefs();
}
sub readvals {
@ -163,3 +164,27 @@ sub verdict {
}
}
#
# &get_parmdefs gets parameter definitions from the environment, as
# specified in the test header
#
sub get_parmdefs {
local ($var, $missing);
$missing = "";
%parmdefs = ();
if (exists $test_header{"params"}) {
foreach (split /\s+/, $test_header{"params"}) {
$var = $ENV{"MMQA_".$_};
if (defined $var) {
$parmdefs{$_} = $var;
} else {
$missing .= "\n MMQA_".$_.",";
}
}
if ($missing ne "") {
chop $missing;
die "Unspecified test parameters:$missing.\n";
}
}
}