Integrate with Sarathy.

[p5sagit/p5-mst-13.2.git] / t / pragma / utf8.t

#!./perl 

BEGIN {
    chdir 't' if -d 't';
    unshift @INC, '../lib';
    $ENV{PERL5LIB} = '../lib';
    if ( ord("\t") != 9 ) { # skip on ebcdic platforms
        print "1..0 # Skip utf8 tests on ebcdic platform.\n";
        exit;
    }
}

print "1..60\n";

my $test = 1;

sub ok {
    my ($got,$expect) = @_;
    print "# expected [$expect], got [$got]\nnot " if $got ne $expect;
    print "ok $test\n";
}

{
    use utf8;
    $_ = ">\x{263A}<"; 
    s/([\x{80}-\x{10ffff}])/"&#".ord($1).";"/eg; 
    ok $_, '>&#9786;<';
    $test++;				# 1

    $_ = ">\x{263A}<"; 
    my $rx = "\x{80}-\x{10ffff}";
    s/([$rx])/"&#".ord($1).";"/eg; 
    ok $_, '>&#9786;<';
    $test++;				# 2

    $_ = ">\x{263A}<"; 
    my $rx = "\\x{80}-\\x{10ffff}";
    s/([$rx])/"&#".ord($1).";"/eg; 
    ok $_, '>&#9786;<';
    $test++;				# 3

    $_ = "alpha,numeric"; 
    m/([[:alpha:]]+)/; 
    ok $1, 'alpha';
    $test++;				# 4

    $_ = "alphaNUMERICstring";
    m/([[:^lower:]]+)/; 
    ok $1, 'NUMERIC';
    $test++;				# 5

    $_ = "alphaNUMERICstring";
    m/(\p{Ll}+)/; 
    ok $1, 'alpha';
    $test++;				# 6

    $_ = "alphaNUMERICstring"; 
    m/(\p{Lu}+)/; 
    ok $1, 'NUMERIC';
    $test++;				# 7

    $_ = "alpha,numeric"; 
    m/([\p{IsAlpha}]+)/; 
    ok $1, 'alpha';
    $test++;				# 8

    $_ = "alphaNUMERICstring";
    m/([^\p{IsLower}]+)/; 
    ok $1, 'NUMERIC';
    $test++;				# 9

    $_ = "alpha123numeric456"; 
    m/([\p{IsDigit}]+)/; 
    ok $1, '123';
    $test++;				# 10

    $_ = "alpha123numeric456"; 
    m/([^\p{IsDigit}]+)/; 
    ok $1, 'alpha';
    $test++;				# 11

    $_ = ",123alpha,456numeric"; 
    m/([\p{IsAlnum}]+)/; 
    ok $1, '123alpha';
    $test++;				# 12
}
{
    use utf8;

    $_ = "\x{263A}>\x{263A}\x{263A}"; 

    ok length, 4;
    $test++;				# 13

    ok length((m/>(.)/)[0]), 1;
    $test++;				# 14

    ok length($&), 2;
    $test++;				# 15

    ok length($'), 1;
    $test++;				# 16

    ok length($`), 1;
    $test++;				# 17

    ok length($1), 1;
    $test++;				# 18

    ok length($tmp=$&), 2;
    $test++;				# 19

    ok length($tmp=$'), 1;
    $test++;				# 20

    ok length($tmp=$`), 1;
    $test++;				# 21

    ok length($tmp=$1), 1;
    $test++;				# 22

    {
        use bytes;

        my $tmp = $&;
	ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
	$test++;				# 23

	$tmp = $';
	ok $tmp, pack("C*", 0342, 0230, 0272);
	$test++;				# 24

	$tmp = $`;
	ok $tmp, pack("C*", 0342, 0230, 0272);
	$test++;				# 25

	$tmp = $1;
	ok $tmp, pack("C*", 0342, 0230, 0272);
	$test++;				# 26
    }

    {
	use bytes;
	no utf8;

	ok length, 10;
	$test++;				# 27

    	ok length((m/>(.)/)[0]), 1;
    	$test++;				# 28

    	ok length($&), 2;
    	$test++;				# 29

    	ok length($'), 5;
    	$test++;				# 30

    	ok length($`), 3;
    	$test++;				# 31

    	ok length($1), 1;
    	$test++;				# 32

	ok $&, pack("C*", ord(">"), 0342);
	$test++;				# 33

	ok $', pack("C*", 0230, 0272, 0342, 0230, 0272);
	$test++;				# 34

	ok $`, pack("C*", 0342, 0230, 0272);
	$test++;				# 35

	ok $1, pack("C*", 0342);
	$test++;				# 36

    }


    {
	no utf8;
	$_="\342\230\272>\342\230\272\342\230\272";
    }

    ok length, 10;
    $test++;				# 37

    ok length((m/>(.)/)[0]), 1;
    $test++;				# 38

    ok length($&), 2;
    $test++;				# 39

    ok length($'), 1;
    $test++;				# 40

    ok length($`), 1;
    $test++;				# 41

    ok length($1), 1;
    $test++;				# 42

    ok length($tmp=$&), 2;
    $test++;				# 43

    ok length($tmp=$'), 1;
    $test++;				# 44

    ok length($tmp=$`), 1;
    $test++;				# 45

    ok length($tmp=$1), 1;
    $test++;				# 46

    {
	use bytes;

        my $tmp = $&;
	ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
	$test++;				# 47

        $tmp = $';
	ok $tmp, pack("C*", 0342, 0230, 0272);
	$test++;				# 48

        $tmp = $`;
	ok $tmp, pack("C*", 0342, 0230, 0272);
	$test++;				# 49

        $tmp = $1;
	ok $tmp, pack("C*", 0342, 0230, 0272);
	$test++;				# 50
    }
    {
	use bytes;
	no utf8;

	ok length, 10;
	$test++;				# 51

    	ok length((m/>(.)/)[0]), 1;
    	$test++;				# 52

    	ok length($&), 2;
    	$test++;				# 53

    	ok length($'), 5;
    	$test++;				# 54

    	ok length($`), 3;
    	$test++;				# 55

    	ok length($1), 1;
    	$test++;				# 56

	ok $&, pack("C*", ord(">"), 0342);
	$test++;				# 57

	ok $', pack("C*", 0230, 0272, 0342, 0230, 0272);
	$test++;				# 58

	ok $`, pack("C*", 0342, 0230, 0272);
	$test++;				# 59

	ok $1, pack("C*", 0342);
	$test++;				# 60

    }
}