php-8.0.30-src/ext/standard/tests/strings/implode1.phpt

--TEST--
Test implode() function
--FILE--
<?php
echo "*** Testing implode() for basic operations ***\n";
$arrays = array (
  array(1,2),
  array(1.1,2.2),
  array(array(2),array(1)),
  array(false,true),
  array(),
  array("a","aaaa","b","bbbb","c","ccccccccccccccccccccc")
);
/* loop to output string with ', ' as $glue, using implode() */
foreach ($arrays as $array) {
  var_dump( implode(', ', $array) );
  var_dump($array);
}

echo "\n*** Testing implode() with variations of glue ***\n";
/* checking possible variations */
$pieces = array (
  2,
  0,
  -639,
  true,
  "PHP",
  false,
  NULL,
  "",
  " ",
  "string\x00with\x00...\0"
);
$glues = array (
  "TRUE",
  true,
  false,
  array("key1", "key2"),
  "",
  " ",
  "string\x00between",
  NULL,
  -0,
  '\0'
);
/* loop through to display a string containing all the array $pieces in the same order,
   with the $glue string between each element  */
$counter = 1;
foreach($glues as $glue) {
  echo "-- Iteration $counter --\n";
  try {
       var_dump(implode($glue, $pieces));
  } catch (TypeError $exception) {
      echo $exception->getMessage() . "\n";
  }
  $counter++;
}

/* empty string */
echo "\n*** Testing implode() on empty string ***\n";
try {
    implode("");
} catch (TypeError $e) {
    echo $e->getMessage(), "\n";
}

/* checking sub-arrays */
echo "\n*** Testing implode() on sub-arrays ***\n";
$sub_array = array(array(1,2,3,4), array(1 => "one", 2 => "two"), "PHP", 50);
var_dump(implode("TEST", $sub_array));
try {
   var_dump(implode(array(1, 2, 3, 4), $sub_array));
} catch (TypeError $exception) {
  echo $exception->getMessage() . "\n";
}
try {
   var_dump( implode(2, $sub_array) );
} catch (TypeError $exception) {
  echo $exception->getMessage() . "\n";
}

echo "\n*** Testing implode() on objects ***\n";
/* checking on objects */
class foo
{
  function __toString() {
    return "Object";
  }
}

$obj = new foo(); //creating new object
$arr = array();
$arr[0] = &$obj;
$arr[1] = &$obj;
var_dump( implode(",", $arr) );
var_dump($arr);

/* Checking on resource types */
echo "\n*** Testing end() on resource type ***\n";
/* file type resource */
$file_handle = fopen(__FILE__, "r");

/* directory type resource */
$dir_handle = opendir( __DIR__ );

/* store resources in array for comparison */
$resources = array($file_handle, $dir_handle);

var_dump( implode("::", $resources) );

echo "\n*** Testing error conditions ***\n";

/* only glue */
try {
    var_dump( implode("glue") );
} catch (TypeError $e) {
    echo $e->getMessage(), "\n";
}

/* int as pieces */
try {
    var_dump( implode("glue",1234) );
} catch (TypeError $e) {
    echo $e->getMessage(), "\n";
}

/* NULL as pieces */
try {
    var_dump( implode("glue", NULL) );
} catch (TypeError $e) {
    echo $e->getMessage(), "\n";
}

/* pieces as NULL array */
try {
    var_dump( implode(",", array(NULL)) );
} catch (TypeError $e) {
    echo $e->getMessage(), "\n";
}

/* integer as glue */
try {
    var_dump( implode(12, "pieces") );
} catch (TypeError $e) {
    echo $e->getMessage(), "\n";
}

/* NULL as glue */
try {
    var_dump( implode(NULL, "abcd") );
} catch (TypeError $e) {
    echo $e->getMessage(), "\n";
}

/* closing resource handles */
fclose($file_handle);
closedir($dir_handle);

echo "Done\n";
?>
--EXPECTF--
*** Testing implode() for basic operations ***
string(4) "1, 2"
array(2) {
  [0]=>
  int(1)
  [1]=>
  int(2)
}
string(8) "1.1, 2.2"
array(2) {
  [0]=>
  float(1.1)
  [1]=>
  float(2.2)
}

Warning: Array to string conversion in %s on line %d

Warning: Array to string conversion in %s on line %d
string(12) "Array, Array"
array(2) {
  [0]=>
  array(1) {
    [0]=>
    int(2)
  }
  [1]=>
  array(1) {
    [0]=>
    int(1)
  }
}
string(3) ", 1"
array(2) {
  [0]=>
  bool(false)
  [1]=>
  bool(true)
}
string(0) ""
array(0) {
}
string(42) "a, aaaa, b, bbbb, c, ccccccccccccccccccccc"
array(6) {
  [0]=>
  string(1) "a"
  [1]=>
  string(4) "aaaa"
  [2]=>
  string(1) "b"
  [3]=>
  string(4) "bbbb"
  [4]=>
  string(1) "c"
  [5]=>
  string(21) "ccccccccccccccccccccc"
}

*** Testing implode() with variations of glue ***
-- Iteration 1 --
string(63) "2TRUE0TRUE-639TRUE1TRUEPHPTRUETRUETRUETRUE TRUEstringwith..."
-- Iteration 2 --
string(36) "2101-639111PHP1111 1stringwith..."
-- Iteration 3 --
string(27) "20-6391PHP stringwith..."
-- Iteration 4 --
implode(): Argument #1 ($separator) must be of type string, array given
-- Iteration 5 --
string(27) "20-6391PHP stringwith..."
-- Iteration 6 --
string(36) "2 0 -639 1 PHP      stringwith..."
-- Iteration 7 --
string(153) "2stringbetween0stringbetween-639stringbetween1stringbetweenPHPstringbetweenstringbetweenstringbetweenstringbetween stringbetweenstringwith..."
-- Iteration 8 --
string(27) "20-6391PHP stringwith..."
-- Iteration 9 --
string(36) "2000-639010PHP0000 0stringwith..."
-- Iteration 10 --
string(45) "2\00\0-639\01\0PHP\0\0\0\0 \0stringwith..."

*** Testing implode() on empty string ***
implode(): Argument #1 ($pieces) must be of type array, string given

*** Testing implode() on sub-arrays ***

Warning: Array to string conversion in %s on line %d

Warning: Array to string conversion in %s on line %d
string(27) "ArrayTESTArrayTESTPHPTEST50"
implode(): Argument #1 ($separator) must be of type string, array given

Warning: Array to string conversion in %s

Warning: Array to string conversion in %s
string(18) "Array2Array2PHP250"

*** Testing implode() on objects ***
string(13) "Object,Object"
array(2) {
  [0]=>
  &object(foo)#%d (0) {
  }
  [1]=>
  &object(foo)#%d (0) {
  }
}

*** Testing end() on resource type ***
string(%d) "Resource id #%d::Resource id #%d"

*** Testing error conditions ***
implode(): Argument #1 ($pieces) must be of type array, string given
implode(): Argument #2 ($array) must be of type ?array, int given
implode(): Argument #1 ($pieces) must be of type array, string given
string(0) ""
implode(): Argument #2 ($array) must be of type ?array, string given
implode(): Argument #2 ($array) must be of type ?array, string given
Done