mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-19 01:10:57 -08:00
64 lines
1.4 KiB
Perl
64 lines
1.4 KiB
Perl
#!/usr/local/perl
|
|
# $HopeName: MMQA_harness!script:options(trunk.18) $
|
|
#
|
|
|
|
# global options for qa commands
|
|
#
|
|
# this file also has the job of detecting what platform
|
|
# we're on
|
|
#
|
|
|
|
# first to see where we are:
|
|
|
|
if (($ENV{"OS"} || "") eq "Windows_NT") {
|
|
# it's NT, so find out what the processor is
|
|
# from a system variable
|
|
$platform_class = "nt_".$ENV{"PROCESSOR_ARCHITECTURE"};
|
|
if ($platform_class eq "nt_") {
|
|
$platform_class = "nt_dunno";
|
|
}
|
|
$platform_phylum = "pc";
|
|
} elsif (($ENV{"OSTYPE"} || "") eq "Linux") {
|
|
# it's Linux. We'll assume they're all the same!
|
|
$platform_class = "linux";
|
|
$platform_phylum = "unix";
|
|
} else {
|
|
# it's unix by default
|
|
$platform_class = `class`;
|
|
chop($platform_class);
|
|
$platform_phylum = "unix";
|
|
}
|
|
|
|
%qa_options = (
|
|
"v", "INTERFACE_VERSION",
|
|
"i", "MPS_INCLUDE_DIR",
|
|
"l", "MPS_LINK_OBJ",
|
|
"p", "PLATFORM",
|
|
"data", "DATA_DIR",
|
|
"a", "PARAMETERS",
|
|
"s", "STDIN",
|
|
"g", "LOG_DIR",
|
|
"m", "MAIL_TO"
|
|
);
|
|
|
|
%qa_flags = (
|
|
"debug", "DEBUG_INFO",
|
|
"mail", "MAIL_RESULTS"
|
|
);
|
|
|
|
%qa_defaults = (
|
|
"PLATFORM", $platform_class."__".$platform_phylum,
|
|
"DEBUG_INFO", "off",
|
|
"DATA_DIR", "$test_dir/../data",
|
|
"LOG_DIR", "$test_dir/log",
|
|
"PARAMETERS", "",
|
|
"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, MAIL_RESULTS, 1, MAIL_TO, 1);
|
|
%qa_cumulative_opts = (PARAMETERS, 1);
|
|
|