mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-14 23:40:39 -08:00
20 lines
508 B
Perl
20 lines
508 B
Perl
#!/usr/local/bin/perl
|
|
# $HopeName: MMQA_harness!script:commands:run(trunk.6) $
|
|
#
|
|
# run tests interactively (allows for user input, immediate results,
|
|
# &c, and give results in standard format, and mailing results)
|
|
|
|
&requiredoptions(
|
|
"MPS_INCLUDE_DIR",
|
|
"MPS_LINK_OBJ",
|
|
# "MPS_INTERFACE_VERSION",
|
|
"MPS_PRODUCT",
|
|
"PLATFORM",
|
|
"LOG_DIR"
|
|
);
|
|
|
|
foreach $testfile (@ARGV) {
|
|
&run_test($testfile, "yes", "results", "$LOG_DIR/last.log");
|
|
&mailfile("$LOG_DIR/last.log", "$MAIL_SUBJECT $testid $testconclusion");
|
|
}
|
|
|