Adding in TestSetup.pm to replace BEGIN preamble on tests.

Message-ID: <20010218134435.A17544@magnonel.guild.net>

Applied, but as t/TestInit.pm.

p4raw-id: //depot/perl@8829

1 files changed, 17 insertions, 0 deletions

diff --git a/t/TestInit.pm b/t/TestInit.pm
new file mode 100644
index 0000000000..873c3ce878
--- /dev/null
+++ b/t/TestInit.pm
@@ -0,0 +1,17 @@
+# This is a replacement for the old BEGIN preamble which heads (or
+# should head) up every core test program to prep it for running.  
+# Now instead of:
+#
+# BEGIN {
+#   chdir 't' if -d 't';
+#   @INC = '../lib';
+# }
+#
+# t/TEST will use -MTestInit.  It also doesn't hurt if you "use TestInit"
+# (not require) in the test scripts.
+#
+# PS this is not POD because this should be a very minimalist module in
+# case of fundemental perl breakage.
+
+chdir 't' if -d 't';
+@INC = '../lib';