File: dba.php

package info (click to toggle)
php3 3%3A3.0.18-0potato1.1
  • links: PTS
  • area: main
  • in suites: potato
  • size: 17,736 kB
  • ctags: 11,198
  • sloc: ansic: 108,120; sh: 2,512; php: 2,024; yacc: 1,887; makefile: 1,038; perl: 537; pascal: 238; awk: 90; cpp: 28; sql: 11
file content (69 lines) | stat: -rw-r--r-- 1,502 bytes parent folder | download | duplicates (3)
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
<?php

error_reporting(15);

function dba_test($handler, $readonly = false) {
	echo "testing with $handler\n";
	$count = 1000;
	if($readonly) 
		$h = dba_open("test.$handler", "r", $handler, 0600);
	else
		$h = dba_open("test.$handler", "n", $handler, 0600);
	
	if(!$h) 
		die("cannot open db\n");
	
	if(!$readonly) {
	echo "replacing\n";
	for($i = 0; $i < $count; $i++)
		if(!dba_replace($i, "test$i.val", $h))
			die( "dba_replace failed for $i\n");

	echo "optimizing\n";
	if(!dba_optimize($h)) 
		die( "dba_optimize failed\n");
	}

	echo "fetching\n";
	for($i = 0; $i < $count; $i++)
		if(dba_fetch($i, $h) == false || dba_fetch($i, $h) != "test$i.val") 
			die ("dba_fetch failed for $i\n");
	
	echo "traversing\n";
	$n = 0;
	for($key = dba_firstkey($h); $key != false; $key = dba_nextkey($h))
		$n++;

	if($n != $count) 
		die ("db broken: $n entries, $count expected\n");
	
	echo "testing existence\n";
	for($i = 0; $i < $count; $i++) 
		if(!dba_exists($i, $h)) 
			die("dba_exists failed for $i\n");
	
	
	if(!$readonly) {
	echo "deleting\n";
	for($i = 0; $i < $count; $i++)
		if(!dba_delete($i, $h))
			die ("dba_delete failed for $i\n");
	}

	echo "traversing again\n";
	$n = 0;
	for($key = dba_firstkey($h); $key != false; $key = dba_nextkey($h))
		$n++;
	if($n != 0) die("database still contains data\n");

	dba_optimize($h);
	dba_close($h);
	echo "passed\n\n";
}

dba_test("cdb", true);

$dbs = array("db2", "dbm", "ndbm", "gdbm");

for($i = 0; $i < count($dbs); $i++)
	dba_test($dbs[$i]);