2 calls to UnicodeUnitTest::helperTestSubStr()

UnicodeUnitTest::testEmulatedUnicode in modules/simpletest/tests/unicode.test

Test emulated unicode features.

UnicodeUnitTest::testMbStringUnicode in modules/simpletest/tests/unicode.test

Test full unicode features implemented using the mbstring extension.

File

modules/simpletest/tests/unicode.test, line 130

Class

UnicodeUnitTest

Test unicode handling features implemented in unicode.inc.

Code

function helperTestSubStr() {
 $testcase = array(
 // 012345678901234567890123
array(
 'frànçAIS is über-åwesome',
 0,
 0,
 '',
 ),
 array(
 'frànçAIS is über-åwesome',
 0,
 1,
 'f',
 ),
 array(
 'frànçAIS is über-åwesome',
 0,
 8,
 'frànçAIS',
 ),
 array(
 'frànçAIS is über-åwesome',
 0,
 23,
 'frànçAIS is über-åwesom',
 ),
 array(
 'frànçAIS is über-åwesome',
 0,
 24,
 'frànçAIS is über-åwesome',
 ),
 array(
 'frànçAIS is über-åwesome',
 0,
 25,
 'frànçAIS is über-åwesome',
 ),
 array(
 'frànçAIS is über-åwesome',
 0,
 100,
 'frànçAIS is über-åwesome',
 ),
 array(
 'frànçAIS is über-åwesome',
 4,
 4,
 'çAIS',
 ),
 array(
 'frànçAIS is über-åwesome',
 1,
 0,
 '',
 ),
 array(
 'frànçAIS is über-åwesome',
 100,
 0,
 '',
 ),
 array(
 'frànçAIS is über-åwesome',
 -4,
 2,
 'so',
 ),
 array(
 'frànçAIS is über-åwesome',
 -4,
 3,
 'som',
 ),
 array(
 'frànçAIS is über-åwesome',
 -4,
 4,
 'some',
 ),
 array(
 'frànçAIS is über-åwesome',
 -4,
 5,
 'some',
 ),
 array(
 'frànçAIS is über-åwesome',
 -7,
 10,
 'åwesome',
 ),
 array(
 'frànçAIS is über-åwesome',
 5,
 -10,
 'AIS is üb',
 ),
 array(
 'frànçAIS is über-åwesome',
 0,
 -10,
 'frànçAIS is üb',
 ),
 array(
 'frànçAIS is über-åwesome',
 0,
 -1,
 'frànçAIS is über-åwesom',
 ),
 array(
 'frànçAIS is über-åwesome',
 -7,
 -2,
 'åweso',
 ),
 array(
 'frànçAIS is über-åwesome',
 -7,
 -6,
 'å',
 ),
 array(
 'frànçAIS is über-åwesome',
 -7,
 -7,
 '',
 ),
 array(
 'frànçAIS is über-åwesome',
 -7,
 -8,
 '',
 ),
 array(
 '...',
 0,
 2,
 '..',
 ),
 array(
 '以呂波耳・ほへとち。リヌルヲ。',
 1,
 3,
 '呂波耳',
 ),
 );
 foreach ($testcase as $test) {
 list($input, $start, $length, $output) = $test;
 $result = drupal_substr ($input, $start, $length);
 $this->assertEqual ($result, $output, format_string ('%input substring at offset %offset for %length characters is %output (got %result)', array(
 '%input' => $input,
 '%offset' => $start,
 '%length' => $length,
 '%output' => $output,
 '%result' => $result,
 )));
 }
}

---