sqlite_006.phpt

来自「PHP v6.0 For Linux 运行环境：Win9X/ WinME/ Wi」· PHPT 代码 · 共 70 行

--TEST--
sqlite: regular functions
--INI--
sqlite.assoc_case=0
--SKIPIF--
<?php # vim:ft=php
if (!extension_loaded("sqlite")) print "skip"; ?>
--FILE--
<?php 
include "blankdb.inc";

$data = array(
	array("one", "uno"),
	array("two", "dos"),
	array("three", "tres"),
	);

sqlite_query("CREATE TABLE strings(a,b)", $db);

function implode_args()
{
	$args = func_get_args();
	$sep = array_shift($args);
	return implode($sep, $args);
}

foreach ($data as $row) {
	sqlite_query("INSERT INTO strings VALUES('" . sqlite_escape_string($row[0]) . "','" . sqlite_escape_string($row[1]) . "')", $db);
}

sqlite_create_function($db, "implode", "implode_args");

$r = sqlite_query("SELECT implode('-', a, b) from strings", $db);
while ($row = sqlite_fetch_array($r, SQLITE_NUM)) {
	var_dump($row);
}

sqlite_close($db);

echo "DONE!\n";
?>
--EXPECT--
array(1) {
  [0]=>
  string(7) "one-uno"
}
array(1) {
  [0]=>
  string(7) "two-dos"
}
array(1) {
  [0]=>
  string(10) "three-tres"
}
DONE!
--UEXPECT--
array(1) {
  [0]=>
  unicode(7) "one-uno"
}
array(1) {
  [0]=>
  unicode(7) "two-dos"
}
array(1) {
  [0]=>
  unicode(10) "three-tres"
}
DONE!