1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
<?
function test $call (
global $id, $name, $value;
echo "$call: ";
eval("echo $call;");
echo "\n";
);
#extern void php3_dbmnextkey(INTERNAL_FUNCTION_PARAMETERS);
echo dblist();
$name = "testing";
$id = dbmopen($name, "n");
echo "opened $name, id $id\n";
test ("dbminsert(\$id, \"test\", \"value\")");
test ("dbmexists(\$id, \"test\")");
test ("dbmexists(\$id, \"bogus\")");
test ("dbmdelete(\$id, \"test\")");
test ("dbmexists(\$id, \"test\")");
test ("dbminsert(\$id, \"test\", \"value\")");
test ("dbmfetch(\$id, \"test\")");
test ("dbmfetch(\$name, \"test\")");
test ("dbmfetch(\$id, \"bogus\")");
test ("dbmreplace(\$id, \"test\", \"newvalue\")");
test ("dbmfetch(\$id, \"test\")");
test ("dbmdelete(\$id, \"test\")");
test ("dbmfetch(\$id, \"test\")");
for ($i = 0; $i < 10; $i++) {
dbminsert($id, $i, tempnam(".", "$i"));
}
test ("\$value = dbmfirstkey(\$id)");
while ($value) {
echo "dbmnextkey($id, $value): '" . ($value = dbmnextkey($id, $value)) . "'\n";
}
dbmclose($id);
echo "closed $id\n";
echo "done testing $name.\n";
?>
|
