Commit | Line | Data |
---|---|---|
4343e7c3 | 1 | # This is a replacement for the old BEGIN preamble which heads (or |
db7c4376 | 2 | # should head) up every core test program to prepare it for running. |
4343e7c3 MS |
3 | # Now instead of: |
4 | # | |
5 | # BEGIN { | |
6 | # chdir 't' if -d 't'; | |
7 | # @INC = '../lib'; | |
8 | # } | |
9 | # | |
db7c4376 PG |
10 | # t/TEST will use -MTestInit. You may "use TestInit" in the test |
11 | # programs but it is not required. | |
4343e7c3 | 12 | # |
db7c4376 PG |
13 | # P.S. This documentation is not in POD format in order to avoid |
14 | # problems when there are fundamental bugs in perl. | |
4343e7c3 | 15 | |
18fc9488 DM |
16 | package TestInit; |
17 | ||
4343e7c3 MS |
18 | chdir 't' if -d 't'; |
19 | @INC = '../lib'; | |
c27ac8cc | 20 | $ENV{PERL_CORE} = 1; |
7a315204 | 21 | $0 =~ s/\.dp$//; # for the test.deparse make target |
ec5f1610 RH |
22 | 1; |
23 |