--TEST--
InterBase: misc sql types (may take a while)
--SKIPIF--
<?php include("skipif.inc"); ?>
--POST--
--GET--
--FILE--
<?php /* $Id$ */

require("interbase.inc");

ibase_connect($test_base);

ibase_query(
	"CREATE TABLE test3 (
		iter		integer not null,
		v_char		char(1000),
		v_date      timestamp,
		v_decimal4_2  		decimal(4,2),
		v_decimal4_0  		decimal(4,0),
		v_decimal7_2  		decimal(7,2),
		v_decimal7_0  		decimal(7,0),
		v_numeric15_15  	numeric(15,15),
		v_numeric15_0  	numeric(15,0),
		v_double  	double precision,
		v_float     float,
		v_integer   integer,
		v_smallint  smallint,
		v_varchar   varchar(10000)
		)");
ibase_commit();

/* should fail, but gracefully */
@ibase_query("INSERT INTO test3 (iter) VALUES (?)", null);

/* if timefmt is not supported, suppress error here */
@ibase_timefmt("%m/%d/%Y %H:%M:%S");

for ($iter = 0; $iter < 10; ++$iter) {
	/* prepare data  */
	$v_char = rand_str(1000);
	$v_date = rand_datetime();
	$v_decimal4_2 = rand_number(4,2);
	$v_decimal4_0 = rand_number(4,0);
	$v_decimal7_2 = rand_number(7,2); 
	$v_decimal7_0 = rand_number(7,0);
	$v_numeric15_15 = rand_number(15,15);
	$v_numeric15_0 = $iter ? rand_number(15,0) : 0;
	$v_double  = rand_number(18);
	$v_float   = rand_number(7);
	$v_integer = rand_number(9,0);
	$v_smallint = rand_number(5) % 32767;
	$v_varchar = rand_str(10000);

	ibase_query(
		"INSERT INTO test3 (iter, v_char,v_date,v_decimal4_2, v_decimal4_0, v_decimal7_2, v_decimal7_0,
			v_numeric15_15, v_numeric15_0,v_double,v_float,v_integer,v_smallint,v_varchar)
		VALUES ($iter, '$v_char','$v_date',$v_decimal4_2, $v_decimal4_0, $v_decimal7_2, $v_decimal7_0,
			$v_numeric15_15, $v_numeric15_0,$v_double,$v_float,$v_integer,$v_smallint,'$v_varchar')");

	$sel = ibase_query('SELECT * FROM test3 WHERE iter = ?',$iter);
	$row = ibase_fetch_object($sel);
	if (substr($row->V_CHAR,0,strlen($v_char)) != $v_char) {
		echo " CHAR fail:\n";
		echo " in:  $v_char\n";
		echo " out: $row->V_CHAR\n";
	}
	if ($row->V_DATE != $v_date) {
		echo " DATE fail\n";
		echo " in:  $v_date\n";
		echo " out: $row->V_DATE\n";
	}
	if ($row->V_DECIMAL4_2 != $v_decimal4_2) {
		echo " DECIMAL4_2 fail\n";
		echo " in:  $v_decimal4_2\n";
		echo " out: $row->V_DECIMAL4_2\n";
	}
	if ($row->V_DECIMAL4_0 != $v_decimal4_0) {
		echo " DECIMAL4_0 fail\n";
		echo " in:  $v_decimal4_0\n";
		echo " out: $row->V_DECIMAL4_0\n";
	}
	if ($row->V_DECIMAL7_2 != $v_decimal7_2) {
		echo " DECIMAL7_2 fail\n";
		echo " in:  $v_decimal7_2\n";
		echo " out: $row->V_DECIMAL7_2\n";
	}
	if ($row->V_DECIMAL7_0 != $v_decimal7_0) {
		echo " DECIMAL7_0 fail\n";
		echo " in:  $v_decimal7_0\n";
		echo " out: $row->V_DECIMAL7_0\n";
	}
	if ($row->V_NUMERIC15_15 != $v_numeric15_15) {
		echo " NUMERIC15_15 fail\n";
		echo " in:  $v_numeric15_15\n";
		echo " out: $row->V_NUMERIC15_15\n";
	}
	if ($row->V_NUMERIC15_0 != (string)$v_numeric15_0) {
		echo " NUMERIC15_0 fail\n";
		echo " in:  $v_numeric15_0\n";
		echo " out: $row->V_NUMERIC15_0\n";
	}
	if (abs($row->V_DOUBLE - $v_double) > abs($v_double / 1E15)) {
		echo " DOUBLE fail\n";
		echo " in:  $v_double\n";
		echo " out: $row->V_DOUBLE\n";
	}
	if (abs($row->V_FLOAT - $v_float) > abs($v_float / 1E7)) {
		echo " FLOAT fail\n";
		echo " in:  $v_float\n";
		echo " out: $row->V_FLOAT\n";
	}
	if ($row->V_INTEGER != $v_integer) {
		echo " INTEGER fail\n";
		echo " in:  $v_integer\n";
		echo " out: $row->V_INTEGER\n";
	}
	if ($row->V_SMALLINT != $v_smallint) {
		echo " SMALLINT fail\n";
		echo " in:  $v_smallint\n";
		echo " out: $row->V_SMALLINT\n";
	}
	if (substr($row->V_VARCHAR,0,strlen($v_varchar)) != $v_varchar) {
		echo " VARCHAR fail:\n";
		echo " in:  $v_varchar\n";
		echo " out: $row->V_VARCHAR\n";
	}

	ibase_free_result($sel);
} /* for($iter) */

ibase_close();
echo "end of test\n";
?>
--EXPECT--
end of test