lib/Unicode/testnorm.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

use strict;
use warnings;

BEGIN {
    chdir 't' if -d 't';
}

# This is a wrapper for a generated file.  Assumes being run from 't'
# directory.

if (! $ENV{PERL_DEBUG_FULL_TEST}) {
    print "1..0 # skipped: Lengthy Tests Disabled; to enable set environment",
          "variable \$ENV{PERL_DEBUG_FULL_TEST} to a true value\n";
    0
}
else {
    my $file = '../lib/unicore/TestNorm.pl';
    if (-e $file) {
        do $file;
    }
    else {
        print "1..0 # Skip $file not built (perhaps build options don't"
            . " build it)\n";
        0
    }
}