t/092_substr.t - metacpan.org

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

use Char::Sjis;
print "1..20\n";

my $__FILE__ = __FILE__;

$_ = ' ¢¤¦¨©«¯±';
if (substr($_,10) eq '©«¯±') {
    print qq{ok - 1 substr(\$_,10) eq '©«¯±' $^X $__FILE__\n};
}
else {
    print qq{not ok - 1 substr(\$_,10) eq '©«¯±' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (substr($_,4,6) eq '¤¦¨') {
    print qq{ok - 2 substr(\$_,4,6) eq '¤¦¨' $^X $__FILE__\n};
}
else {
    print qq{not ok - 2 substr(\$_,4,6) eq '¤¦¨' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (substr($_,4,6,'³µ·¹»') eq '¤¦¨') {
    if ($_ eq ' ¢³µ·¹»©«¯±') {
        print qq{ok - 3 substr(\$_,4,6,'³µ·¹»') eq '¤¦¨' $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 3 substr(\$_,4,6,'³µ·¹»') eq '¤¦¨' $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 3 substr(\$_,4,6,'³µ·¹»') eq '¤¦¨' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (substr($_,-6) eq '¯±') {
    print qq{ok - 4 substr(\$_,-6) eq '¯±' $^X $__FILE__\n};
}
else {
    print qq{not ok - 4 substr(\$_,-6) eq '¯±' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (substr($_,-10,6) eq '©«') {
    print qq{ok - 5 substr(\$_,-10,6) eq '©«' $^X $__FILE__\n};
}
else {
    print qq{not ok - 5 substr(\$_,-10,6) eq '©«' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (substr($_,-10,6,'âäæ') eq '©«') {
    if ($_ eq ' ¢¤¦¨âäæ¯±') {
        print qq{ok - 6 substr(\$_,-10,6,'âäæ') eq '©«' $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 6 substr(\$_,-10,6,'âäæ') eq '©«' $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 6 substr(\$_,-10,6,'âäæ') eq '©«' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (substr($_,10,0) eq '') {
    print qq{ok - 7 substr(\$_,10,0) eq '' $^X $__FILE__\n};
}
else {
    print qq{not ok - 7 substr(\$_,10,0) eq '' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (substr($_,10,0,'âäæ') eq '') {
    if ($_ eq ' ¢¤¦¨âäæ©«¯±') {
        print qq{ok - 8 substr(\$_,10,0,'âäæ') eq '' $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 8 substr(\$_,10,0,'âäæ') eq '' $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 8 substr(\$_,10,0,'âäæ') eq '' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (substr($_,-10,0) eq '') {
    print qq{ok - 9 substr(\$_,-10,0) eq '' $^X $__FILE__\n};
}
else {
    print qq{not ok - 9 substr(\$_,-10,0) eq '' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (substr($_,-10,0,'âäæ') eq '') {
    if ($_ eq ' ¢¤¦¨âäæ©«¯±') {
        print qq{ok - 10 substr(\$_,-10,0,'âäæ') eq '' $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 10 substr(\$_,-10,0,'âäæ') eq '' $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 10 substr(\$_,-10,0,'âäæ') eq '' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (Char::Sjis::substr($_,5) eq '©«¯±') {
    print qq{ok - 11 Char::Sjis::substr(\$_,5) eq '©«¯±' $^X $__FILE__\n};
}
else {
    print qq{not ok - 11 Char::Sjis::substr(\$_,5) eq '©«¯±' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (Char::Sjis::substr($_,2,3) eq '¤¦¨') {
    print qq{ok - 12 Char::Sjis::substr(\$_,2,3) eq '¤¦¨' $^X $__FILE__\n};
}
else {
    print qq{not ok - 12 Char::Sjis::substr(\$_,2,3) eq '¤¦¨' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (Char::Sjis::substr($_,2,3,'³µ·¹»') eq '¤¦¨') {
    if ($_ eq ' ¢³µ·¹»©«¯±') {
        print qq{ok - 13 Char::Sjis::substr(\$_,2,3,'³µ·¹»') eq '¤¦¨' $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 13 Char::Sjis::substr(\$_,2,3,'³µ·¹»') eq '¤¦¨' $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 13 Char::Sjis::substr(\$_,2,3,'³µ·¹»') eq '¤¦¨' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (Char::Sjis::substr($_,-3) eq '¯±') {
    print qq{ok - 14 Char::Sjis::substr(\$_,-3) eq '¯±' $^X $__FILE__\n};
}
else {
    print qq{not ok - 14 Char::Sjis::substr(\$_,-3) eq '¯±' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (Char::Sjis::substr($_,-5,3) eq '©«') {
    print qq{ok - 15 Char::Sjis::substr(\$_,-5,3) eq '©«' $^X $__FILE__\n};
}
else {
    print qq{not ok - 15 Char::Sjis::substr(\$_,-5,3) eq '©«' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (Char::Sjis::substr($_,-5,3,'âäæ') eq '©«') {
    if ($_ eq ' ¢¤¦¨âäæ¯±') {
        print qq{ok - 16 Char::Sjis::substr(\$_,-5,3,'âäæ') eq '©«' $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 16 Char::Sjis::substr(\$_,-5,3,'âäæ') eq '©«' $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 16 Char::Sjis::substr(\$_,-5,3,'âäæ') eq '©«' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (Char::Sjis::substr($_,5,0) eq '') {
    print qq{ok - 17 Char::Sjis::substr(\$_,5,0) eq '' $^X $__FILE__\n};
}
else {
    print qq{not ok - 17 Char::Sjis::substr(\$_,5,0) eq '' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (Char::Sjis::substr($_,5,0,'âäæ') eq '') {
    if ($_ eq ' ¢¤¦¨âäæ©«¯±') {
        print qq{ok - 18 Char::Sjis::substr(\$_,5,0,'âäæ') eq '' $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 18 Char::Sjis::substr(\$_,5,0,'âäæ') eq '' $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 18 Char::Sjis::substr(\$_,5,0,'âäæ') eq '' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (Char::Sjis::substr($_,-5,0) eq '') {
    print qq{ok - 19 Char::Sjis::substr(\$_,-5,0) eq '' $^X $__FILE__\n};
}
else {
    print qq{not ok - 19 Char::Sjis::substr(\$_,-5,0) eq '' $^X $__FILE__\n};
}

$_ = ' ¢¤¦¨©«¯±';
if (Char::Sjis::substr($_,-5,0,'âäæ') eq '') {
    if ($_ eq ' ¢¤¦¨âäæ©«¯±') {
        print qq{ok - 20 Char::Sjis::substr(\$_,-5,0,'âäæ') eq '' $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 20 Char::Sjis::substr(\$_,-5,0,'âäæ') eq '' $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 20 Char::Sjis::substr(\$_,-5,0,'âäæ') eq '' $^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)