Revision 2,
731 bytes
checked in by niltonneto, 18 years ago
(diff) |
Removida todas as tags usadas pelo CVS ($Id, $Source).
Primeira versão no CVS externo.
|
-
Property svn:eol-style set to
native
-
Property svn:executable set to
*
|
Line | |
---|
1 | <?php |
---|
2 | /* |
---|
3 | V4.50 6 July 2004 |
---|
4 | |
---|
5 | Run multiple copies of this php script at the same time |
---|
6 | to test unique generation of id's in multiuser mode |
---|
7 | */ |
---|
8 | include_once('../adodb.inc.php'); |
---|
9 | $testaccess = true; |
---|
10 | include_once('testdatabases.inc.php'); |
---|
11 | |
---|
12 | function testdb(&$db,$createtab="create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)") |
---|
13 | { |
---|
14 | $table = 'adodbseq'; |
---|
15 | |
---|
16 | $db->Execute("drop table $table"); |
---|
17 | //$db->debug=true; |
---|
18 | |
---|
19 | $ctr = 5000; |
---|
20 | $lastnum = 0; |
---|
21 | |
---|
22 | while (--$ctr >= 0) { |
---|
23 | $num = $db->GenID($table); |
---|
24 | if ($num === false) { |
---|
25 | print "GenID returned false"; |
---|
26 | break; |
---|
27 | } |
---|
28 | if ($lastnum + 1 == $num) print " $num "; |
---|
29 | else { |
---|
30 | print " <font color=red>$num</font> "; |
---|
31 | flush(); |
---|
32 | } |
---|
33 | $lastnum = $num; |
---|
34 | } |
---|
35 | } |
---|
36 | ?> |
---|
Note: See
TracBrowser
for help on using the repository browser.