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

Support for mailing test results

Browse source 
Copied from Perforce
 Change: 20278
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-10-26 15:21:42 +00:00
parent c8579a13f8
commit e6f3f93291
2 changed files with 37 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,5 +1,5 @@
#!/usr/local/perl
# $HopeName: MMQA_harness!script:compile(trunk.22) $
# $HopeName: MMQA_harness!script:compile(trunk.23) $
#
# provides subroutines to compile or compile and link
# tests and test libraries.
@ -60,6 +60,7 @@ sub settings_nt {
$err_red = "2>";
$stdout_dup = "| $script_dir/ntx86bin/tee.exe";
$stdin_red = "<";
$platmailfile = \&nt_mailfile;
}
sub settings_nt_cap {
@ -97,6 +98,7 @@ sub settings_unix {
$err_red = "2>";
$stdout_dup = "| tee";
$stdin_red = "<";
$platmailfile = \&unix_mailfile;
}
sub settings_gprof {
@ -110,6 +112,29 @@ sub mysystem {
system($command);
}
sub mailfile {
local ($file, $subj) = @_;
if ($MAIL_RESULTS eq "on") {
&$platmailfile($file, $MAIL_TO, $subj);
}
}
sub nt_mailfile {
local ($file, $to, $subj) = @_;
&mysystem(
"$script_dir/ntx86bin/blat.exe ".
"$file -server mailhost -f mm-qa -t $to -s \"$subj\" -q");
}
sub unix_mailfile {
local ($file, $to, $subj) = @_;
&mysystem(
"{ echo \"To: $to\"; echo \"Subject: $subj\"; cat $file; } | mail -t");
}
sub log_system {
local ($command, $output, $logfile, $stdin, $time0, $time1) = @_;

16
mps/qa/test/script/options
View file

@ -1,5 +1,5 @@
#!/usr/local/perl
# $HopeName: MMQA_harness!script:options(trunk.17) $
# $HopeName: MMQA_harness!script:options(trunk.18) $
#
# global options for qa commands
@ -37,11 +37,13 @@ if (($ENV{"OS"} || "") eq "Windows_NT") {
"data", "DATA_DIR",
"a", "PARAMETERS",
"s", "STDIN",
"g", "LOG_DIR"
"g", "LOG_DIR",
"m", "MAIL_TO"
);
%qa_flags = (
"debug", "DEBUG_INFO"
"debug", "DEBUG_INFO",
"mail", "MAIL_RESULTS"
);
%qa_defaults = (
@ -50,9 +52,13 @@ if (($ENV{"OS"} || "") eq "Windows_NT") {
"DATA_DIR", "$test_dir/../data",
"LOG_DIR", "$test_dir/log",
"PARAMETERS", "",
"INTERFACE_VERSION", "BQ"
"INTERFACE_VERSION", "BQ",
"MAIL_RESULTS", "off",
# "MAIL_RESULTS", "on",
"MAIL_TO", "rit"
# "MAIL_TO", "mm-qa-test-log"
);
%qa_unlogged_opts = (DATA_DIR, 1, LOG_DIR, 1);
%qa_unlogged_opts = (DATA_DIR, 1, LOG_DIR, 1, MAIL_RESULTS, 1, MAIL_TO, 1);
%qa_cumulative_opts = (PARAMETERS, 1);