mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-25 05:52:42 -08:00
Code Issues Projects Releases Wiki Activity

Result munging

Browse source 
Copied from Perforce
 Change: 18426
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1997-07-10 15:34:08 +01:00
parent ef9082a903
commit 099a7f43c8
1 changed files with 23 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

26
mps/qa/test/script/compile
View file

@ -22,7 +22,7 @@ sub compiler_settings {
$cc_conly = "/c";
$cc_obj = "/Fo";
$cc_exe = "/Fe";
$run_command = "";
$try_command = "";
} elsif ($PLATFORM =~ "^(sun|sol)") {
if ($PLATFORM =~ "^sol") {
$cc_link = "$obj_dir/platform.o -lm";
@ -38,7 +38,7 @@ sub compiler_settings {
$cc_conly = "-c";
$cc_obj = "-o ";
$cc_exe = "-o ";
$run_command = "sh -c ";
$try_command = "sh -c ";
} else {
die "Sorry: I don't know how to compile on ".$PLATFORM."\n";
}
@ -75,6 +75,26 @@ sub compile_and_link {
sub try_test {
local ($exefile) = @_;
system($run_command.$exefile);
system($try_command.$exefile);
}
sub run_test {
local ($exefile) = @_;
local ($tempfile) = "$obj_dir/tmp_f";
system($try_command.$exefile." >> ".$tempfile."1 2> ".$tempfile."2");
system("cat ".$tempfile."1 ".$tempfile."2 | ".$tempfile."3");
die "*** need to munge $tempfile3 into results format";
open(OUTPUT, "tmp_output");
&filevars(OUTPUT); *** need new version of this here!
close(OUTPUT);
if (&passfail()) {
print "RESULT: PASS\n";
} else {
print "RESULT: FAIL\n";
}