BEGIN { $| = 1; print "1..12\n"; }
END {print "not ok 1\n" unless $loaded;}
use String::Multibyte;
$^W = 1;
$loaded = 1;
print "ok 1\n";

$mb = String::Multibyte->new('ShiftJIS',1);

$NG = 0;
for ("Š¿ŽšƒeƒXƒg", "abc", "±²³´µ", "Êß°Ù=Perl",
	"\001\002\003\000\n", "", " ", '@') {
    $NG++ unless $mb->islegal($_);
}
print !$NG ? "ok" : "not ok", " 2\n";

for ("‚»‚ê‚à‚»‚¤‚¾\xFF\xFF", "‚Ç‚¤‚É‚à‚±‚¤‚É‚à\x81\x39",
	"\x91\x00", "‚±‚ê‚Í\xFF‚Ç‚¤‚©‚È") {
    $NG++ unless ! $mb->islegal($_);
}
print !$NG ? "ok" : "not ok", " 3\n";

print $mb->islegal("‚ ", "P", "", "¶Ý¼Þ test")
    && ! $mb->islegal("“ú–{","‚³kanji","\xA0","PERL")
  ? "ok" : "not ok", " 4\n";

print 0 eq $mb->length("")
  &&  3 eq $mb->length("abc")
  &&  4 eq $mb->length("abc\n")
  &&  5 eq $mb->length("±²³´µ")
  &&  4 eq $mb->length("Êß°Ù")
  && 12 eq $mb->length("¶Þ·Þ¸Þ¹ÞºÞ³Þ")
  && 10 eq $mb->length("‚ ‚©‚³‚½‚È‚Í‚Ü‚â‚ç‚í")
  && 14 eq $mb->length("‚ ‚©‚³‚½‚È\n\n‚Í‚Ü‚â‚ç‚í\n\n")
  &&  9 eq $mb->length('AIUEO“ú–{Š¿Žš')
  ? "ok" : "not ok", " 5\n";

print $mb->mkrange("‚Ÿ-‚¤") eq "‚Ÿ‚ ‚¡‚¢‚£‚¤"
   && $mb->mkrange("0-9‚O-‚X") eq "0123456789‚O‚P‚Q‚R‚S‚T‚U‚V‚W‚X"
   && $mb->mkrange('•\-') eq '•\-'
  ? "ok" : "not ok", " 6\n";

$ref = 'ŽšŠ¿–{“úµ´³²±OEUIAoeuia‚¨‚¦‚¤‚¢‚ ';
$str = '‚ ‚¢‚¤‚¦‚¨aiueoAIUEO±²³´µ“ú–{Š¿Žš';

print $ref eq $mb->strrev($str)
  ? "ok" : "not ok", " 7\n";

print $mb->strspn("XZ\0Z\0Yz", "\0X\0YZ") == 6
   && $mb->strcspn("Perl‚Í–Ê”’‚¢B", "XY\0r") == 2
   && $mb->strspn("+0.12345*12", "+-.0123456789") == 8
   && $mb->strcspn("Perl‚Í–Ê”’‚¢B", "ÔÂ‰©”’•") == 6
   && $mb->strspn("", "123") == 0
   && $mb->strcspn("", "123") == 0
   && $mb->strspn("‚ ‚¢‚¤‚¦‚¨", "") == 0
   && $mb->strcspn("‚ ‚¢‚¤‚¦‚¨", "") == 5
   && $mb->strspn("ÊßÊßÊÍßÎß", "ÊßËßÌßÍßÎß") == 9
   && $mb->strcspn("¹»ÉºÞÊÝÊ", "¶Þ·Þ¸Þ¹ÞºÞ") == 0
   && $mb->strspn("", "") == 0
   && $mb->strcspn("", "") == 0
 ? "ok" : "not ok", " 8\n";

$str = "‚È‚ñ‚Æ‚¢‚¨‚¤‚©";
print 3 eq $mb->strtr(\$str,"‚ ‚¢‚¤‚¦‚¨", "ƒAƒCƒEƒGƒI")
    && $str eq "‚È‚ñ‚ƃCƒIƒE‚©"
    && $mb->strtr('‚¨‚©‚©‚¤‚ß‚Ú‚µ@‚¿‚¿‚Æ‚Í‚Í', '‚Ÿ-‚ñ', '', 's')
	eq '‚¨‚©‚¤‚ß‚Ú‚µ@‚¿‚Æ‚Í'
    && $mb->strtr("ðŒ‰‰ŽZŽq‚ÌŽg‚¢‚·‚¬‚ÍŒ©‹ê‚µ‚¢", '‚Ÿ-‚ñ', '”', 'cs')
	eq '”‚́”‚¢‚·‚¬‚́”‚µ‚¢'
    ? "ok" : "not ok", " 9\n";

print 1
    && $mb->strtr("90 - 32 = 58", "0-9", "A-J") eq "JA - DC = FI"
    && $mb->strtr("90 - 32 = 58", "0-9", "A-J", "R") eq "JA - 32 = 58"
    ? "ok" : "not ok", " 10\n";

$digit_tr = $mb->trclosure(
    "1234567890-", "ˆê“ñŽOŽlŒÜ˜ZŽµ”ª‹ãZ|");

$frstr1 = "TELF0124-45-6789\n";
$tostr1 = "TELFZˆê“ñŽl|ŽlŒÜ|˜ZŽµ”ª‹ã\n";
$frstr2 = "FAXF0124-51-5368\n";
$tostr2 = "FAXFZˆê“ñŽl|ŒÜˆê|ŒÜŽO˜Z”ª\n";

$restr1 = &$digit_tr($frstr1);
$restr2 = &$digit_tr($frstr2);

print $tostr1 eq $restr1 && $tostr2 eq $restr2
    ? "ok" : "not ok", " 11\n";

$str = "\x00\x00\x30\x00\x00\x42\x00\x00\x30\x00\x42\x00";
print $] < 5.005 || 1
    && $mb->index($str, "\x00\x30\x00\x42\x00") == 7
    && $mb->index($str, "\x00\x30\x00\x00\x00") == -1
    && $mb->index($str, "\x00\x00\x30\x00") == 0
    && $mb->index($str, "\x00\x30\x00") == 1
    && $mb->rindex($str, "\x00\x30\x00\x42\x00") == 7
    && $mb->rindex($str, "\x00\x30\x00\x00\x00") == -1
    && $mb->rindex($str, "\x00\x00\x30\x00") == 6
    && $mb->rindex($str, "\x00\x30\x00") == 7
    ? "ok" : "not ok", " 12\n";


1;
__END__