mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

Ensure that mmqa tests require either a pass or a specified failure.

Browse source 
Copied from Perforce
 Change: 194668
This commit is contained in:
Gareth Rees 2018-07-16 12:57:42 +01:00
parent 09a10b1cce
commit f2242fcb64
4 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
mps/test/function/135.c
View file

@ -6,6 +6,7 @@ TEST_HEADER
link = testlib.o
OUTPUT_SPEC
count < 10
errtext = alloc: COMMIT_LIMIT
END_HEADER
*/

1
mps/test/function/8.c
View file

@ -47,5 +47,6 @@ int main(void)
/* Can't exhaust 64-bit address space by allocating, so fake a pass. */
report("arena", "%d", ARENAS);
}
pass();
return 0;
}

1
mps/test/function/98.c
View file

@ -39,5 +39,6 @@ int main(void)
/* Can't exhaust 64-bit address space by allocating, so fake a pass. */
report("arena", "%d", ARENAS);
}
pass();
return 0;
}

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

@ -111,6 +111,19 @@ sub readheader {
delete $spec_output{"result"};
delete $spec_rel{"result"};
}
# If the test case specifies neither completion nor failure, assume
# completion is intended.
my @expected_keys = qw(completed assert abort assert_or_abort errtext);
my $have_expected = 0;
foreach $key (@expected_keys) {
if (exists $spec_output{$key}) {
$have_expected = 1;
}
}
if (!$have_expected) {
$spec_output{"completed"} = "yes";
$spec_rel{"completed"} = "=";
}
}
sub readvals {