9
9
ini_set ('include_path ' ,'. ' );
10
10
include_once ('common.inc ' );
11
11
12
-
13
12
// 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" ;
15
14
16
15
$ slen = mb_strlen ($ euc_jp , 'EUC-JP ' );
17
16
echo "String len: $ slen \n" ;
@@ -21,11 +20,11 @@ mb_internal_encoding('UTF-8') or print("mb_internal_encoding() failed\n");
21
20
22
21
echo "== POSITIVE OFFSET == \n" ;
23
22
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" ;
25
24
print mb_stripos ($ euc_jp , '0 ' , 0 , 'EUC-JP ' ) . "\n" ;
26
25
print mb_stripos ($ euc_jp , 3 , 0 , 'EUC-JP ' ) . "\n" ;
27
26
print 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" ;
29
28
print mb_stripos ($ euc_jp , '0 ' , 15 , 'EUC-JP ' ) . "\n" ;
30
29
print mb_stripos ($ euc_jp , 3 , 15 , 'EUC-JP ' ) . "\n" ;
31
30
print mb_stripos ($ euc_jp , 0 , 15 , 'EUC-JP ' ) . "\n" ;
@@ -34,7 +33,7 @@ print mb_stripos($euc_jp, 0, 15, 'EUC-JP') . "\n";
34
33
// Negative offset
35
34
echo "== NEGATIVE OFFSET == \n" ;
36
35
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" ;
38
37
print mb_stripos ($ euc_jp , '0 ' , -15 , 'EUC-JP ' ) . "\n" ;
39
38
print mb_stripos ($ euc_jp , 3 , -15 , 'EUC-JP ' ) . "\n" ;
40
39
print mb_stripos ($ euc_jp , 0 , -15 , 'EUC-JP ' ) . "\n" ;
@@ -44,15 +43,15 @@ print mb_stripos($euc_jp, 0, -43, 'EUC-JP') . "\n";
44
43
// Out of range - should return false
45
44
print ("== OUT OF RANGE == \n" );
46
45
47
- $ r = mb_stripos ($ euc_jp , ' 日本語 ' , 40 , 'EUC-JP ' );
46
+ $ r = mb_stripos ($ euc_jp , "\xC6\xFC\xCB\xDC\xB8\xEC" , 40 , 'EUC-JP ' );
48
47
($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
49
48
$ r = mb_stripos ($ euc_jp , '0 ' , 40 , 'EUC-JP ' );
50
49
($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
51
50
$ r = mb_stripos ($ euc_jp , 3 , 40 , 'EUC-JP ' );
52
51
($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
53
52
$ r = mb_stripos ($ euc_jp , 0 , 40 , 'EUC-JP ' );
54
53
($ 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 ' );
56
55
($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
57
56
$ r = mb_stripos ($ euc_jp , '0 ' , -3 , 'EUC-JP ' );
58
57
($ 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');
65
64
// Non-existent
66
65
echo "== NON-EXISTENT == \n" ;
67
66
68
- $ r = mb_stripos ($ euc_jp , ' 韓国語 ' , 0 , 'EUC-JP ' );
67
+ $ r = mb_stripos ($ euc_jp , "\xB4\xDA\xB9\xF1\xB8\xEC" , 0 , 'EUC-JP ' );
69
68
($ r === FALSE ) ? print "OK_STR \n" : print "NG_STR \n" ;
70
69
$ r = mb_stripos ($ euc_jp , "\n" , 0 , 'EUC-JP ' );
71
70
($ r === FALSE ) ? print "OK_NEWLINE \n" : print "NG_NEWLINE \n" ;
@@ -76,12 +75,12 @@ echo "== NO ENCODING PARAMETER ==\n";
76
75
77
76
mb_internal_encoding ('EUC-JP ' ) or print ("mb_internal_encoding() failed \n" );
78
77
79
- print mb_stripos ($ euc_jp , ' 日本語 ' , 0 ) . "\n" ;
78
+ print mb_stripos ($ euc_jp , "\xC6\xFC\xCB\xDC\xB8\xEC" , 0 ) . "\n" ;
80
79
print mb_stripos ($ euc_jp , '0 ' , 0 ) . "\n" ;
81
80
print mb_stripos ($ euc_jp , 3 , 0 ) . "\n" ;
82
81
print mb_stripos ($ euc_jp , 0 , 0 ) . "\n" ;
83
82
84
- $ r = mb_stripos ($ euc_jp , ' 韓国語 ' , 0 );
83
+ $ r = mb_stripos ($ euc_jp , "\xB4\xDA\xB9\xF1\xB8\xEC" , 0 );
85
84
($ r === FALSE ) ? print "OK_STR \n" : print "NG_STR \n" ;
86
85
$ r = mb_stripos ($ euc_jp , "\n" , 0 );
87
86
($ r === FALSE ) ? print "OK_NEWLINE \n" : print "NG_NEWLINE \n" ;
@@ -91,12 +90,12 @@ echo "== NO OFFSET AND ENCODING PARAMETER ==\n";
91
90
92
91
mb_internal_encoding ('EUC-JP ' ) or print ("mb_internal_encoding() failed \n" );
93
92
94
- print mb_stripos ($ euc_jp , ' 日本語 ' ) . "\n" ;
93
+ print mb_stripos ($ euc_jp , "\xC6\xFC\xCB\xDC\xB8\xEC" ) . "\n" ;
95
94
print mb_stripos ($ euc_jp , '0 ' ) . "\n" ;
96
95
print mb_stripos ($ euc_jp , 3 ) . "\n" ;
97
96
print mb_stripos ($ euc_jp , 0 ) . "\n" ;
98
97
99
- $ r = mb_stripos ($ euc_jp , ' 韓国語 ' );
98
+ $ r = mb_stripos ($ euc_jp , "\xB4\xDA\xB9\xF1\xB8\xEC" );
100
99
($ r === FALSE ) ? print "OK_STR \n" : print "NG_STR \n" ;
101
100
$ r = mb_stripos ($ euc_jp , "\n" );
102
101
($ r === FALSE ) ? print "OK_NEWLINE \n" : print "NG_NEWLINE \n" ;
0 commit comments