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

Allow parameter defaults in test header

Browse source 
Copied from Perforce
 Change: 20199
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-10-08 11:37:03 +01:00
parent 201af60c11
commit eaba77bee5
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,5 +1,5 @@
#!/usr/local/bin/perl
# $HopeName: MMQA_harness!script:headread(trunk.9) $
# $HopeName: MMQA_harness!script:headread(trunk.10) $
#
# subroutines to assist in
# 1. reading test headers
@ -170,14 +170,17 @@ sub verdict {
#
sub get_parmdefs {
local ($var, $missing);
local ($var, $missing, $val);
$missing = "";
%parmdefs = ();
if (exists $test_header{"parameters"}) {
foreach (split /\s+/, $test_header{"parameters"}) {
($_, $val) = split /=/, $_;
$var = getparameter($_);
if (defined $var) {
$parmdefs{$_} = $var;
} elsif ($val) {
$parmdefs{$_} = $val;
} else {
$missing .= "\n ".$_.",";
}