source: trunk/third/perl/t/TestInit.pm @ 18450

Revision 18450, 552 bytes checked in by zacheiss, 22 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r18449, which included commits to RCS files with non-trunk default branches.
Line 
1# This is a replacement for the old BEGIN preamble which heads (or
2# should head) up every core test program to prepare it for running.
3# Now instead of:
4#
5# BEGIN {
6#   chdir 't' if -d 't';
7#   @INC = '../lib';
8# }
9#
10# t/TEST will use -MTestInit.  You may "use TestInit" in the test
11# programs but it is not required.
12#
13# P.S. This documentation is not in POD format in order to avoid
14# problems when there are fundamental bugs in perl.
15
16package TestInit;
17
18chdir 't' if -d 't';
19@INC = '../lib';
20$0 =~ s/\.dp$//; # for the test.deparse make target
211;
22
Note: See TracBrowser for help on using the repository browser.