File:  [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / dba / tests / dba_cdb_read.phpt
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs - revision graph
Tue Feb 21 23:47:54 2012 UTC (12 years, 6 months ago) by misho
Branches: php, MAIN
CVS tags: v5_4_3elwix, v5_4_17p0, v5_3_10, HEAD
php

--TEST--
DBA CDB handler test (read only)
--SKIPIF--
<?php 
	$handler = 'cdb_make';
	require_once dirname(__FILE__) .'/skipif.inc';
?>
--FILE--
<?php
	echo "database handler: cdb\n";
	$handler = 'cdb';
	$db_file = dirname(__FILE__).'/test.cdb';
	if (($db_file=dba_open($db_file, "r", $handler))!==FALSE) {
		// read key sequence
		$a = dba_firstkey($db_file);
		$count= 0;
		$keys = $a;
		while($a) {     
			$a = dba_nextkey($db_file);
			$keys .= $a;
			$count++;
		}
		// display number of entries and key existance
		echo $count;
		for ($i=1; $i<8; $i++) {
			echo dba_exists($i, $db_file) ? "Y" : "N";
		}
		echo "\n=";
		echo dba_fetch(1, $db_file);
		echo dba_fetch(2, $db_file);
		echo dba_fetch(3, $db_file);
		echo dba_fetch(4, $db_file);
		echo "\n#";
		echo dba_fetch(1, $db_file);
		echo dba_fetch(1, $db_file);
		echo dba_fetch(2, $db_file);
		echo dba_fetch(2, $db_file);
		echo "\n?".$keys;
		// with skip = 0 dba_fetch must fetch the first result
		echo "\n#";
		$skip = array();
		for ($i=0; $i < strlen($keys); $i++) {
			$key = substr($keys, $i, 1);
			$skip[$key] = 0;
			echo dba_fetch($key, $db_file);
		}
		echo "\n=";
		for ($i=0; $i < strlen($keys); $i++) {
			$key = substr($keys, $i, 1);
			echo dba_fetch($key, $skip[$key], $db_file);
			$skip[$key]++;
		}
		dba_close($db_file);
	} else {
		echo "Error creating database\n";
	}
?>
--EXPECT--
database handler: cdb
7YYYYNNN
=1234
#1122
?1212314
#1212314
=1231324

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>