| 1 | # This is a replacement for the old BEGIN preamble which heads (or |
| 2 | # should head) up every core test program to prep 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. It also doesn't hurt if you "use TestInit" |
| 11 | # (not require) in the test scripts. |
| 12 | # |
| 13 | # PS this is not POD because this should be a very minimalist module in |
| 14 | # case of funaemental perl breakage. |
| 15 | |
| 16 | package TestInit; |
| 17 | |
| 18 | chdir 't' if -d 't'; |
| 19 | @INC = '../lib'; |
| 20 | $0 =~ s/\.dp$//; # for the test.deparse make target |
| 21 | 1; |
| 22 | |