From 5c43609b9bf885bf600b45b53febde55a91ef2cf Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Wed, 17 Feb 1999 17:14:23 +0000
Subject: [PATCH] New unit

improve option handling

Copied from Perforce
 Change: 20565
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/init | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 mps/qa/test/script/init

diff --git a/mps/qa/test/script/init b/mps/qa/test/script/init
new file mode 100644
index 00000000000..b57e8c140a8
--- /dev/null
+++ b/mps/qa/test/script/init
@@ -0,0 +1,19 @@
+#!/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;
+}
+