mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-06 22:31:13 -07:00
Code Issues Projects Releases Wiki Activity

Allow multi-line fields in test header (use \ for continuation)

Browse source 
Copied from Perforce
 Change: 20347
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-11-10 12:34:36 +00:00
parent ef890229f8
commit bf3ba196c4
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,5 +1,5 @@
#!/usr/local/bin/perl
# $HopeName: MMQA_harness!script:headread(trunk.14) $
# $HopeName: MMQA_harness!script:headread(trunk.15) $
#
# subroutines to assist in
# 1. reading test headers
@ -49,7 +49,12 @@ sub readheader {
while (! /END_HEADER/) {
($_ = <IN> || die "Couldn't find end of test header in $infile.\n");
chop;
$line = $line."; ".$_;
if ($line =~ /\\$/) {
chop($line);
$line = $line.$_;
} else {
$line = $line."; ".$_;
}
}
$line =~ s/END_HEADER.*//;
@ -88,7 +93,7 @@ sub readheader {
$testid = "$infile (writeable)";
}
if ($testid =~ /^\$HopeName:/) {
$testid =~ s/^\$HopeName: MMQA_harness!script:headread(trunk.14) $/$1/;
$testid =~ s/^\$HopeName: MMQA_harness!script:headread(trunk.15) $/$1/;
}
#
# Compatibility with old tests
@ -114,7 +119,7 @@ sub readvals {
%keyvalues = ();
%keyrelations = ();
s/([^\/]);/$1;;/g;
s/([^\\]);/$1;;/g;
foreach (split(/\s*;;\s*/)) {
s/\\(\\|;)/$1/g;