File: mb_substr.phpt

package info (click to toggle)
php5 5.2.0-8%2Betch1
  • links: PTS
  • area: main
  • in suites: etch-m68k
  • size: 58,836 kB
  • ctags: 45,575
  • sloc: ansic: 535,107; sh: 17,819; php: 11,336; cpp: 4,289; xml: 3,861; yacc: 2,446; lex: 2,174; makefile: 1,150; tcl: 1,128; awk: 693; perl: 71; sql: 22; pascal: 15
file content (35 lines) | stat: -rw-r--r-- 847 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
--TEST--
mb_substr()
--SKIPIF--
<?php extension_loaded('mbstring') or die('skip mbstring not available'); ?>
--INI--
output_handler=
mbstring.func_overload=0
--FILE--
<?php
// TODO: Add more encodings
ini_set('include_path','.');
include_once('common.inc');

// EUC-JP
$euc_jp = '0123ʸܸǤEUC-JPȤäƤޤܸݽ';

print  "1: ". mb_substr($euc_jp,  10,  10,'EUC-JP') . "\n";
print  "2: ". mb_substr($euc_jp,   0, 100,'EUC-JP') . "\n";

$str = mb_substr($euc_jp, 100, 10,'EUC-JP');
// Note: returns last character
($str === "") ? print "3 OK\n" : print "NG: $str\n";

$str = mb_substr($euc_jp, -100, 10,'EUC-JP');
($str !== "") ? print "4 OK: $str\n" : print "NG: $str\n";

?>

--EXPECT--
1: ܸǤEUC-
2: 0123ʸܸǤEUC-JPȤäƤޤܸݽ
3 OK
4 OK: 0123ʸ