t/050_split.t - metacpan.org

# This file is encoded in Char::GB18030.
die "This file is not encoded in Char::GB18030.\n" if q{ } ne "\x82\xa0";

use Char::GB18030;
print "1..15\n";

my $__FILE__ = __FILE__;

$text = 'hnDrxrFQQTTTWFXT|PO|ORF||F';

# 7.7 splitZq(XgReLXg)
@_ = split(/F/, $text);
if (join('', map {"($_)"} @_) eq "(hnDrxr)(QQTTTW)(XT|PO|OR)(||)()") {
    print qq{ok - 1 \@_ = split(/F/, \$text); $^X $__FILE__\n};
}
else {
    print qq{not ok - 1 \@_ = split(/F/, \$text); $^X $__FILE__\n};
}

# ÁêÈ}b`íZq // ðgÁ½ê
@_ = split(//, "@");
if (join('', map {"($_)"} @_) eq "()()()()()(@)()()()()") {
    print qq{ok - 2 \@_ = split(//, "@") $^X $__FILE__\n};
}
else {
    print qq{not ok - 2 \@_ = split(//, "@") $^X $__FILE__\n};
}

# ÁêÈ}b`íZq " "(Xy[X1ÂªÌÊíÌ¶ñ)ðgÁ½ê
@_ = split(" ", "          ");
if (join('', map {"($_)"} @_) eq "()()()") {
    print qq{ok - 3 \@_ = split(" ", "          ") $^X $__FILE__\n};
}
else {
    print qq{not ok - 3 \@_ = split(" ", "          ") $^X $__FILE__\n};
}

# æªÌóðcµ½¢ê
@_ = split(m/\s+/, "          ");
if (join('', map {"($_)"} @_) eq "()()()()") {
    print qq{ok - 4 \@_ = split(m/\\s+/, "          ") $^X $__FILE__\n};
}
else {
    print qq{not ok - 4 \@_ = split(m/\\s+/, "          ") $^X $__FILE__\n};
}

# öÌóðcµ½¢ê
@_ = split(" ", "          ", -1);
if (join('', map {"($_)"} @_) eq "()()()()") {
    print qq{ok - 5 \@_ = split(" ", "          ", -1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 5 \@_ = split(" ", "          ", -1) $^X $__FILE__\n};
}

# }b`íZqªwè³êÄ¢È¢ê
$_ = "          ";
@_ = split;
if (join('', map {"($_)"} @_) eq "()()()") {
    print qq{ok - 6 \@_ = split $^X $__FILE__\n};
}
else {
    print qq{not ok - 6 \@_ = split $^X $__FILE__\n};
}

# 7.7.1.2 ^[Qbg¶ñªwè³êÄ¢È¢ê
$_ = $text;
@_ = split(/F/);
if (join('', map {"($_)"} @_) eq "(hnDrxr)(QQTTTW)(XT|PO|OR)(||)()") {
    print qq{ok - 7 \@_ = split(/F/) $^X $__FILE__\n};
}
else {
    print qq{not ok - 7 \@_ = split(/F/) $^X $__FILE__\n};
}

# 7.7.1.3 ÂãÀíZqÌî{
@_ = split(/F/, $text, 3);
if (join('', map {"($_)"} @_) eq "(hnDrxr)(QQTTTW)(XT|PO|ORF||F)") {
    print qq{ok - 8 \@_ = split(/F/, \$text, 3) $^X $__FILE__\n};
}
else {
    print qq{not ok - 8 \@_ = split(/F/, \$text, 3) $^X $__FILE__\n};
}

# 7.7.2 óvf
@_ = split(m/F/, "PQFRSFFVW");
if (join('', map {"($_)"} @_) eq "(PQ)(RS)()(VW)") {
    print qq{ok - 9 \@_ = split(m/F/, "PQFRSFFVW") $^X $__FILE__\n};
}
else {
    print qq{not ok - 9 \@_ = split(m/F/, "PQFRSFFVW") $^X $__FILE__\n};
}

# 7.7.2.1 öÌóvf
@_ = split(m/F/, "PQFRSFFVWFFF");
if (join('', map {"($_)"} @_) eq "(PQ)(RS)()(VW)") {
    print qq{ok - 10 \@_ = split(m/F/, "PQFRSFFVWFFF") $^X $__FILE__\n};
}
else {
    print qq{not ok - 10 \@_ = split(m/F/, "PQFRSFFVWFFF") $^X $__FILE__\n};
}

# 7.7.2.3 ¶ñÌ¼[ÅÌÁêÈ}b`
@_ = split(m/F/, "FPQFRSFFVW");
if (join('', map {"($_)"} @_) eq "()(PQ)(RS)()(VW)") {
    print qq{ok - 11 \@_ = split(m/F/, "FPQFRSFFVW") $^X $__FILE__\n};
}
else {
    print qq{not ok - 11 \@_ = split(m/F/, "FPQFRSFFVW") $^X $__FILE__\n};
}

# u^vÆ¢¤³K\»ðgÁ½ê
$_ = "```\naaa\nbbb";
@_ = split(m/^/, $_);
if (join('', map {"($_)"} @_) eq "(```\n)(aaa\n)(bbb)") {
    print qq{ok - 12 \@_ = split(m/^/, \$\_) $^X $__FILE__\n};
}
else {
    print qq{not ok - 12 \@_ = split(m/^/, \$\_) $^X $__FILE__\n};
}
@_ = split(m/^/m, $_);
if (join('', map {"($_)"} @_) eq "(```\n)(aaa\n)(bbb)") {
    print qq{ok - 13 \@_ = split(m/^/m, \$\_) $^X $__FILE__\n};
}
else {
    print qq{not ok - 13 \@_ = split(m/^/m, \$\_) $^X $__FILE__\n};
}

# 7.7.4 Lv`t«ÊðÜÞ split Ì}b`íZq
@_ = split(/(<[^>]*>)/, "@@<a>@<enms@></enms>@</B>@");
if (join('', map {"($_)"} @_) eq "(@@)(<a>)(@)(<enms@>)()(</enms>)(@)(</B>)(@)") {
    print qq{ok - 14 \@_ = split(/(<[^>]*>)/, "@@<a>@<enms@></enms>@</B>@") $^X $__FILE__\n};
}
else {
    print qq{not ok - 14 \@_ = split(/(<[^>]*>)/, "@@<a>@<enms@></enms>@</B>@") $^X $__FILE__\n};
}

# 7.7.3.1 split ÉÍìpªÈ¢±ÆÌmF
$a = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
$a =~ m/ABC(DEF)G(HI)/;
if (($1 eq "DEF") and ($2 eq "HI")) {
    $b = "123,45,6,78,,90";
    @_ = split(/,/,$b);
    if (($1 eq "DEF") and ($2 eq "HI")) {
        print qq{ok - 15 split ÉìpªÈ¢±ÆÌmF ($1)($2) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 15 split ÉìpªÈ¢±ÆÌmF ($1)($2) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 15 split ÉìpªÈ¢±ÆÌmF ($1)($2) $^X $__FILE__\n};
}

__END__
	Global
`s`	Focus search bar
`?`	Bring up this help dialog
	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)
	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse
	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)