PageRenderTime 30ms CodeModel.GetById 15ms RepoModel.GetById 0ms app.codeStats 0ms

/hphp/test/zend/good/ext/intl/tests/grapheme.php

https://github.com/tstarling/hiphop-php
PHP | 765 lines | 660 code | 88 blank | 17 comment | 69 complexity | 44630380e1c0a944cfb63fc517352313 MD5 | raw file
    

  1. <?php
    2. 

  2. 

  3. /*
    4. 

  4.  * Test grapheme functions (procedural only)
    5. 

  5.  */
    6. 

  6. 

  7. function ut_main()
    8. 

  8. {
    9. 

  9. 	$res_str = '';
    10. 

  10. 

  11. 	$char_a_diaeresis = "\xC3\xA4";	// 'LATIN SMALL LETTER A WITH DIAERESIS' (U+00E4)
    12. 

  12. 	$char_a_ring = "\xC3\xA5";		// 'LATIN SMALL LETTER A WITH RING ABOVE' (U+00E5)
    13. 

  13. 	$char_o_diaeresis = "\xC3\xB6";    // 'LATIN SMALL LETTER O WITH DIAERESIS' (U+00F6)
    14. 

  14. 	$char_O_diaeresis = "\xC3\x96";    // 'LATIN CAPITAL LETTER O WITH DIAERESIS' (U+00D6)
    15. 

  15. 

  16. 	$char_angstrom_sign = "\xE2\x84\xAB"; // 'ANGSTROM SIGN' (U+212B)
    17. 

  17. 	$char_A_ring = "\xC3\x85";	// 'LATIN CAPITAL LETTER A WITH RING ABOVE' (U+00C5)
    18. 

  18. 

  19. 	$char_ohm_sign = "\xE2\x84\xA6";	// 'OHM SIGN' (U+2126)
    20. 

  20. 	$char_omega = "\xCE\xA9";  // 'GREEK CAPITAL LETTER OMEGA' (U+03A9)
    21. 

  21. 

  22. 	$char_combining_ring_above = "\xCC\x8A";  // 'COMBINING RING ABOVE' (U+030A)
    23. 

  23. 

  24. 	$char_fi_ligature = "\xEF\xAC\x81";  // 'LATIN SMALL LIGATURE FI' (U+FB01)
    25. 

  25. 

  26. 	$char_long_s_dot = "\xE1\xBA\x9B";	// 'LATIN SMALL LETTER LONG S WITH DOT ABOVE' (U+1E9B)
    27. 

  27. 	
    28. 

  28. 	// the word 'hindi' using Devanagari characters:
    29. 

  29. 	$hindi = "\xe0\xa4\xb9\xe0\xa4\xbf\xe0\xa4\xa8\xe0\xa5\x8d\xe0\xa4\xa6\xe0\xa5\x80";
    30. 

  30. 

  31. 	$char_a_ring_nfd = "a\xCC\x8A";
    32. 

  32. 	$char_A_ring_nfd = "A\xCC\x8A";
    33. 

  33. 	$char_o_diaeresis_nfd = "o\xCC\x88";
    34. 

  34. 	$char_O_diaeresis_nfd = "O\xCC\x88";
    35. 

  35. 	$char_diaeresis = "\xCC\x88";
    36. 

  36. 

  37. 	//=====================================================================================
    38. 

  38. 	$res_str .= "\n" . 'function grapheme_strlen($string) {}' . "\n\n";
    39. 

  39. 

  40. 	
    41. 

  41. 	$res_str .= "\"hindi\" in devanagari strlen " . grapheme_strlen($hindi) . "\n";
    42. 

  42. 	$res_str .= "\"ab\" + \"hindi\" + \"cde\" strlen " . grapheme_strlen('ab' . $hindi . 'cde') . "\n";
    43. 

  43. 	$res_str .= "\"\" strlen " . grapheme_strlen("") . "\n";
    44. 

  44. 	$res_str .= "char_a_ring_nfd strlen " . grapheme_strlen($char_a_ring_nfd) . "\n";
    45. 

  45. 	$res_str .= "char_a_ring_nfd + \"bc\" strlen " . grapheme_strlen($char_a_ring_nfd . 'bc') . "\n";
    46. 

  46. 	$res_str .= "\"abc\" strlen " . grapheme_strlen('abc') . "\n";
    47. 

  47. 

  48. 	
    49. 

  49. 	//=====================================================================================
    50. 

  50. 	$res_str .= "\n" . 'function grapheme_strpos($haystack, $needle, $offset = 0) {}' . "\n\n";
    51. 

  51. 

  52. 	$tests = array(
    53. 

  53. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "o", "o", 5 ),
    54. 

  54. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, "o", "false" ),
    55. 

  55. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, $char_o_diaeresis_nfd, 4 ),
    56. 

  56. 		array( $char_o_diaeresis_nfd . "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd, 2 ),
    57. 

  57. 		array( "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd, 1 ),
    58. 

  58. 		array( "abc", $char_a_ring_nfd, "false" ),
    59. 

  59. 		array( $char_a_ring_nfd . "bc", "a", "false" ),
    60. 

  60. 		array( "abc", "d", "false" ),
    61. 

  61. 		array( "abc", "c", 2 ),
    62. 

  62. 		array( "abc", "b", 1 ),
    63. 

  63. 		array( "abc", "a", 0 ),
    64. 

  64. 		array( "abc", "a", 0, 0 ),
    65. 

  65. 		array( "abc", "a", 1, "false" ),
    66. 

  66. 		array( "ababc", "a", 1, 2 ),
    67. 

  67. 		array( "ao" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "o", "o", 2, 6 ),
    68. 

  68. 		array( $char_o_diaeresis_nfd . $char_a_ring_nfd . "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd, 2, 3 ),
    69. 

  69. 		
    70. 

  70. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "opq", "op", 5 ),
    71. 

  71. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "opq", "opq", 5 ),
    72. 

  72. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, "abc", "false" ),
    73. 

  73. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "bc" . $char_o_diaeresis_nfd, $char_o_diaeresis_nfd . "bc" . $char_o_diaeresis_nfd, 4 ),
    74. 

  74. 		array( $char_o_diaeresis_nfd . "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd . "bc", 2 ),
    75. 

  75. 		array( "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd . "bc", 1 ),
    76. 

  76. 		array( "abc", $char_a_ring_nfd . "bc", "false" ),
    77. 

  77. 		array( $char_a_ring_nfd . "bc", "abcdefg", "false" ),
    78. 

  78. 		array( "abc", "defghijklmnopq", "false" ),
    79. 

  79. 		array( "abc", "ab", 0 ),
    80. 

  80. 		array( "abc", "bc", 1 ),
    81. 

  81. 		array( "abc", "abc", 0 ),
    82. 

  82. 		array( "abc", "abcd", "false" ),
    83. 

  83. 		array( "abc", "ab", 0, 0 ),
    84. 

  84. 		array( "abc", "abc", 0, 0 ),
    85. 

  85. 		array( "abc", "abc", 1, "false" ),
    86. 

  86. 		array( "ababc", "ab", 1, 2 ),
    87. 

  87. 		array( "ababc", "abc", 1, 2 ),
    88. 

  88. 		array( "ao" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "o" . $char_a_ring_nfd . "bc", "o" . $char_a_ring_nfd . "bc", 2, 6 ),
    89. 

  89. 		array( $char_o_diaeresis_nfd . $char_a_ring_nfd . "a" . $char_a_ring_nfd . "bc" . $char_a_ring_nfd . "def", $char_a_ring_nfd . "bc" . $char_a_ring_nfd, 2, 3 ),
    90. 

  90. 	);
    91. 

  91. 

  92. 	foreach( $tests as $test ) {
    93. 

  93. 	    $arg1 = urlencode($test[1]);
    94. 

  94. 	    $arg0 = urlencode($test[0]);
    95. 

  95. 		$res_str .= "find \"$arg1\" in \"$arg0\" - grapheme_strpos";
    96. 

  96. 		if ( 3 == count( $test ) ) {
    97. 

  97. 			$result = grapheme_strpos($test[0], $test[1]);
    98. 

  98. 		}
    99. 

  99. 		else {
    100. 

  100. 			$res_str .= " from $test[2]";
    101. 

  101. 			$result = grapheme_strpos($test[0], $test[1], $test[2]);
    102. 

  102. 		}
    103. 

  103. 		$res_str .= " = ";
    104. 

  104. 		if ( $result === false ) {
    105. 

  105. 			$res_str .= 'false';
    106. 

  106. 		}
    107. 

  107. 		else {
    108. 

  108. 			$res_str .= $result;
    109. 

  109. 		}
    110. 

  110. 		$res_str .= " == " . $test[count($test)-1] . check_result($result, $test[count($test)-1]) . "\n";
    111. 

  111. 	}
    112. 

  112. 	
    113. 

  113. 	//=====================================================================================
    114. 

  114. 	$res_str .= "\n" . 'function grapheme_stripos($haystack, $needle, $offset = 0) {}' . "\n\n";
    115. 

  115. 	
    116. 

  116. 	$tests = array(
    117. 

  117. 		array( "ao" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "O", "o", 2, 6 ),
    118. 

  118. 		array( $char_o_diaeresis_nfd . $char_a_ring_nfd . "a" . $char_A_ring_nfd . "bc", $char_a_ring_nfd, 2, 3 ),
    119. 

  119. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "O", "o", 5 ),
    120. 

  120. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, "O", "false" ),
    121. 

  121. 		array( "a" . $char_a_ring_nfd . "bc" . $char_O_diaeresis_nfd, $char_o_diaeresis_nfd, 4 ),
    122. 

  122. 		array( $char_o_diaeresis_nfd . "a" . $char_a_ring_nfd . "bc", $char_A_ring_nfd, 2 ),
    123. 

  123. 		array( "a" . $char_A_ring_nfd . "bc", $char_a_ring_nfd, 1 ),
    124. 

  124. 		array( "Abc", $char_a_ring_nfd, "false" ),
    125. 

  125. 		array( $char_a_ring_nfd . "bc", "A", "false" ),
    126. 

  126. 		array( "abc", "D", "false" ),
    127. 

  127. 		array( "abC", "c", 2 ),
    128. 

  128. 		array( "abc", "B", 1 ),
    129. 

  129. 		array( "Abc", "a", 0 ),
    130. 

  130. 		array( "abc", "A", 0, 0 ),
    131. 

  131. 		array( "Abc", "a", 1, "false" ),
    132. 

  132. 		array( "ababc", "A", 1, 2 ),
    133. 

  133. 		
    134. 

  134. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", "oP", 5 ),
    135. 

  135. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", "opQ", 5 ),
    136. 

  136. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, "abc", "false" ),
    137. 

  137. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "bC" . $char_o_diaeresis_nfd, $char_O_diaeresis_nfd . "bc" . $char_o_diaeresis_nfd, 4 ),
    138. 

  138. 		array( $char_o_diaeresis_nfd . "a" . $char_a_ring_nfd . "Bc", $char_A_ring_nfd . "bc", 2 ),
    139. 

  139. 		array( "a" . $char_a_ring_nfd . "BC", $char_a_ring_nfd . "bc", 1 ),
    140. 

  140. 		array( "abc", $char_a_ring_nfd . "BC", "false" ),
    141. 

  141. 		array( $char_a_ring_nfd . "BC", "aBCdefg", "false" ),
    142. 

  142. 		array( "aBC", "Defghijklmnopq", "false" ),
    143. 

  143. 		array( "abC", "Ab", 0 ),
    144. 

  144. 		array( "aBC", "bc", 1 ),
    145. 

  145. 		array( "abC", "Abc", 0 ),
    146. 

  146. 		array( "abC", "aBcd", "false" ),
    147. 

  147. 		array( "ABc", "ab", 0, 0 ),
    148. 

  148. 		array( "aBc", "abC", 0, 0 ),
    149. 

  149. 		array( "abc", "aBc", 1, "false" ),
    150. 

  150. 		array( "ABabc", "AB", 1, 2 ),
    151. 

  151. 		array( "abaBc", "aBc", 1, 2 ),
    152. 

  152. 		array( "ao" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "o" . $char_A_ring_nfd . "bC", "O" . $char_a_ring_nfd . "bC", 2, 6 ),
    153. 

  153. 		array( $char_o_diaeresis_nfd . $char_a_ring_nfd . "a" . $char_A_ring_nfd . "bC" . $char_a_ring_nfd . "def", $char_a_ring_nfd . "Bc" . $char_a_ring_nfd, 2, 3 ),
    154. 

  154. 	);
    155. 

  155. 

  156. 	foreach( $tests as $test ) {
    157. 

  157. 	    $arg1 = urlencode($test[1]);
    158. 

  158. 	    $arg0 = urlencode($test[0]);
    159. 

  159. 		$res_str .= "find \"$arg1\" in \"$arg0\" - grapheme_stripos";
    160. 

  160. 		if ( 3 == count( $test ) ) {
    161. 

  161. 			$result = grapheme_stripos($test[0], $test[1]);
    162. 

  162. 		}
    163. 

  163. 		else {
    164. 

  164. 			$res_str .= " from $test[2]";
    165. 

  165. 			$result = grapheme_stripos($test[0], $test[1], $test[2]);
    166. 

  166. 		}
    167. 

  167. 		$res_str .= " = ";
    168. 

  168. 		if ( $result === false ) {
    169. 

  169. 			$res_str .= 'false';
    170. 

  170. 		}
    171. 

  171. 		else {
    172. 

  172. 			$res_str .= $result;
    173. 

  173. 		}
    174. 

  174. 		$res_str .= " == " . $test[count($test)-1] . check_result($result, $test[count($test)-1]) . "\n";
    175. 

  175. 	}
    176. 

  176. 

  177. 	
    178. 

  178. 	//=====================================================================================
    179. 

  179. 	$res_str .= "\n" . 'function grapheme_strrpos($haystack, $needle, $offset = 0) {}' . "\n\n";
    180. 

  180. 

  181. 

  182. 	$tests = array(
    183. 

  183. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "o", "o", 5 ),
    184. 

  184. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, "o", "false" ),
    185. 

  185. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, $char_o_diaeresis_nfd, 4 ),
    186. 

  186. 		array( $char_o_diaeresis_nfd . "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd, 2 ),
    187. 

  187. 		array( "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd, 1 ),
    188. 

  188. 		array( "abc", $char_a_ring_nfd, "false" ),
    189. 

  189. 		array( $char_a_ring_nfd . "bc", "a", "false" ),
    190. 

  190. 		array( "abc", "d", "false" ),
    191. 

  191. 		array( "abc", "c", 2 ),
    192. 

  192. 		array( "abc", "b", 1 ),
    193. 

  193. 		array( "abc", "a", 0 ),
    194. 

  194. 		array( "abc", "a", 0, 0 ),
    195. 

  195. 		array( "abc", "a", 1, "false" ),
    196. 

  196. 		array( "ababc", "a", 1, 2 ),
    197. 

  197. 		array( "ao" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "o", "o", 2, 6 ),
    198. 

  198. 		array( $char_o_diaeresis_nfd . $char_a_ring_nfd . "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd, 2, 3 ),
    199. 

  199. 		
    200. 

  200. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "opq", "op", 5 ),
    201. 

  201. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "opq", "opq", 5 ),
    202. 

  202. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, "abc", "false" ),
    203. 

  203. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "bc" . $char_o_diaeresis_nfd, $char_o_diaeresis_nfd . "bc" . $char_o_diaeresis_nfd, 4 ),
    204. 

  204. 		array( $char_o_diaeresis_nfd . "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd . "bc", 2 ),
    205. 

  205. 		array( "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd . "bc", 1 ),
    206. 

  206. 		array( "abc", $char_a_ring_nfd . "bc", "false" ),
    207. 

  207. 		array( $char_a_ring_nfd . "bc", "abcdefg", "false" ),
    208. 

  208. 		array( "abc", "defghijklmnopq", "false" ),
    209. 

  209. 		array( "abc", "ab", 0 ),
    210. 

  210. 		array( "abc", "bc", 1 ),
    211. 

  211. 		array( "abc", "abc", 0 ),
    212. 

  212. 		array( "abc", "abcd", "false" ),
    213. 

  213. 		array( "abc", "ab", 0, 0 ),
    214. 

  214. 		array( "abc", "abc", 0, 0 ),
    215. 

  215. 		array( "abc", "abc", 1, "false" ),
    216. 

  216. 		array( "ababc", "ab", 1, 2 ),
    217. 

  217. 		array( "ababc", "abc", 1, 2 ),
    218. 

  218. 		array( "ao" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "o" . $char_a_ring_nfd . "bc", "o" . $char_a_ring_nfd . "bc", 2, 6 ),
    219. 

  219. 		array( $char_o_diaeresis_nfd . $char_a_ring_nfd . "a" . $char_a_ring_nfd . "bc" . $char_a_ring_nfd . "def", $char_a_ring_nfd . "bc" . $char_a_ring_nfd, 2, 3 ),
    220. 

  220. 	);
    221. 

  221. 

  222. 	foreach( $tests as $test ) {
    223. 

  223. 	    $arg1 = urlencode($test[1]);
    224. 

  224. 	    $arg0 = urlencode($test[0]);
    225. 

  225. 		$res_str .= "find \"$arg1\" in \"$arg0\" - grapheme_strrpos";
    226. 

  226. 		if ( 3 == count( $test ) ) {
    227. 

  227. 			$result = grapheme_strrpos($test[0], $test[1]);
    228. 

  228. 		}
    229. 

  229. 		else {
    230. 

  230. 			$res_str .= " from $test[2]";
    231. 

  231. 			$result = grapheme_strrpos($test[0], $test[1], $test[2]);
    232. 

  232. 		}
    233. 

  233. 		$res_str .= " = ";
    234. 

  234. 		if ( $result === false ) {
    235. 

  235. 			$res_str .= 'false';
    236. 

  236. 		}
    237. 

  237. 		else {
    238. 

  238. 			$res_str .= $result;
    239. 

  239. 		}
    240. 

  240. 		$res_str .= " == " . $test[count($test)-1] .  check_result($result, $test[count($test)-1]) . "\n";
    241. 

  241. 	}
    242. 

  242. 	
    243. 

  243. 

  244. 	//=====================================================================================
    245. 

  245. 	$res_str .= "\n" . 'function grapheme_strripos($haystack, $needle, $offset = 0) {}' . "\n\n";
    246. 

  246. 	
    247. 

  247. 	$tests = array(
    248. 

  248. 		array( "ao" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "O", "o", 2, 6 ),
    249. 

  249. 		array( $char_o_diaeresis_nfd . $char_a_ring_nfd . "a" . $char_A_ring_nfd . "bc", $char_a_ring_nfd, 2, 3 ),
    250. 

  250. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "O", "o", 5 ),
    251. 

  251. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, "O", "false" ),
    252. 

  252. 		array( "a" . $char_a_ring_nfd . "bc" . $char_O_diaeresis_nfd, $char_o_diaeresis_nfd, 4 ),
    253. 

  253. 		array( $char_o_diaeresis_nfd . "a" . $char_a_ring_nfd . "bc", $char_A_ring_nfd, 2 ),
    254. 

  254. 		array( "a" . $char_A_ring_nfd . "bc", $char_a_ring_nfd, 1 ),
    255. 

  255. 		array( "Abc", $char_a_ring_nfd, "false" ),
    256. 

  256. 		array( $char_a_ring_nfd . "bc", "A", "false" ),
    257. 

  257. 		array( "abc", "D", "false" ),
    258. 

  258. 		array( "abC", "c", 2 ),
    259. 

  259. 		array( "abc", "B", 1 ),
    260. 

  260. 		array( "Abc", "a", 0 ),
    261. 

  261. 		array( "abc", "A", 0, 0 ),
    262. 

  262. 		array( "Abc", "a", 1, "false" ),
    263. 

  263. 		array( "ababc", "A", 1, 2 ),
    264. 

  264. 		
    265. 

  265. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", "oP", 5 ),
    266. 

  266. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", "opQ", 5 ),
    267. 

  267. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, "abc", "false" ),
    268. 

  268. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "bC" . $char_o_diaeresis_nfd, $char_O_diaeresis_nfd . "bc" . $char_o_diaeresis_nfd, 4 ),
    269. 

  269. 		array( $char_o_diaeresis_nfd . "a" . $char_a_ring_nfd . "Bc", $char_A_ring_nfd . "bc", 2 ),
    270. 

  270. 		array( "a" . $char_a_ring_nfd . "BC", $char_a_ring_nfd . "bc", 1 ),
    271. 

  271. 		array( "abc", $char_a_ring_nfd . "BC", "false" ),
    272. 

  272. 		array( $char_a_ring_nfd . "BC", "aBCdefg", "false" ),
    273. 

  273. 		array( "aBC", "Defghijklmnopq", "false" ),
    274. 

  274. 		array( "abC", "Ab", 0 ),
    275. 

  275. 		array( "aBC", "bc", 1 ),
    276. 

  276. 		array( "abC", "Abc", 0 ),
    277. 

  277. 		array( "abC", "aBcd", "false" ),
    278. 

  278. 		array( "ABc", "ab", 0, 0 ),
    279. 

  279. 		array( "aBc", "abC", 0, 0 ),
    280. 

  280. 		array( "abc", "aBc", 1, "false" ),
    281. 

  281. 		array( "ABabc", "AB", 1, 2 ),
    282. 

  282. 		array( "abaBc", "aBc", 1, 2 ),
    283. 

  283. 		array( "ao" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "o" . $char_A_ring_nfd . "bC", "O" . $char_a_ring_nfd . "bC", 2, 6 ),
    284. 

  284. 		array( $char_o_diaeresis_nfd . $char_a_ring_nfd . "a" . $char_A_ring_nfd . "bC" . $char_a_ring_nfd . "def", $char_a_ring_nfd . "Bc" . $char_a_ring_nfd, 2, 3 ),
    285. 

  285. 	);
    286. 

  286. 

  287. 	foreach( $tests as $test ) {
    288. 

  288. 	    $arg1 = urlencode($test[1]);
    289. 

  289. 	    $arg0 = urlencode($test[0]);
    290. 

  290. 		$res_str .= "find \"$arg1\" in \"$arg0\" - grapheme_strripos";
    291. 

  291. 		if ( 3 == count( $test ) ) {
    292. 

  292. 			$result = grapheme_strripos($test[0], $test[1]);
    293. 

  293. 		}
    294. 

  294. 		else {
    295. 

  295. 			$res_str .= " from $test[2]";
    296. 

  296. 			$result = grapheme_strripos($test[0], $test[1], $test[2]);
    297. 

  297. 		}
    298. 

  298. 		$res_str .= " = ";
    299. 

  299. 		if ( $result === false ) {
    300. 

  300. 			$res_str .= 'false';
    301. 

  301. 		}
    302. 

  302. 		else {
    303. 

  303. 			$res_str .= $result;
    304. 

  304. 		}
    305. 

  305. 		$res_str .= " == " . $test[count($test)-1] . check_result($result, $test[count($test)-1]) . "\n";
    306. 

  306. 	}
    307. 

  307. 	
    308. 

  308. 	
    309. 

  309. 	//=====================================================================================
    310. 

  310. 	$res_str .= "\n" . 'function grapheme_substr($string, $start, $length = -1) {}' . "\n\n";
    311. 

  311. 

  312. 	$tests = array(
    313. 

  313. 

  314. 		array( "abc", 3, "false" ),
    315. 

  315. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, 5, "false" ),
    316. 

  316. 		array( "ao" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "O", 2, $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "O" ),
    317. 

  317. 		array( $char_o_diaeresis_nfd . $char_a_ring_nfd . "a" . $char_A_ring_nfd . "bc", 2, "a" . $char_A_ring_nfd . "bc" ),
    318. 

  318. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "O", 5, "O" ),
    319. 

  319. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, 5, "false" ),
    320. 

  320. 		array( "a" . $char_a_ring_nfd . "bc" . $char_O_diaeresis_nfd, 4, $char_O_diaeresis_nfd ),
    321. 

  321. 		array( $char_o_diaeresis_nfd . "a" . $char_a_ring_nfd . "bc", 2, $char_a_ring_nfd . "bc" ),
    322. 

  322. 		array( "a" . $char_A_ring_nfd . "bc", 1, $char_A_ring_nfd . "bc" ),
    323. 

  323. 		array( "Abc", -5, "false" ),
    324. 

  324. 		array( $char_a_ring_nfd . "bc", 3, "false" ),
    325. 

  325. 		array( "abc", 4, "false" ),
    326. 

  326. 		array( "abC", 2, "C" ),
    327. 

  327. 		array( "abc", 1, "bc" ),
    328. 

  328. 		array( "Abc", 1, 1, "b" ),
    329. 

  329. 		array( "abc", 0, 2, "ab" ),
    330. 

  330. 		array( "Abc", -4, 1, "false" ),
    331. 

  331. 		array( "ababc", 1, 2, "ba" ),
    332. 

  332. 		array( "ababc", 0, 10, "ababc" ),
    333. 

  333. 		
    334. 

  334. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 0, 10 , "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq" ),
    335. 

  335. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 5, "Opq" ),
    336. 

  336. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 5, -1, "Op" ),
    337. 

  337. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 5, -2, "O" ),
    338. 

  338. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 5, -3, "" ),
    339. 

  339. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 5, -4, "false" ),
    340. 

  340. 

  341. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 0, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq" ),
    342. 

  342. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 0, -1, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Op" ),
    343. 

  343. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 0, -2, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "O" ),
    344. 

  344. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 0, -3, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd ),
    345. 

  345. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 0, -4, "a" . $char_a_ring_nfd . "bc" ),
    346. 

  346. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 0, -5, "a" . $char_a_ring_nfd . "b" ),
    347. 

  347. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 0, -6, "a" . $char_a_ring_nfd ),
    348. 

  348. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 0, -7, "a" ),
    349. 

  349. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 0, -8, "" ),
    350. 

  350. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", 0, -9, "false" ),
    351. 

  351. 

  352. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq" ),
    353. 

  353. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -7, $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq" ),
    354. 

  354. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -6, "bc" . $char_o_diaeresis_nfd . "Opq" ),
    355. 

  355. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -5, "c" . $char_o_diaeresis_nfd . "Opq" ),
    356. 

  356. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -4, $char_o_diaeresis_nfd . "Opq" ),
    357. 

  357. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -3, "Opq" ),
    358. 

  358. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -2, "pq" ),
    359. 

  359. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -1, "q" ),
    360. 

  360. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -999, "false" ),
    361. 

  361. 

  362. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, 8, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq" ),
    363. 

  363. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, 7, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Op" ),
    364. 

  364. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, 6, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "O" ),
    365. 

  365. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, 5, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd ),
    366. 

  366. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, 4, "a" . $char_a_ring_nfd . "bc" ),
    367. 

  367. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, 3, "a" . $char_a_ring_nfd . "b" ),
    368. 

  368. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, 2, "a" . $char_a_ring_nfd ),
    369. 

  369. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, 1, "a" ),
    370. 

  370. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, 0, "" ),
    371. 

  371. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, -999, "false" ),
    372. 

  372. 

  373. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, -1, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Op" ),
    374. 

  374. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, -2, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "O" ),
    375. 

  375. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, -3, "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd ),
    376. 

  376. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, -4, "a" . $char_a_ring_nfd . "bc" ),
    377. 

  377. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, -5, "a" . $char_a_ring_nfd . "b" ),
    378. 

  378. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, -6, "a" . $char_a_ring_nfd ),
    379. 

  379. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, -7, "a" ),
    380. 

  380. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, -8, "" ),
    381. 

  381. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "Opq", -8, -9, "false" ),
    382. 

  382. 		
    383. 

  383. 	);
    384. 

  384. 

  385. 	foreach( $tests as $test ) {
    386. 

  386. 	    $arg0 = urlencode($test[0]);
    387. 

  387. 		$res_str .= "substring of \"$arg0\" from \"$test[1]\" - grapheme_substr";
    388. 

  388. 		if ( 3 == count( $test ) ) {
    389. 

  389. 			$result = grapheme_substr($test[0], $test[1]);
    390. 

  390. 		}
    391. 

  391. 		else {
    392. 

  392. 			$res_str .= " with length $test[2]";
    393. 

  393. 			$result = grapheme_substr($test[0], $test[1], $test[2]);
    394. 

  394. 		}
    395. 

  395. 		$res_str .= " = ";
    396. 

  396. 		if ( $result === false ) {
    397. 

  397. 			$res_str .= 'false';
    398. 

  398. 		}
    399. 

  399. 		else {
    400. 

  400. 			$res_str .= urlencode($result);
    401. 

  401. 		}
    402. 

  402. 		$res_str .= " == " . urlencode($test[count($test)-1]) . check_result($result, $test[count($test)-1]) . "\n";
    403. 

  403. 	}
    404. 

  404. 	
    405. 

  405. 

  406. 	//=====================================================================================
    407. 

  407. 	$res_str .= "\n" . 'function grapheme_strstr($haystack, $needle, $before_needle = FALSE) {}' . "\n\n";
    408. 

  408. 

  409. 	$tests = array(
    410. 

  410. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "o", "o", "o" ),
    411. 

  411. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, "o", "false" ),
    412. 

  412. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, $char_o_diaeresis_nfd, $char_o_diaeresis_nfd ),
    413. 

  413. 		array( $char_o_diaeresis_nfd . "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd, $char_a_ring_nfd . "bc"),
    414. 

  414. 		array( "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd, $char_a_ring_nfd . "bc"),
    415. 

  415. 		array( "abc", $char_a_ring_nfd, "false" ),
    416. 

  416. 		array( $char_a_ring_nfd . "bc", "a", "false" ),
    417. 

  417. 		array( "abc", "d", "false" ),
    418. 

  418. 		array( "abc", "c", "c" ),
    419. 

  419. 		array( "abc", "b", "bc" ),
    420. 

  420. 		array( "abc", "a", "abc" ),
    421. 

  421. 		array( "abc", "ab", "abc" ),
    422. 

  422. 		array( "abc", "abc", "abc" ),
    423. 

  423. 		array( "abc", "bc", "bc" ),
    424. 

  424. 		array( "abc", "a", FALSE, "abc" ),
    425. 

  425. 		array( "abc", "a", TRUE, "" ),
    426. 

  426. 		array( "abc", "b", TRUE, "a" ),
    427. 

  427. 		array( "abc", "c", TRUE, "ab" ),
    428. 

  428. 		array( "ababc", "bab", TRUE, "a" ),
    429. 

  429. 		array( "ababc", "abc", TRUE, "ab" ),
    430. 

  430. 		array( "ababc", "abc", FALSE, "abc" ),
    431. 

  431. 		
    432. 

  432. 		array( "ab" . $char_a_ring_nfd . "c", "d", "false" ),
    433. 

  433. 		array( "bc" . $char_a_ring_nfd . "a", "a", "a" ),
    434. 

  434. 		array( "a" . $char_a_ring_nfd . "bc", "b", "bc" ),
    435. 

  435. 		array( $char_a_ring_nfd . "bc", "a", "false" ),
    436. 

  436. 		array( $char_a_ring_nfd . "abc", "ab", "abc" ),
    437. 

  437. 		array( "abc" . $char_a_ring_nfd, "abc", "abc" . $char_a_ring_nfd),
    438. 

  438. 		array( "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd . "bc", $char_a_ring_nfd . "bc" ),
    439. 

  439. 		array( "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd, FALSE, $char_a_ring_nfd . "bc"),
    440. 

  440. 		array( "a" . $char_a_ring_nfd . "bc", "a", TRUE, "" ),
    441. 

  441. 		array( $char_a_ring_nfd . "abc", "b", TRUE, $char_a_ring_nfd . "a" ),
    442. 

  442. 		array( "ab" . $char_a_ring_nfd . "c", "c", TRUE, "ab" . $char_a_ring_nfd ),
    443. 

  443. 		array( "aba" . $char_a_ring_nfd . "bc", "ba" . $char_a_ring_nfd . "b", TRUE, "a" ),
    444. 

  444. 		array( "ababc" . $char_a_ring_nfd, "abc" . $char_a_ring_nfd, TRUE, "ab" ),
    445. 

  445. 		array( "abab" . $char_a_ring_nfd . "c", "ab" . $char_a_ring_nfd . "c", FALSE, "ab" . $char_a_ring_nfd . "c" ),
    446. 

  446. 

  447. 	);
    448. 

  448. 

  449. 	foreach( $tests as $test ) {
    450. 

  450. 	    $arg1 = urlencode($test[1]);
    451. 

  451. 	    $arg0 = urlencode($test[0]);
    452. 

  452. 		$res_str .= "find \"$arg1\" in \"$arg0\" - grapheme_strstr";
    453. 

  453. 		if ( 3 == count( $test ) ) {
    454. 

  454. 			$result = grapheme_strstr($test[0], $test[1]);
    455. 

  455. 		}
    456. 

  456. 		else {
    457. 

  457. 			$res_str .= " before flag is " . ( $test[2] ? "TRUE" : "FALSE" );
    458. 

  458. 			$result = grapheme_strstr($test[0], $test[1], $test[2]);
    459. 

  459. 		}
    460. 

  460. 		$res_str .= " = ";
    461. 

  461. 		if ( $result === false ) {
    462. 

  462. 			$res_str .= 'false';
    463. 

  463. 		}
    464. 

  464. 		else {
    465. 

  465. 			$res_str .= urlencode($result);
    466. 

  466. 		}
    467. 

  467. 		$res_str .= " == " . urlencode($test[count($test)-1]) . check_result($result, $test[count($test)-1]) . "\n";
    468. 

  468. 	}
    469. 

  469. 	
    470. 

  470. 

  471. 	//=====================================================================================
    472. 

  472. 	$res_str .= "\n" . 'function grapheme_stristr($haystack, $needle, $before_needle = FALSE) {}' . "\n\n";
    473. 

  473. 

  474. 	$tests = array(
    475. 

  475. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, $char_O_diaeresis_nfd, $char_o_diaeresis_nfd ),
    476. 

  476. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd . "O", "o", "O" ),
    477. 

  477. 		array( "a" . $char_a_ring_nfd . "bc" . $char_o_diaeresis_nfd, "o", "false" ),
    478. 

  478. 		array( $char_o_diaeresis_nfd . "a" . $char_a_ring_nfd . "bc", $char_a_ring_nfd, $char_a_ring_nfd . "bc"),
    479. 

  479. 		array( "a" . $char_a_ring_nfd . "bc", $char_A_ring_nfd, $char_a_ring_nfd . "bc"),
    480. 

  480. 		array( "abc", $char_a_ring_nfd, "false" ),
    481. 

  481. 		array( $char_a_ring_nfd . "bc", "A", "false" ),
    482. 

  482. 		array( "abc", "d", "false" ),
    483. 

  483. 		array( "abc", "C", "c" ),
    484. 

  484. 		array( "aBc", "b", "Bc" ),
    485. 

  485. 		array( "abc", "A", "abc" ),
    486. 

  486. 		array( "abC", "ab", "abC" ),
    487. 

  487. 		array( "abc", "aBc", "abc" ),
    488. 

  488. 		array( "abC", "bc", "bC" ),
    489. 

  489. 		array( "abc", "A", FALSE, "abc" ),
    490. 

  490. 		array( "abc", "a", TRUE, "" ),
    491. 

  491. 		array( "aBc", "b", TRUE, "a" ),
    492. 

  492. 		array( "abc", "C", TRUE, "ab" ),
    493. 

  493. 		array( "aBabc", "bab", TRUE, "a" ),
    494. 

  494. 		array( "ababc", "aBc", TRUE, "ab" ),
    495. 

  495. 		array( "ababc", "abC", FALSE, "abc" ),
    496. 

  496. 		
    497. 

  497. 		array( "ab" . $char_a_ring_nfd . "c", "d", "false" ),
    498. 

  498. 		array( "bc" . $char_a_ring_nfd . "A", "a", "A" ),
    499. 

  499. 		array( "a" . $char_a_ring_nfd . "bc", "B", "bc" ),
    500. 

  500. 		array( $char_A_ring_nfd . "bc", "a", "false" ),
    501. 

  501. 		array( $char_a_ring_nfd . "abc", "Ab", "abc" ),
    502. 

  502. 		array( "abc" . $char_A_ring_nfd, "abc", "abc" . $char_A_ring_nfd),
    503. 

  503. 		array( "a" . $char_a_ring_nfd . "bc", $char_A_ring_nfd . "bc", $char_a_ring_nfd . "bc" ),
    504. 

  504. 		array( "a" . $char_A_ring_nfd . "bc", $char_a_ring_nfd, FALSE, $char_A_ring_nfd . "bc" ),
    505. 

  505. 		array( "a" . $char_a_ring_nfd . "bc", "A", TRUE, "" ),
    506. 

  506. 		array( $char_a_ring_nfd . "aBc", "b", TRUE, $char_a_ring_nfd . "a" ),
    507. 

  507. 		array( "ab" . $char_a_ring_nfd . "c", "C", TRUE, "ab" . $char_a_ring_nfd ),
    508. 

  508. 		array( "aba" . $char_A_ring_nfd . "bc", "ba" . $char_a_ring_nfd . "b", TRUE, "a" ),
    509. 

  509. 		array( "ababc" . $char_a_ring_nfd, "aBc" . $char_A_ring_nfd, TRUE, "ab" ),
    510. 

  510. 		array( "abAB" . $char_A_ring_nfd . "c", "ab" . $char_a_ring_nfd . "c", FALSE, "AB" . $char_A_ring_nfd . "c" ),
    511. 

  511. 

  512. 	);
    513. 

  513. 

  514. 	foreach( $tests as $test ) {
    515. 

  515. 	    $arg1 = urlencode($test[1]);
    516. 

  516. 	    $arg0 = urlencode($test[0]);
    517. 

  517. 		$res_str .= "find \"$arg1\" in \"$arg0\" - grapheme_stristr";
    518. 

  518. 		if ( 3 == count( $test ) ) {
    519. 

  519. 			$result = grapheme_stristr($test[0], $test[1]);
    520. 

  520. 		}
    521. 

  521. 		else {
    522. 

  522. 			$res_str .= " before flag is " . ( $test[2] ? "TRUE" : "FALSE" );
    523. 

  523. 			$result = grapheme_stristr($test[0], $test[1], $test[2]);
    524. 

  524. 		}
    525. 

  525. 		$res_str .= " = ";
    526. 

  526. 		if ( $result === false ) {
    527. 

  527. 			$res_str .= 'false';
    528. 

  528. 		}
    529. 

  529. 		else {
    530. 

  530. 			$res_str .= urlencode($result);
    531. 

  531. 		}
    532. 

  532. 		$res_str .= " == " . urlencode($test[count($test)-1]) . check_result($result, $test[count($test)-1]) . "\n";
    533. 

  533. 	}
    534. 

  534. 	
    535. 

  535. 

  536. 	//=====================================================================================
    537. 

  537. 	$res_str .= "\n" . 'function grapheme_extract($haystack, $size, $extract_type = GRAPHEME_EXTR_COUNT, $start = 0[, $next])' . "\n\n";
    538. 

  538. 

  539. 	$tests = array(
    540. 

  540. 		// haystack, count, [[offset], [next]], result
    541. 

  541. 		array( "abc", 3, "abc" ),
    542. 

  542. 		array( "abc", 2, "ab" ),
    543. 

  543. 		array( "abc", 1, "a" ),
    544. 

  544. 		array( "abc", 0, "" ),
    545. 

  545. 		array( "abc", 1, 0, "a" ),
    546. 

  546. 		array( "abc", 1, 1, "b" ),
    547. 

  547. 		array( "abc", 1, 2, "c" ),
    548. 

  548. 		array( "abc", 0, 2, "" ),
    549. 

  549. 

  550. 		array( "abc", 3, 0, 3, "abc" ),
    551. 

  551. 		array( "abc", 2, 0, 2, "ab" ),
    552. 

  552. 		array( "abc", 1, 0, 1, "a" ),
    553. 

  553. 		array( "abc", 0, 0, 0, "" ),
    554. 

  554. 		array( "abc", 1, 0, 1, "a" ),
    555. 

  555. 		array( "abc", 1, 1, 2, "b" ),
    556. 

  556. 		array( "abc", 1, 2, 3, "c" ),
    557. 

  557. 		array( "abc", 0, 2, 2, "" ),
    558. 

  558.         array( "http://news.bbc.co.uk/2/hi/middle_east/7831588.stm", 48, 48 , 50 , "tm" ),
    559. 

  559. 

  560. 		array( $char_a_ring_nfd . "bc", 3, $char_a_ring_nfd . "bc" ),
    561. 

  561. 		array( $char_a_ring_nfd . "bc", 2, $char_a_ring_nfd . "b" ),
    562. 

  562. 		array( $char_a_ring_nfd . "bc", 1, $char_a_ring_nfd . "" ),
    563. 

  563. 		array( $char_a_ring_nfd . "bc", 3, 0, 5, $char_a_ring_nfd . "bc" ),
    564. 

  564. 		array( $char_a_ring_nfd . "bc", 2, 0, 4, $char_a_ring_nfd . "b" ),
    565. 

  565. 		array( $char_a_ring_nfd . "bc", 1, 0, 3, $char_a_ring_nfd . "" ),
    566. 

  566. 		array( $char_a_ring_nfd . "bcde", 2, 3, 5, "bc" ),
    567. 

  567. 		array( $char_a_ring_nfd . "bcde", 2, 4, 6, "cd" ),
    568. 

  568. 		array( $char_a_ring_nfd . "bcde" . $char_a_ring_nfd . "f", 4, 5, 11, "de" . $char_a_ring_nfd . "f" ),
    569. 

  569. 

  570. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 3, $char_a_ring_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd ),
    571. 

  571. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 2, $char_a_ring_nfd . $char_o_diaeresis_nfd ),
    572. 

  572. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . "c", 1, $char_a_ring_nfd . "" ),
    573. 

  573. 

  574. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 1, 0, $char_o_diaeresis_nfd),
    575. 

  575. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 1, 2, $char_o_diaeresis_nfd),
    576. 

  576. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 1, 3, $char_o_diaeresis_nfd),
    577. 

  577. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 1, 4, $char_diaeresis),
    578. 

  578. 

  579. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 2, 0, $char_o_diaeresis_nfd . $char_o_diaeresis_nfd),
    580. 

  580. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 2, 2, $char_o_diaeresis_nfd . $char_o_diaeresis_nfd),
    581. 

  581. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 2, 3, $char_o_diaeresis_nfd . $char_o_diaeresis_nfd),
    582. 

  582. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 2, 4, $char_diaeresis . $char_o_diaeresis_nfd),
    583. 

  583. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 2, 7, $char_diaeresis . $char_o_diaeresis_nfd),
    584. 

  584. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 2, 8, $char_o_diaeresis_nfd),
    585. 

  585. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 2, 10, $char_diaeresis),
    586. 

  586. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 2, 11, "false"),
    587. 

  587. 

  588. 	);
    589. 

  589. 

  590. 	$next = -1;
    591. 

  591. 	foreach( $tests as $test ) {
    592. 

  592. 	    $arg0 = urlencode($test[0]);
    593. 

  593. 		$res_str .= "extract from \"$arg0\" \"$test[1]\" graphemes - grapheme_extract";
    594. 

  594. 		if ( 3 == count( $test ) ) {
    595. 

  595. 			$result = grapheme_extract($test[0], $test[1]);
    596. 

  596. 		}
    597. 

  597. 		elseif ( 4 == count ( $test ) ) {
    598. 

  598. 			$res_str .= " starting at byte position $test[2]";
    599. 

  599. 			$result = grapheme_extract($test[0], $test[1], GRAPHEME_EXTR_COUNT, $test[2]);
    600. 

  600. 		}
    601. 

  601. 		else {
    602. 

  602. 			$res_str .= " starting at byte position $test[2] with \$next";
    603. 

  603. 			$result = grapheme_extract($test[0], $test[1], GRAPHEME_EXTR_COUNT, $test[2], $next);
    604. 

  604. 		}
    605. 

  605. 		$res_str .= " = ";
    606. 

  606. 		if ( $result === false ) {
    607. 

  607. 			$res_str .= 'false';
    608. 

  608. 		}
    609. 

  609. 		else {
    610. 

  610. 			$res_str .= urlencode($result);
    611. 

  611. 		}
    612. 

  612. 		$res_str .= " == " . urlencode($test[count($test)-1]) . check_result($result, $test[count($test)-1]);
    613. 

  613. 		if ( 5 == count ( $test ) ) {
    614. 

  614. 			$res_str .= " \$next=$next == $test[3] ";
    615. 

  615. 			if ( $next != $test[3] ) {
    616. 

  616. 				$res_str .= "***FAILED***";
    617. 

  617. 			}
    618. 

  618. 		}
    619. 

  619. 		$res_str .= "\n";
    620. 

  620. 	}
    621. 

  621. 	
    622. 

  622. 

  623. 	//=====================================================================================
    624. 

  624. 	$res_str .= "\n" . 'function grapheme_extract($haystack, $size, $extract_type = GRAPHEME_EXTR_MAXBYTES, $start = 0)' . "\n\n";
    625. 

  625. 

  626. 	$tests = array(
    627. 

  627. 		array( "abc", 3, "abc" ),
    628. 

  628. 		array( "abc", 2, "ab" ),
    629. 

  629. 		array( "abc", 1, "a" ),
    630. 

  630. 		array( "abc", 0, "" ),
    631. 

  631. 		array( $char_a_ring_nfd . "bc", 5, $char_a_ring_nfd . "bc" ),
    632. 

  632. 		array( $char_a_ring_nfd . "bc", 4, $char_a_ring_nfd . "b" ),
    633. 

  633. 		array( $char_a_ring_nfd . "bc", 1, "" ),
    634. 

  634. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 9, $char_a_ring_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd ),
    635. 

  635. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 10, $char_a_ring_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd ),
    636. 

  636. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 11, $char_a_ring_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd ),
    637. 

  637. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 6, $char_a_ring_nfd . $char_o_diaeresis_nfd ),
    638. 

  638. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . "c", 3, $char_a_ring_nfd . "" ),
    639. 

  639. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . "c", 4, $char_a_ring_nfd . "" ),
    640. 

  640. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . "c", 5, $char_a_ring_nfd . "" ),
    641. 

  641. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . "c", 6, $char_a_ring_nfd . $char_o_diaeresis_nfd  ),
    642. 

  642. 		array( $char_a_ring_nfd . $char_o_diaeresis_nfd . "c", 7, $char_a_ring_nfd . $char_o_diaeresis_nfd . "c" ),
    643. 

  643. 

  644. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 3, 0, $char_o_diaeresis_nfd),
    645. 

  645. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 3, 2, $char_o_diaeresis_nfd),
    646. 

  646. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 3, 3, $char_o_diaeresis_nfd),
    647. 

  647. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 3, 4, $char_diaeresis),
    648. 

  648. 

  649. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 6, 0, $char_o_diaeresis_nfd . $char_o_diaeresis_nfd),
    650. 

  650. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 6, 2, $char_o_diaeresis_nfd . $char_o_diaeresis_nfd),
    651. 

  651. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 6, 3, $char_o_diaeresis_nfd . $char_o_diaeresis_nfd),
    652. 

  652. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 5, 4, $char_diaeresis . $char_o_diaeresis_nfd),
    653. 

  653. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 5, 7, $char_diaeresis . $char_o_diaeresis_nfd),
    654. 

  654. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 3, 8, $char_o_diaeresis_nfd),
    655. 

  655. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 2, 10, $char_diaeresis),
    656. 

  656. 		array( $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd . $char_o_diaeresis_nfd, 2, 11, "false"),
    657. 

  657. 

  658. 	);
    659. 

  659. 

  660. 	foreach( $tests as $test ) {
    661. 

  661. 	    $arg0 = urlencode($test[0]);
    662. 

  662. 		$res_str .= "extract from \"$arg0\" \"$test[1]\" graphemes - grapheme_extract GRAPHEME_EXTR_MAXBYTES";
    663. 

  663. 		if ( 3 == count( $test ) ) {
    664. 

  664. 			$result = grapheme_extract($test[0], $test[1], GRAPHEME_EXTR_MAXBYTES);
    665. 

  665. 		}
    666. 

  666. 		else {
    667. 

  667. 			$res_str .= " starting at byte position $test[2]";
    668. 

  668. 			$result = grapheme_extract($test[0], $test[1], GRAPHEME_EXTR_MAXBYTES, $test[2]);
    669. 

  669. 		}
    670. 

  670. 		$res_str .= " = ";
    671. 

  671. 		if ( $result === false ) {
    672. 

  672. 			$res_str .= 'false';
    673. 

  673. 		}
    674. 

  674. 		else {
    675. 

  675. 			$res_str .= urlencode($result);
    676. 

  676. 		}
    677. 

  677. 		$res_str .= " == " . urlencode($test[count($test)-1]) . check_result($result, $test[count($test)-1]) . "\n";
    678. 

  678. 	}
    679. 

  679. 	
    680. 

  680. 

  681. 	//=====================================================================================
    682. 

  682. 	$res_str .= "\n" . 'function grapheme_extract($haystack, $size, $extract_type = GRAPHEME_EXTR_MAXCHARS, $start = 0)' . "\n\n";
    683. 

  683. 

  684. 	$tests = array(
    685. 

  685. 		array( "abc", 3, "abc" ),
    686. 

  686. 		array( "abc", 2, "ab" ),
    687. 

  687. 		array( "abc", 1, "a" ),
    688. 

  688. 		array( "abc", 0, "" ),
    689. 

  689. 		array( "abc" . $char_o_diaeresis_nfd, 0, "" ),
    690. 

  690. 		array( "abc" . $char_o_diaeresis_nfd, 1, "a" ),
    691. 

  691. 		array( "abc" . $char_o_diaeresis_nfd, 2, "ab" ),
    692. 

  692. 		array( "abc" . $char_o_diaeresis_nfd, 3, "abc" ),
    693. 

  693. 		array( "abc" . $char_o_diaeresis_nfd, 4, "abc" ),
    694. 

  694. 		array( "abc" . $char_o_diaeresis_nfd, 5, "abc" . $char_o_diaeresis_nfd),
    695. 

  695. 		array( "abc" . $char_o_diaeresis_nfd, 6, "abc" . $char_o_diaeresis_nfd),
    696. 

  696. 		array( $char_o_diaeresis_nfd . "abc", 0, "" ),
    697. 

  697. 		array( $char_o_diaeresis_nfd . "abc", 1, "" ),
    698. 

  698. 		array( $char_o_diaeresis_nfd . "abc", 2, $char_o_diaeresis_nfd ),
    699. 

  699. 		array( $char_o_diaeresis_nfd . "abc", 3, $char_o_diaeresis_nfd . "a" ),
    700. 

  700. 		array( $char_o_diaeresis_nfd . "abc", 4, $char_o_diaeresis_nfd . "ab" ),
    701. 

  701. 		array( $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "xyz", 5, $char_o_diaeresis_nfd . "abc" ),
    702. 

  702. 		array( $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "xyz", 6, $char_o_diaeresis_nfd . "abc" ),
    703. 

  703. 		array( $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "xyz", 7, $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd ),
    704. 

  704. 		array( $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "xyz", 8, $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "x" ),
    705. 

  705. 

  706. 		array( "abc", 3, 0, "abc" ),
    707. 

  707. 		array( "abc", 2, 1, "bc" ),
    708. 

  708. 		array( "abc", 1, 2, "c" ),
    709. 

  709. 		array( "abc", 0, 3, "false" ),
    710. 

  710. 		array( "abc", 1, 3, "false" ),
    711. 

  711. 		array( "abc", 1, 999, "false" ),
    712. 

  712. 		array( $char_o_diaeresis_nfd . "abc", 1, 6, "false" ),
    713. 

  713. 		array( $char_o_diaeresis_nfd . "abc", 1, 999, "false" ),
    714. 

  714. 		array( $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "xyz", 8, 0, $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "x" ),
    715. 

  715. 		array( $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "xyz", 8, 1, $char_diaeresis . "abc" . $char_a_ring_nfd . "xy" ),
    716. 

  716. 		array( $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "xyz", 8, 2, "abc" . $char_a_ring_nfd . "xyz" ),
    717. 

  717. 		array( $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "xyz", 8, 3, "abc" . $char_a_ring_nfd . "xyz" ),
    718. 

  718. 		array( $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "xyz", 8, 4, "bc" . $char_a_ring_nfd . "xyz" ),
    719. 

  719. 		array( $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "xyz", 8, 5, "c" . $char_a_ring_nfd . "xyz" ),
    720. 

  720. 		array( $char_o_diaeresis_nfd . "abc" . $char_a_ring_nfd . "xyz", 8, 6, $char_a_ring_nfd . "xyz" ),
    721. 

  721. 

  722. 	);
    723. 

  723. 

  724. 	foreach( $tests as $test ) {
    725. 

  725. 	    $arg0 = urlencode($test[0]);
    726. 

  726. 		$res_str .= "extract from \"$arg0\" \"$test[1]\" graphemes - grapheme_extract GRAPHEME_EXTR_MAXCHARS";
    727. 

  727. 		if ( 3 == count( $test ) ) {
    728. 

  728. 			$result = grapheme_extract($test[0], $test[1], GRAPHEME_EXTR_MAXCHARS);
    729. 

  729. 		}
    730. 

  730. 		else {
    731. 

  731. 			$res_str .= " starting at byte position $test[2]";
    732. 

  732. 			$result = grapheme_extract($test[0], $test[1], GRAPHEME_EXTR_MAXCHARS, $test[2]);
    733. 

  733. 		}
    734. 

  734. 		$res_str .= " = ";
    735. 

  735. 		if ( $result === false ) {
    736. 

  736. 			$res_str .= 'false';
    737. 

  737. 		}
    738. 

  738. 		else {
    739. 

  739. 			$res_str .= urlencode($result);
    740. 

  740. 		}
    741. 

  741. 		$res_str .= " == " . urlencode($test[count($test)-1]) . check_result($result, $test[count($test)-1]) . "\n";
    742. 

  742. 	}
    743. 

  743. 	
    744. 

  744. 	
    745. 

  745. 	//=====================================================================================
    746. 

  746. 	
    747. 

  747. 	return $res_str;
    748. 

  748. }
    749. 

  749. 

  750. echo ut_main();
    751. 

  751. 

  752. function check_result($result, $expected) {
    753. 

  753. 

  754. 	if ( $result === false ) {
    755. 

  755.         	$result = 'false';
    756. 

  756. 	}
    757. 

  757. 

  758. 	if ( strcmp($result, $expected) != 0 ) {
    759. 

  759. 		return " **FAILED** ";
    760. 

  760. 	}
    761. 

  761. 

  762. 	return "";
    763. 

  763. }
    764. 

  764. 

  765. ?>
    766.