egroupware/phpgwapi/inc/adodb/tests/testgenid.php
Ralf Becker 0dd4cc1925 imported ADOdb version 4.22:
it seems to fix some php5 probs the old version had
2004-06-08 14:09:55 +00:00

36 lines
731 B
PHP

<?php
/*
V4.22 15 Apr 2004
Run multiple copies of this php script at the same time
to test unique generation of id's in multiuser mode
*/
include_once('../adodb.inc.php');
$testaccess = true;
include_once('testdatabases.inc.php');
function testdb(&$db,$createtab="create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)")
{
$table = 'adodbseq';
$db->Execute("drop table $table");
//$db->debug=true;
$ctr = 5000;
$lastnum = 0;
while (--$ctr >= 0) {
$num = $db->GenID($table);
if ($num === false) {
print "GenID returned false";
break;
}
if ($lastnum + 1 == $num) print " $num ";
else {
print " <font color=red>$num</font> ";
flush();
}
$lastnum = $num;
}
}
?>