1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-13 23:10:26 -08:00
emacs/mps/qa/test/script/init
Richard Tucker 6550a2835d New unit
improve option handling

Copied from Perforce
 Change: 20565
 ServerID: perforce.ravenbrook.com
1999-02-17 17:14:23 +00:00

19 lines
314 B
Perl

#!/usr/local/perl
# $HopeName: MMQA_harness!script:dirs(trunk.3) $
#
# harness_init is called from qa after loading everything in,
# but before calling the command
#
1;
sub harness_init {
&platform_detect;
&process_options;
&set_dirs;
&platform_settings;
&identify;
&auto_settings;
&platform_settings;
}