99ini_set ('include_path ' ,'. ' );
1010include_once ('common.inc ' );
1111
12-
1312// Test string
14- $ euc_jp = ' 0123この文字列は日本語です。EUC-JPを使っています。0123日本語は面倒臭い。 ' ;
13+ $ euc_jp = " 0123 \xA4\xB3\xA4\xCE\xCA\xB8\xBB\xFA\xCE\xF3\xA4\xCF\xC6\xFC\xCB\xDC\xB8\xEC\xA4\xC7\xA4\xB9\xA1\xA3 EUC-JP \xA4\xF2\xBB\xC8\xA4\xC3\xA4\xC6\xA4\xA4\xA4\xDE\xA4\xB9\xA1\xA3 0123 \xC6\xFC\xCB\xDC\xB8\xEC\xA4\xCF\xCC\xCC\xC5\xDD\xBD\xAD\xA4\xA4\xA1\xA3" ;
1514
1615$ slen = mb_strlen ($ euc_jp , 'EUC-JP ' );
1716echo "String len: $ slen \n" ;
@@ -21,11 +20,11 @@ mb_internal_encoding('UTF-8') or print("mb_internal_encoding() failed\n");
2120
2221echo "== POSITIVE OFFSET == \n" ;
2322
24- print mb_stripos ($ euc_jp , ' 日本語 ' , 0 , 'EUC-JP ' ) . "\n" ;
23+ print mb_stripos ($ euc_jp , "\xC6\xFC\xCB\xDC\xB8\xEC" , 0 , 'EUC-JP ' ) . "\n" ;
2524print mb_stripos ($ euc_jp , '0 ' , 0 , 'EUC-JP ' ) . "\n" ;
2625print mb_stripos ($ euc_jp , 3 , 0 , 'EUC-JP ' ) . "\n" ;
2726print mb_stripos ($ euc_jp , 0 , 0 , 'EUC-JP ' ) . "\n" ;
28- print mb_stripos ($ euc_jp , ' 日本語 ' , 15 , 'EUC-JP ' ) . "\n" ;
27+ print mb_stripos ($ euc_jp , "\xC6\xFC\xCB\xDC\xB8\xEC" , 15 , 'EUC-JP ' ) . "\n" ;
2928print mb_stripos ($ euc_jp , '0 ' , 15 , 'EUC-JP ' ) . "\n" ;
3029print mb_stripos ($ euc_jp , 3 , 15 , 'EUC-JP ' ) . "\n" ;
3130print mb_stripos ($ euc_jp , 0 , 15 , 'EUC-JP ' ) . "\n" ;
@@ -34,7 +33,7 @@ print mb_stripos($euc_jp, 0, 15, 'EUC-JP') . "\n";
3433// Negative offset
3534echo "== NEGATIVE OFFSET == \n" ;
3635
37- print mb_stripos ($ euc_jp , ' 日本語 ' , -15 , 'EUC-JP ' ) . "\n" ;
36+ print mb_stripos ($ euc_jp , "\xC6\xFC\xCB\xDC\xB8\xEC" , -15 , 'EUC-JP ' ) . "\n" ;
3837print mb_stripos ($ euc_jp , '0 ' , -15 , 'EUC-JP ' ) . "\n" ;
3938print mb_stripos ($ euc_jp , 3 , -15 , 'EUC-JP ' ) . "\n" ;
4039print mb_stripos ($ euc_jp , 0 , -15 , 'EUC-JP ' ) . "\n" ;
@@ -44,15 +43,15 @@ print mb_stripos($euc_jp, 0, -43, 'EUC-JP') . "\n";
4443// Out of range - should return false
4544print ("== OUT OF RANGE == \n" );
4645
47- $ r = mb_stripos ($ euc_jp , ' 日本語 ' , 40 , 'EUC-JP ' );
46+ $ r = mb_stripos ($ euc_jp , "\xC6\xFC\xCB\xDC\xB8\xEC" , 40 , 'EUC-JP ' );
4847($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
4948$ r = mb_stripos ($ euc_jp , '0 ' , 40 , 'EUC-JP ' );
5049($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
5150$ r = mb_stripos ($ euc_jp , 3 , 40 , 'EUC-JP ' );
5251($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
5352$ r = mb_stripos ($ euc_jp , 0 , 40 , 'EUC-JP ' );
5453($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
55- $ r = mb_stripos ($ euc_jp , ' 日本語 ' , -3 , 'EUC-JP ' );
54+ $ r = mb_stripos ($ euc_jp , "\xC6\xFC\xCB\xDC\xB8\xEC" , -3 , 'EUC-JP ' );
5655($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
5756$ r = mb_stripos ($ euc_jp , '0 ' , -3 , 'EUC-JP ' );
5857($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
@@ -65,7 +64,7 @@ $r = mb_stripos($euc_jp, 0, -3, 'EUC-JP');
6564// Non-existent
6665echo "== NON-EXISTENT == \n" ;
6766
68- $ r = mb_stripos ($ euc_jp , ' 韓国語 ' , 0 , 'EUC-JP ' );
67+ $ r = mb_stripos ($ euc_jp , "\xB4\xDA\xB9\xF1\xB8\xEC" , 0 , 'EUC-JP ' );
6968($ r === FALSE ) ? print "OK_STR \n" : print "NG_STR \n" ;
7069$ r = mb_stripos ($ euc_jp , "\n" , 0 , 'EUC-JP ' );
7170($ r === FALSE ) ? print "OK_NEWLINE \n" : print "NG_NEWLINE \n" ;
@@ -76,12 +75,12 @@ echo "== NO ENCODING PARAMETER ==\n";
7675
7776mb_internal_encoding ('EUC-JP ' ) or print ("mb_internal_encoding() failed \n" );
7877
79- print mb_stripos ($ euc_jp , ' 日本語 ' , 0 ) . "\n" ;
78+ print mb_stripos ($ euc_jp , "\xC6\xFC\xCB\xDC\xB8\xEC" , 0 ) . "\n" ;
8079print mb_stripos ($ euc_jp , '0 ' , 0 ) . "\n" ;
8180print mb_stripos ($ euc_jp , 3 , 0 ) . "\n" ;
8281print mb_stripos ($ euc_jp , 0 , 0 ) . "\n" ;
8382
84- $ r = mb_stripos ($ euc_jp , ' 韓国語 ' , 0 );
83+ $ r = mb_stripos ($ euc_jp , "\xB4\xDA\xB9\xF1\xB8\xEC" , 0 );
8584($ r === FALSE ) ? print "OK_STR \n" : print "NG_STR \n" ;
8685$ r = mb_stripos ($ euc_jp , "\n" , 0 );
8786($ r === FALSE ) ? print "OK_NEWLINE \n" : print "NG_NEWLINE \n" ;
@@ -91,12 +90,12 @@ echo "== NO OFFSET AND ENCODING PARAMETER ==\n";
9190
9291mb_internal_encoding ('EUC-JP ' ) or print ("mb_internal_encoding() failed \n" );
9392
94- print mb_stripos ($ euc_jp , ' 日本語 ' ) . "\n" ;
93+ print mb_stripos ($ euc_jp , "\xC6\xFC\xCB\xDC\xB8\xEC" ) . "\n" ;
9594print mb_stripos ($ euc_jp , '0 ' ) . "\n" ;
9695print mb_stripos ($ euc_jp , 3 ) . "\n" ;
9796print mb_stripos ($ euc_jp , 0 ) . "\n" ;
9897
99- $ r = mb_stripos ($ euc_jp , ' 韓国語 ' );
98+ $ r = mb_stripos ($ euc_jp , "\xB4\xDA\xB9\xF1\xB8\xEC" );
10099($ r === FALSE ) ? print "OK_STR \n" : print "NG_STR \n" ;
101100$ r = mb_stripos ($ euc_jp , "\n" );
102101($ r === FALSE ) ? print "OK_NEWLINE \n" : print "NG_NEWLINE \n" ;
0 commit comments