forked from extern/egroupware
195 lines
3.9 KiB
PHP
195 lines
3.9 KiB
PHP
<html>
|
|
<body bgcolor=white>
|
|
<?php
|
|
/**
|
|
* V4.20 22 Feb 2004 (c) 2001-2002 John Lim (jlim@natsoft.com.my). All rights reserved.
|
|
* Released under both BSD license and Lesser GPL library license.
|
|
Whenever there is any discrepancy between the two licenses,
|
|
the BSD license will take precedence.
|
|
*
|
|
* set tabs to 8
|
|
*/
|
|
|
|
// documentation on usage is at http://php.weblogs.com/adodb_csv
|
|
|
|
include('../adodb.inc.php');
|
|
include('../tohtml.inc.php');
|
|
|
|
function &send2server($url,$sql)
|
|
{
|
|
$url .= '?sql='.urlencode($sql);
|
|
print "<p>$url</p>";
|
|
$rs = csv2rs($url,$err);
|
|
if ($err) print $err;
|
|
return $rs;
|
|
}
|
|
|
|
function print_pre($s)
|
|
{
|
|
print "<pre>";print_r($s);print "</pre>";
|
|
}
|
|
|
|
|
|
$serverURL = 'http://localhost/php/phplens/adodb/server.php';
|
|
$testhttp = false;
|
|
|
|
$sql1 = "insertz into products (productname) values ('testprod 1')";
|
|
$sql2 = "insert into products (productname) values ('testprod 1')";
|
|
$sql3 = "insert into products (productname) values ('testprod 2')";
|
|
$sql4 = "delete from products where productid>80";
|
|
$sql5 = 'select * from products';
|
|
|
|
if ($testhttp) {
|
|
print "<a href=#c>Client Driver Tests</a><p>";
|
|
print "<h3>Test Error</h3>";
|
|
$rs = send2server($serverURL,$sql1);
|
|
print_pre($rs);
|
|
print "<hr>";
|
|
|
|
print "<h3>Test Insert</h3>";
|
|
|
|
$rs = send2server($serverURL,$sql2);
|
|
print_pre($rs);
|
|
print "<hr>";
|
|
|
|
print "<h3>Test Insert2</h3>";
|
|
|
|
$rs = send2server($serverURL,$sql3);
|
|
print_pre($rs);
|
|
print "<hr>";
|
|
|
|
print "<h3>Test Delete</h3>";
|
|
|
|
$rs = send2server($serverURL,$sql4);
|
|
print_pre($rs);
|
|
print "<hr>";
|
|
|
|
|
|
print "<h3>Test Select</h3>";
|
|
$rs = send2server($serverURL,$sql5);
|
|
if ($rs) rs2html($rs);
|
|
|
|
print "<hr>";
|
|
}
|
|
|
|
|
|
print "<a name=c><h1>CLIENT Driver Tests</h1>";
|
|
$conn = ADONewConnection('csv');
|
|
$conn->Connect($serverURL);
|
|
$conn->debug = true;
|
|
|
|
print "<h3>Bad SQL</h3>";
|
|
|
|
$rs = $conn->Execute($sql1);
|
|
|
|
print "<h3>Insert SQL 1</h3>";
|
|
$rs = $conn->Execute($sql2);
|
|
|
|
print "<h3>Insert SQL 2</h3>";
|
|
$rs = $conn->Execute($sql3);
|
|
|
|
print "<h3>Select SQL</h3>";
|
|
$rs = $conn->Execute($sql5);
|
|
if ($rs) rs2html($rs);
|
|
|
|
print "<h3>Delete SQL</h3>";
|
|
$rs = $conn->Execute($sql4);
|
|
|
|
print "<h3>Select SQL</h3>";
|
|
$rs = $conn->Execute($sql5);
|
|
if ($rs) rs2html($rs);
|
|
|
|
|
|
/* EXPECTED RESULTS FOR HTTP TEST:
|
|
|
|
Test Insert
|
|
http://localhost/php/adodb/server.php?sql=insert+into+products+%28productname%29+values+%28%27testprod%27%29
|
|
|
|
adorecordset Object
|
|
(
|
|
[dataProvider] => native
|
|
[fields] =>
|
|
[blobSize] => 64
|
|
[canSeek] =>
|
|
[EOF] => 1
|
|
[emptyTimeStamp] =>
|
|
[emptyDate] =>
|
|
[debug] =>
|
|
[timeToLive] => 0
|
|
[bind] =>
|
|
[_numOfRows] => -1
|
|
[_numOfFields] => 0
|
|
[_queryID] => 1
|
|
[_currentRow] => -1
|
|
[_closed] =>
|
|
[_inited] =>
|
|
[sql] => insert into products (productname) values ('testprod')
|
|
[affectedrows] => 1
|
|
[insertid] => 81
|
|
)
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
Test Insert2
|
|
http://localhost/php/adodb/server.php?sql=insert+into+products+%28productname%29+values+%28%27testprod%27%29
|
|
|
|
adorecordset Object
|
|
(
|
|
[dataProvider] => native
|
|
[fields] =>
|
|
[blobSize] => 64
|
|
[canSeek] =>
|
|
[EOF] => 1
|
|
[emptyTimeStamp] =>
|
|
[emptyDate] =>
|
|
[debug] =>
|
|
[timeToLive] => 0
|
|
[bind] =>
|
|
[_numOfRows] => -1
|
|
[_numOfFields] => 0
|
|
[_queryID] => 1
|
|
[_currentRow] => -1
|
|
[_closed] =>
|
|
[_inited] =>
|
|
[sql] => insert into products (productname) values ('testprod')
|
|
[affectedrows] => 1
|
|
[insertid] => 82
|
|
)
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
Test Delete
|
|
http://localhost/php/adodb/server.php?sql=delete+from+products+where+productid%3E80
|
|
|
|
adorecordset Object
|
|
(
|
|
[dataProvider] => native
|
|
[fields] =>
|
|
[blobSize] => 64
|
|
[canSeek] =>
|
|
[EOF] => 1
|
|
[emptyTimeStamp] =>
|
|
[emptyDate] =>
|
|
[debug] =>
|
|
[timeToLive] => 0
|
|
[bind] =>
|
|
[_numOfRows] => -1
|
|
[_numOfFields] => 0
|
|
[_queryID] => 1
|
|
[_currentRow] => -1
|
|
[_closed] =>
|
|
[_inited] =>
|
|
[sql] => delete from products where productid>80
|
|
[affectedrows] => 2
|
|
[insertid] => 0
|
|
)
|
|
|
|
[more stuff deleted]
|
|
.
|
|
.
|
|
.
|
|
*/
|
|
?>
|