@@ -11,7 +11,7 @@ include_once('common.inc');
11
11
12
12
13
13
// Test string
14
- $ euc_jp = '0123???????????? EUC-JP????????0123????????? ' ;
14
+ $ euc_jp = '0123この文字列は日本語です。 EUC-JPを使っています。0123日本語は面倒臭い。 ' ;
15
15
16
16
$ slen = mb_strlen ($ euc_jp , 'EUC-JP ' );
17
17
echo "String len: $ slen \n" ;
@@ -21,11 +21,11 @@ mb_internal_encoding('UTF-8') or print("mb_internal_encoding() failed\n");
21
21
22
22
echo "== POSITIVE OFFSET == \n" ;
23
23
24
- print mb_strpos ($ euc_jp , '??? ' , 0 , 'EUC-JP ' ) . "\n" ;
24
+ print mb_strpos ($ euc_jp , '日本語 ' , 0 , 'EUC-JP ' ) . "\n" ;
25
25
print mb_strpos ($ euc_jp , '0 ' , 0 , 'EUC-JP ' ) . "\n" ;
26
26
print mb_strpos ($ euc_jp , 3 , 0 , 'EUC-JP ' ) . "\n" ;
27
27
print mb_strpos ($ euc_jp , 0 , 0 , 'EUC-JP ' ) . "\n" ;
28
- print mb_strpos ($ euc_jp , '??? ' , 15 , 'EUC-JP ' ) . "\n" ;
28
+ print mb_strpos ($ euc_jp , '日本語 ' , 15 , 'EUC-JP ' ) . "\n" ;
29
29
print mb_strpos ($ euc_jp , '0 ' , 15 , 'EUC-JP ' ) . "\n" ;
30
30
print mb_strpos ($ euc_jp , 3 , 15 , 'EUC-JP ' ) . "\n" ;
31
31
print mb_strpos ($ euc_jp , 0 , 15 , 'EUC-JP ' ) . "\n" ;
@@ -34,37 +34,17 @@ print mb_strpos($euc_jp, 0, 15, 'EUC-JP') . "\n";
34
34
// Negative offset
35
35
echo "== NEGATIVE OFFSET == \n" ;
36
36
37
- print mb_strpos ($ euc_jp , '??? ' , -15 , 'EUC-JP ' ) . "\n" ;
37
+ print mb_strpos ($ euc_jp , '日本語 ' , -15 , 'EUC-JP ' ) . "\n" ;
38
38
print mb_strpos ($ euc_jp , '0 ' , -15 , 'EUC-JP ' ) . "\n" ;
39
39
print mb_strpos ($ euc_jp , 3 , -15 , 'EUC-JP ' ) . "\n" ;
40
40
print mb_strpos ($ euc_jp , 0 , -15 , 'EUC-JP ' ) . "\n" ;
41
41
print mb_strpos ($ euc_jp , 0 , -43 , 'EUC-JP ' ) . "\n" ;
42
42
43
- // Out of range - should return false
44
- print ("== OUT OF RANGE == \n" );
45
-
46
- $ r = mb_strpos ($ euc_jp , '??? ' , 40 , 'EUC-JP ' );
47
- ($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
48
- $ r = mb_strpos ($ euc_jp , '0 ' , 40 , 'EUC-JP ' );
49
- ($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
50
- $ r = mb_strpos ($ euc_jp , 3 , 40 , 'EUC-JP ' );
51
- ($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
52
- $ r = mb_strpos ($ euc_jp , 0 , 40 , 'EUC-JP ' );
53
- ($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
54
- $ r = mb_strpos ($ euc_jp , '??? ' , -3 , 'EUC-JP ' );
55
- ($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
56
- $ r = mb_strpos ($ euc_jp , '0 ' , -3 , 'EUC-JP ' );
57
- ($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
58
- $ r = mb_strpos ($ euc_jp , 3 , -3 , 'EUC-JP ' );
59
- ($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
60
- $ r = mb_strpos ($ euc_jp , 0 , -3 , 'EUC-JP ' );
61
- ($ r === FALSE ) ? print "OK_OUT_RANGE \n" : print "NG_OUT_RANGE \n" ;
62
-
63
43
64
44
// Non-existent
65
45
echo "== NON-EXISTENT == \n" ;
66
46
67
- $ r = mb_strpos ($ euc_jp , '??? ' , 0 , 'EUC-JP ' );
47
+ $ r = mb_strpos ($ euc_jp , '韓国語 ' , 0 , 'EUC-JP ' );
68
48
($ r === FALSE ) ? print "OK_STR \n" : print "NG_STR \n" ;
69
49
$ r = mb_strpos ($ euc_jp , "\n" , 0 , 'EUC-JP ' );
70
50
($ r === FALSE ) ? print "OK_NEWLINE \n" : print "NG_NEWLINE \n" ;
@@ -75,12 +55,12 @@ echo "== NO ENCODING PARAMETER ==\n";
75
55
76
56
mb_internal_encoding ('EUC-JP ' ) or print ("mb_internal_encoding() failed \n" );
77
57
78
- print mb_strpos ($ euc_jp , '??? ' , 0 ) . "\n" ;
58
+ print mb_strpos ($ euc_jp , '日本語 ' , 0 ) . "\n" ;
79
59
print mb_strpos ($ euc_jp , '0 ' , 0 ) . "\n" ;
80
60
print mb_strpos ($ euc_jp , 3 , 0 ) . "\n" ;
81
61
print mb_strpos ($ euc_jp , 0 , 0 ) . "\n" ;
82
62
83
- $ r = mb_strpos ($ euc_jp , '??? ' , 0 );
63
+ $ r = mb_strpos ($ euc_jp , '韓国語 ' , 0 );
84
64
($ r === FALSE ) ? print "OK_STR \n" : print "NG_STR \n" ;
85
65
$ r = mb_strpos ($ euc_jp , "\n" , 0 );
86
66
($ r === FALSE ) ? print "OK_NEWLINE \n" : print "NG_NEWLINE \n" ;
@@ -90,12 +70,12 @@ echo "== NO OFFSET AND ENCODING PARAMETER ==\n";
90
70
91
71
mb_internal_encoding ('EUC-JP ' ) or print ("mb_internal_encoding() failed \n" );
92
72
93
- print mb_strpos ($ euc_jp , '??? ' ) . "\n" ;
73
+ print mb_strpos ($ euc_jp , '日本語 ' ) . "\n" ;
94
74
print mb_strpos ($ euc_jp , '0 ' ) . "\n" ;
95
75
print mb_strpos ($ euc_jp , 3 ) . "\n" ;
96
76
print mb_strpos ($ euc_jp , 0 ) . "\n" ;
97
77
98
- $ r = mb_strpos ($ euc_jp , '??? ' );
78
+ $ r = mb_strpos ($ euc_jp , '韓国語 ' );
99
79
($ r === FALSE ) ? print "OK_STR \n" : print "NG_STR \n" ;
100
80
$ r = mb_strpos ($ euc_jp , "\n" );
101
81
($ r === FALSE ) ? print "OK_NEWLINE \n" : print "NG_NEWLINE \n" ;
@@ -118,15 +98,6 @@ String len: 43
118
98
33
119
99
30
120
100
0
121
- == OUT OF RANGE ==
122
- OK_OUT_RANGE
123
- OK_OUT_RANGE
124
- OK_OUT_RANGE
125
- OK_OUT_RANGE
126
- OK_OUT_RANGE
127
- OK_OUT_RANGE
128
- OK_OUT_RANGE
129
- OK_OUT_RANGE
130
101
== NON-EXISTENT ==
131
102
OK_STR
132
103
OK_NEWLINE
0 commit comments