From eaba77bee562d100dfd2c8c4776b0a603742d48b Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Thu, 8 Oct 1998 11:37:03 +0100
Subject: [PATCH] Allow parameter defaults in test header

Copied from Perforce
 Change: 20199
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/headread | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/mps/qa/test/script/headread b/mps/qa/test/script/headread
index 70be5787915..2af8a0fef52 100644
--- a/mps/qa/test/script/headread
+++ b/mps/qa/test/script/headread
@@ -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  ".$_.",";
    }