2002-10-21 19:19:05 +00:00
|
|
|
|
--TEST--
|
|
|
|
|
mb_strpos()
|
|
|
|
|
--SKIPIF--
|
2002-10-30 08:06:52 +00:00
|
|
|
|
<?php extension_loaded('mbstring') or die('skip mbstring not available'); ?>
|
2002-10-21 19:19:05 +00:00
|
|
|
|
--FILE--
|
2002-03-02 10:44:57 +00:00
|
|
|
|
<?php
|
|
|
|
|
// TODO: Add more encodings
|
|
|
|
|
|
|
|
|
|
//$debug=true;
|
|
|
|
|
ini_set('include_path','.');
|
2002-03-18 06:03:53 +00:00
|
|
|
|
include_once('common.inc');
|
2002-03-02 10:44:57 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Test string
|
|
|
|
|
$euc_jp = '0123<32><33><EFBFBD><EFBFBD>ʸ<EFBFBD><CAB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8>Ǥ<EFBFBD><C7A4><EFBFBD>EUC-JP<4A><50><EFBFBD>ȤäƤ<C3A4><C6A4>ޤ<EFBFBD><DEA4><EFBFBD>0123<32><33><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݽ<EFBFBD><DDBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
|
|
|
|
// EUC-JP - With encoding parameter
|
|
|
|
|
mb_internal_encoding('UTF-8') or print("mb_internal_encoding() failed\n");
|
|
|
|
|
|
|
|
|
|
echo "== POSITIVE OFFSET ==\n";
|
|
|
|
|
print mb_strpos($euc_jp,'<27><><EFBFBD>ܸ<EFBFBD>', 0, 'EUC-JP') . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, '0', 0, 'EUC-JP') . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, 3, 0, 'EUC-JP') . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, 0, 0, 'EUC-JP') . "\n";
|
|
|
|
|
print mb_strpos($euc_jp,'<27><><EFBFBD>ܸ<EFBFBD>', 15, 'EUC-JP') . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, '0', 15, 'EUC-JP') . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, 3, 15, 'EUC-JP') . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, 0, 15, 'EUC-JP') . "\n";
|
|
|
|
|
|
|
|
|
|
// Negative offset
|
|
|
|
|
// Note: PHP Warning - offset is negative.
|
|
|
|
|
// Note: For offset(-15). It does not return position of latter string. (ie the same result as -50)
|
|
|
|
|
echo "== NEGATIVE OFFSET ==\n";
|
2002-03-16 07:33:21 +00:00
|
|
|
|
$r = mb_strpos($euc_jp,'<27><><EFBFBD>ܸ<EFBFBD>', -15, 'EUC-JP');
|
|
|
|
|
($r === FALSE) ? print "OK_NEGATIVE_OFFSET\n" : print "NG_NEGATIVE_OFFSET\n";
|
|
|
|
|
$r = mb_strpos($euc_jp, '0', -15, 'EUC-JP');
|
|
|
|
|
($r === FALSE) ? print "OK_NEGATIVE_OFFSET\n" : print "NG_NEGATIVE_OFFSET\n";
|
|
|
|
|
$r = mb_strpos($euc_jp, 3, -15, 'EUC-JP');
|
|
|
|
|
($r === FALSE) ? print "OK_NEGATIVE_OFFSET\n" : print "NG_NEGATIVE_OFFSET\n";
|
|
|
|
|
$r = mb_strpos($euc_jp, 0, -15, 'EUC-JP');
|
|
|
|
|
($r === FALSE) ? print "OK_NEGATIVE_OFFSET\n" : print "NG_NEGATIVE_OFFSET\n";
|
|
|
|
|
$r = mb_strpos($euc_jp,'<27><><EFBFBD>ܸ<EFBFBD>', -50, 'EUC-JP');
|
|
|
|
|
($r === FALSE) ? print "OK_NEGATIVE_OFFSET\n" : print "NG_NEGATIVE_OFFSET\n";
|
|
|
|
|
$r = mb_strpos($euc_jp, '0', -50, 'EUC-JP');
|
|
|
|
|
($r === FALSE) ? print "OK_NEGATIVE_OFFSET\n" : print "NG_NEGATIVE_OFFSET\n";
|
|
|
|
|
$r = mb_strpos($euc_jp, 3, -50, 'EUC-JP');
|
|
|
|
|
($r === FALSE) ? print "OK_NEGATIVE_OFFSET\n" : print "NG_NEGATIVE_OFFSET\n";
|
|
|
|
|
$r = mb_strpos($euc_jp, 0, -50, 'EUC-JP');
|
|
|
|
|
($r === FALSE) ? print "OK_NEGATIVE_OFFSET\n" : print "NG_NEGATIVE_OFFSET\n";
|
2002-03-02 10:44:57 +00:00
|
|
|
|
|
|
|
|
|
// Out of range - should return false
|
|
|
|
|
print ("== OUT OF RANGE ==\n");
|
2002-03-16 07:33:21 +00:00
|
|
|
|
$r = mb_strpos($euc_jp,'<27><><EFBFBD>ܸ<EFBFBD>', 40, 'EUC-JP');
|
2002-03-02 10:44:57 +00:00
|
|
|
|
($r === FALSE) ? print "OK_OUT_RANGE\n" : print "NG_OUT_RANGE\n";
|
2002-03-16 07:33:21 +00:00
|
|
|
|
$r = mb_strpos($euc_jp, '0', 40, 'EUC-JP');
|
2002-03-02 10:44:57 +00:00
|
|
|
|
($r === FALSE) ? print "OK_OUT_RANGE\n" : print "NG_OUT_RANGE\n";
|
2002-03-16 07:33:21 +00:00
|
|
|
|
$r = mb_strpos($euc_jp, 3, 40, 'EUC-JP');
|
2002-03-02 10:44:57 +00:00
|
|
|
|
($r === FALSE) ? print "OK_OUT_RANGE\n" : print "NG_OUT_RANGE\n";
|
2002-03-16 07:33:21 +00:00
|
|
|
|
$r = mb_strpos($euc_jp, 0, 40, 'EUC-JP');
|
2002-03-02 10:44:57 +00:00
|
|
|
|
($r === FALSE) ? print "OK_OUT_RANGE\n" : print "NG_OUT_RANGE\n";
|
|
|
|
|
// Note: Returned NULL string
|
|
|
|
|
// echo gettype($r). ' val '. $r ."\n";
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Non-existent
|
|
|
|
|
echo "== NON-EXISTENT ==\n";
|
2003-02-03 16:16:37 +00:00
|
|
|
|
$r = mb_strpos($euc_jp, '<27>ڹ<EFBFBD><DAB9><EFBFBD>', 0, 'EUC-JP');
|
2002-03-02 10:44:57 +00:00
|
|
|
|
($r === FALSE) ? print "OK_STR\n" : print "NG_STR\n";
|
2003-02-03 16:16:37 +00:00
|
|
|
|
$r = mb_strpos($euc_jp, "\n", 0, 'EUC-JP');
|
2002-03-02 10:44:57 +00:00
|
|
|
|
($r === FALSE) ? print "OK_NEWLINE\n" : print "NG_NEWLINE\n";
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// EUC-JP - No encoding parameter
|
|
|
|
|
echo "== NO ENCODING PARAMETER ==\n";
|
|
|
|
|
mb_internal_encoding('EUC-JP') or print("mb_internal_encoding() failed\n");
|
|
|
|
|
|
|
|
|
|
print mb_strpos($euc_jp,'<27><><EFBFBD>ܸ<EFBFBD>', 0) . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, '0', 0) . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, 3, 0) . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, 0, 0) . "\n";
|
|
|
|
|
|
|
|
|
|
$r = mb_strpos($euc_jp,'<27>ڹ<EFBFBD><DAB9><EFBFBD>', 0);
|
|
|
|
|
($r === FALSE) ? print "OK_STR\n" : print "NG_STR\n";
|
|
|
|
|
$r = mb_strpos($euc_jp,"\n", 0);
|
|
|
|
|
($r === FALSE) ? print "OK_NEWLINE\n" : print "NG_NEWLINE\n";
|
|
|
|
|
|
|
|
|
|
// EUC-JP - No offset and encoding parameter
|
|
|
|
|
echo "== NO OFFSET AND ENCODING PARAMETER ==\n";
|
|
|
|
|
mb_internal_encoding('EUC-JP') or print("mb_internal_encoding() failed\n");
|
|
|
|
|
|
|
|
|
|
print mb_strpos($euc_jp,'<27><><EFBFBD>ܸ<EFBFBD>') . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, '0') . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, 3) . "\n";
|
|
|
|
|
print mb_strpos($euc_jp, 0) . "\n";
|
|
|
|
|
|
|
|
|
|
$r = mb_strpos($euc_jp,'<27>ڹ<EFBFBD><DAB9><EFBFBD>');
|
|
|
|
|
($r === FALSE) ? print "OK_STR\n" : print "NG_STR\n";
|
|
|
|
|
$r = mb_strpos($euc_jp,"\n");
|
|
|
|
|
($r === FALSE) ? print "OK_NEWLINE\n" : print "NG_NEWLINE\n";
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Invalid Parameters
|
|
|
|
|
echo "== INVALID PARAMETER TEST ==\n";
|
|
|
|
|
|
|
|
|
|
$r = mb_strpos($euc_jp,'','EUC-JP');
|
|
|
|
|
($r === FALSE) ? print("OK_NULL\n") : print("NG_NULL\n");
|
|
|
|
|
$r = mb_strpos($euc_jp, $t_ary, 'EUC-JP');
|
|
|
|
|
($r === FALSE) ? print("OK_ARRAY\n") : print("NG_ARRAY\n");
|
|
|
|
|
$r = mb_strpos($euc_jp, $t_obj, 'EUC-JP');
|
|
|
|
|
($r === FALSE) ? print("OK_OBJECT\n") : print("NG_OBJECT\n");
|
|
|
|
|
$r = mb_strpos($euc_jp, $t_obj, 'BAD_ENCODING');
|
|
|
|
|
($r === FALSE) ? print("OK_BAD_ENCODING\n") : print("NG_BAD_ENCODING\n");
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
?>
|
2002-10-21 19:19:05 +00:00
|
|
|
|
|
|
|
|
|
--EXPECT--
|
|
|
|
|
== POSITIVE OFFSET ==
|
|
|
|
|
10
|
|
|
|
|
0
|
|
|
|
|
3
|
|
|
|
|
0
|
|
|
|
|
34
|
|
|
|
|
30
|
|
|
|
|
33
|
|
|
|
|
30
|
|
|
|
|
== NEGATIVE OFFSET ==
|
|
|
|
|
ERR: Warning
|
|
|
|
|
OK_NEGATIVE_OFFSET
|
|
|
|
|
ERR: Warning
|
|
|
|
|
OK_NEGATIVE_OFFSET
|
|
|
|
|
ERR: Warning
|
|
|
|
|
OK_NEGATIVE_OFFSET
|
|
|
|
|
ERR: Warning
|
|
|
|
|
OK_NEGATIVE_OFFSET
|
|
|
|
|
ERR: Warning
|
|
|
|
|
OK_NEGATIVE_OFFSET
|
|
|
|
|
ERR: Warning
|
|
|
|
|
OK_NEGATIVE_OFFSET
|
|
|
|
|
ERR: Warning
|
|
|
|
|
OK_NEGATIVE_OFFSET
|
|
|
|
|
ERR: Warning
|
|
|
|
|
OK_NEGATIVE_OFFSET
|
|
|
|
|
== OUT OF RANGE ==
|
|
|
|
|
OK_OUT_RANGE
|
|
|
|
|
OK_OUT_RANGE
|
|
|
|
|
OK_OUT_RANGE
|
|
|
|
|
OK_OUT_RANGE
|
|
|
|
|
== NON-EXISTENT ==
|
|
|
|
|
OK_STR
|
|
|
|
|
OK_NEWLINE
|
|
|
|
|
== NO ENCODING PARAMETER ==
|
|
|
|
|
10
|
|
|
|
|
0
|
|
|
|
|
3
|
|
|
|
|
0
|
|
|
|
|
OK_STR
|
|
|
|
|
OK_NEWLINE
|
|
|
|
|
== NO OFFSET AND ENCODING PARAMETER ==
|
|
|
|
|
10
|
|
|
|
|
0
|
|
|
|
|
3
|
|
|
|
|
0
|
|
|
|
|
OK_STR
|
|
|
|
|
OK_NEWLINE
|
|
|
|
|
== INVALID PARAMETER TEST ==
|
|
|
|
|
ERR: Warning
|
|
|
|
|
OK_NULL
|
2003-02-03 20:29:07 +00:00
|
|
|
|
ERR: Warning
|
2002-10-21 19:19:05 +00:00
|
|
|
|
OK_ARRAY
|
2003-02-03 20:29:07 +00:00
|
|
|
|
ERR: Warning
|
2002-10-21 19:19:05 +00:00
|
|
|
|
OK_OBJECT
|
2003-02-03 20:29:07 +00:00
|
|
|
|
ERR: Warning
|
2002-10-21 19:19:05 +00:00
|
|
|
|
OK_BAD_ENCODING
|
|
|
|
|
|