| 1 | #!./perl
|
|---|
| 2 |
|
|---|
| 3 | my $has_perlio;
|
|---|
| 4 |
|
|---|
| 5 | BEGIN {
|
|---|
| 6 | chdir 't' if -d 't';
|
|---|
| 7 | @INC = '../lib';
|
|---|
| 8 | require './test.pl';
|
|---|
| 9 | unless ($has_perlio = find PerlIO::Layer 'perlio') {
|
|---|
| 10 | print <<EOF;
|
|---|
| 11 | # Since you don't have perlio you might get failures with UTF-8 locales.
|
|---|
| 12 | EOF
|
|---|
| 13 | }
|
|---|
| 14 | }
|
|---|
| 15 |
|
|---|
| 16 | no utf8; # Ironic, no?
|
|---|
| 17 |
|
|---|
| 18 | # NOTE!
|
|---|
| 19 | #
|
|---|
| 20 | # Think carefully before adding tests here. In general this should be
|
|---|
| 21 | # used only for about three categories of tests:
|
|---|
| 22 | #
|
|---|
| 23 | # (1) tests that absolutely require 'use utf8', and since that in general
|
|---|
| 24 | # shouldn't be needed as the utf8 is being obsoleted, this should
|
|---|
| 25 | # have rather few tests. If you want to test Unicode and regexes,
|
|---|
| 26 | # you probably want to go to op/regexp or op/pat; if you want to test
|
|---|
| 27 | # split, go to op/split; pack, op/pack; appending or joining,
|
|---|
| 28 | # op/append or op/join, and so forth
|
|---|
| 29 | #
|
|---|
| 30 | # (2) tests that have to do with Unicode tokenizing (though it's likely
|
|---|
| 31 | # that all the other Unicode tests sprinkled around the t/**/*.t are
|
|---|
| 32 | # going to catch that)
|
|---|
| 33 | #
|
|---|
| 34 | # (3) complicated tests that simultaneously stress so many Unicode features
|
|---|
| 35 | # that deciding into which other test script the tests should go to
|
|---|
| 36 | # is hard -- maybe consider breaking up the complicated test
|
|---|
|
|---|
