| 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 |
|
|---|
| 16 | package TestInit;
|
|---|
| 17 |
|
|---|
| 18 | $VERSION = 1.01;
|
|---|
| 19 |
|
|---|
| 20 | chdir 't' if -d 't';
|
|---|
| 21 | @INC = '../lib';
|
|---|
| 22 |
|
|---|
| 23 | # Don't interfere with the taintedness of %ENV, this could perturbate tests
|
|---|
| 24 | $ENV{PERL_CORE} = 1 unless ${^TAINT};
|
|---|
| 25 |
|
|---|
| 26 | $0 =~ s/\.dp$//; # for the test.deparse make target
|
|---|
| 27 | 1;
|
|---|
| 28 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
