#! /usr/bin/env perl

# Copyright (c) 2001  David Muse
# See the file COPYING for more information.


use SQLRelay::Connection;
use SQLRelay::Cursor;

sub checkUndef {

	$value=shift(@_);

	if (!defined($value)) {
		print("success ");
	} else {
		print("failure ");
		exit;
	}
}

sub checkSuccess {

	$value=shift(@_);
	$success=shift(@_);

	if ($value==$success) {
		print("success ");
	} else {
		print("failure ");
		exit;
	}
}

sub checkSuccessString {

	$value=shift(@_);
	$success=shift(@_);

	if ($value eq $success) {
		print("success ");
	} else {
		print("failure ");
		exit;
	}
}


# usage...
if ($#ARGV+1<5) {
	print("usage: interbase.pl host port socket user password");
	exit;
}

# instantiation
$con=SQLRelay::Connection->new($ARGV[0],$ARGV[1],
		$ARGV[2],$ARGV[3],$ARGV[4],0,1);
$cur=SQLRelay::Cursor->new($con);

# get database type
print("IDENTIFY: \n");
checkSuccessString($con->identify(),"interbase");
print("\n");

# ping
print("PING: \n");
checkSuccess($con->ping(),1);
print("\n");

# clear table
$cur->sendQuery("delete from testtable");
$con->commit();

print("INSERT: \n");
checkSuccess($cur->sendQuery("insert into testtable values (1,1,1.1,1.1,1.1,1.1,'01-JAN-2001','01:00:00','testchar1','testvarchar1',NULL)"),1);
print("\n");


print("BIND BY POSITION: \n");
$cur->prepareQuery("insert into testtable values (?,?,?,?,?,?,?,?,?,?,?)");
checkSuccess($cur->countBindVariables(),11);
$cur->inputBind("1",2);
$cur->inputBind("2",2);
$cur->inputBind("3",2.2,2,1);
$cur->inputBind("4",2.2,2,1);
$cur->inputBind("5",2.2,2,1);
$cur->inputBind("6",2.2,2,1);
$cur->inputBind("7","01-JAN-2002");
$cur->inputBind("8","02:00:00");
$cur->inputBind("9","testchar2");
$cur->inputBind("10","testvarchar2");
$cur->inputBind("11",undef);
checkSuccess($cur->executeQuery(),1);
$cur->clearBinds();
$cur->inputBind("1",3);
$cur->inputBind("2",3);
$cur->inputBind("3",3.3,2,1);
$cur->inputBind("4",3.3,2,1);
$cur->inputBind("5",3.3,2,1);
$cur->inputBind("6",3.3,2,1);
$cur->inputBind("7","01-JAN-2003");
$cur->inputBind("8","03:00:00");
$cur->inputBind("9","testchar3");
$cur->inputBind("10","testvarchar3");
$cur->inputBind("11",undef);
checkSuccess($cur->executeQuery(),1);
print("\n");

print("ARRAY OF BINDS BY POSITION: \n");
$cur->clearBinds();
@vars=("1","2","3","4","5","6","7","8","9","10","11");
@vals=(4,4,4.4,4.4,4.4,4.4,"01-JAN-2004","04:00:00",
		"testchar4","testvarchar4",undef);
@precs=(0,0,2,2,2,2,0,0,0,0,0);
@scales=(0,0,1,1,1,1,0,0,0,0,0);
$cur->inputBinds(\@vars,\@vals,\@precs,\@scales);
checkSuccess($cur->executeQuery(),1);
print("\n");

print("INSERT: \n");
checkSuccess($cur->sendQuery("insert into testtable values (5,5,5.5,5.5,5.5,5.5,'01-JAN-2005','05:00:00','testchar5','testvarchar5',NULL)"),1);
checkSuccess($cur->sendQuery("insert into testtable values (6,6,6.6,6.6,6.6,6.6,'01-JAN-2006','06:00:00','testchar6','testvarchar6',NULL)"),1);
checkSuccess($cur->sendQuery("insert into testtable values (7,7,7.7,7.7,7.7,7.7,'01-JAN-2007','07:00:00','testchar7','testvarchar7',NULL)"),1);
checkSuccess($cur->sendQuery("insert into testtable values (8,8,8.8,8.8,8.8,8.8,'01-JAN-2008','08:00:00','testchar8','testvarchar8',NULL)"),1);
print("\n");

print("AFFECTED ROWS: \n");
checkSuccess($cur->affectedRows(),0);
print("\n");

print("STORED PROCEDURE: \n");
checkSuccess($cur->sendQuery("create procedure testproc(invar integer) returns (outvar integer) as begin outvar = invar; suspend; end"),1);
$cur->prepareQuery("select * from testproc(?)");
$cur->inputBind("1",5);
checkSuccess($cur->executeQuery(),1);
checkSuccess($cur->getField(0,0),"5");
checkSuccess($cur->sendQuery("drop procedure testproc"),1);
print("\n");

print("SELECT: \n");
checkSuccess($cur->sendQuery("select * from testtable order by testinteger"),1);
print("\n");

print("COLUMN COUNT: \n");
checkSuccess($cur->colCount(),11);
print("\n");

print("COLUMN NAMES: \n");
checkSuccessString($cur->getColumnName(0),"TESTINTEGER");
checkSuccessString($cur->getColumnName(1),"TESTSMALLINT");
checkSuccessString($cur->getColumnName(2),"TESTDECIMAL");
checkSuccessString($cur->getColumnName(3),"TESTNUMERIC");
checkSuccessString($cur->getColumnName(4),"TESTFLOAT");
checkSuccessString($cur->getColumnName(5),"TESTDOUBLE");
checkSuccessString($cur->getColumnName(6),"TESTDATE");
checkSuccessString($cur->getColumnName(7),"TESTTIME");
checkSuccessString($cur->getColumnName(8),"TESTCHAR");
checkSuccessString($cur->getColumnName(9),"TESTVARCHAR");
checkSuccessString($cur->getColumnName(10),"TESTTIMESTAMP");
@cols=$cur->getColumnNames();
checkSuccessString($cols[0],"TESTINTEGER");
checkSuccessString($cols[1],"TESTSMALLINT");
checkSuccessString($cols[2],"TESTDECIMAL");
checkSuccessString($cols[3],"TESTNUMERIC");
checkSuccessString($cols[4],"TESTFLOAT");
checkSuccessString($cols[5],"TESTDOUBLE");
checkSuccessString($cols[6],"TESTDATE");
checkSuccessString($cols[7],"TESTTIME");
checkSuccessString($cols[8],"TESTCHAR");
checkSuccessString($cols[9],"TESTVARCHAR");
checkSuccessString($cols[10],"TESTTIMESTAMP");
print("\n");

print("COLUMN TYPES: \n");
checkSuccessString($cur->getColumnType(0),"INTEGER");
checkSuccessString($cur->getColumnType('TESTINTEGER'),"INTEGER");
checkSuccessString($cur->getColumnType(1),"SMALLINT");
checkSuccessString($cur->getColumnType('TESTSMALLINT'),"SMALLINT");
checkSuccessString($cur->getColumnType(2),"DECIMAL");
checkSuccessString($cur->getColumnType('TESTDECIMAL'),"DECIMAL");
checkSuccessString($cur->getColumnType(3),"NUMERIC");
checkSuccessString($cur->getColumnType('TESTNUMERIC'),"NUMERIC");
checkSuccessString($cur->getColumnType(4),"FLOAT");
checkSuccessString($cur->getColumnType('TESTFLOAT'),"FLOAT");
checkSuccessString($cur->getColumnType(5),"DOUBLE PRECISION");
checkSuccessString($cur->getColumnType('TESTDOUBLE'),"DOUBLE PRECISION");
checkSuccessString($cur->getColumnType(6),"DATE");
checkSuccessString($cur->getColumnType('TESTDATE'),"DATE");
checkSuccessString($cur->getColumnType(7),"TIME");
checkSuccessString($cur->getColumnType('TESTTIME'),"TIME");
checkSuccessString($cur->getColumnType(8),"CHAR");
checkSuccessString($cur->getColumnType('TESTCHAR'),"CHAR");
checkSuccessString($cur->getColumnType(9),"VARCHAR");
checkSuccessString($cur->getColumnType('TESTVARCHAR'),"VARCHAR");
checkSuccessString($cur->getColumnType(10),"TIMESTAMP");
checkSuccessString($cur->getColumnType('TESTTIMESTAMP'),"TIMESTAMP");
print("\n");

print("COLUMN LENGTH: \n");
checkSuccess($cur->getColumnLength(0),4);
checkSuccess($cur->getColumnLength('TESTINTEGER'),4);
checkSuccess($cur->getColumnLength(1),2);
checkSuccess($cur->getColumnLength('TESTSMALLINT'),2);
checkSuccess($cur->getColumnLength(2),8);
checkSuccess($cur->getColumnLength('TESTDECIMAL'),8);
checkSuccess($cur->getColumnLength(3),8);
checkSuccess($cur->getColumnLength('TESTNUMERIC'),8);
checkSuccess($cur->getColumnLength(4),4);
checkSuccess($cur->getColumnLength('TESTFLOAT'),4);
checkSuccess($cur->getColumnLength(5),8);
checkSuccess($cur->getColumnLength('TESTDOUBLE'),8);
checkSuccess($cur->getColumnLength(6),4);
checkSuccess($cur->getColumnLength('TESTDATE'),4);
checkSuccess($cur->getColumnLength(7),4);
checkSuccess($cur->getColumnLength('TESTTIME'),4);
checkSuccess($cur->getColumnLength(8),50);
checkSuccess($cur->getColumnLength('TESTCHAR'),50);
checkSuccess($cur->getColumnLength(9),50);
checkSuccess($cur->getColumnLength('TESTVARCHAR'),50);
checkSuccess($cur->getColumnLength(10),8);
checkSuccess($cur->getColumnLength('TESTTIMESTAMP'),8);
print("\n");

print("LONGEST COLUMN: \n");
checkSuccess($cur->getLongest(0),1);
checkSuccess($cur->getLongest('TESTINTEGER'),1);
checkSuccess($cur->getLongest(1),1);
checkSuccess($cur->getLongest('TESTSMALLINT'),1);
checkSuccess($cur->getLongest(2),4);
checkSuccess($cur->getLongest('TESTDECIMAL'),4);
checkSuccess($cur->getLongest(3),4);
checkSuccess($cur->getLongest('TESTNUMERIC'),4);
checkSuccess($cur->getLongest(4),6);
checkSuccess($cur->getLongest('TESTFLOAT'),6);
checkSuccess($cur->getLongest(5),6);
checkSuccess($cur->getLongest('TESTDOUBLE'),6);
checkSuccess($cur->getLongest(6),10);
checkSuccess($cur->getLongest('TESTDATE'),10);
checkSuccess($cur->getLongest(7),8);
checkSuccess($cur->getLongest('TESTTIME'),8);
checkSuccess($cur->getLongest(8),50);
checkSuccess($cur->getLongest('TESTCHAR'),50);
checkSuccess($cur->getLongest(9),12);
checkSuccess($cur->getLongest('TESTVARCHAR'),12);
checkSuccess($cur->getLongest(10),0);
checkSuccess($cur->getLongest('TESTTIMESTAMP'),0);
print("\n");

print("ROW COUNT: \n");
checkSuccess($cur->rowCount(),8);
print("\n");

print("TOTAL ROWS: \n");
checkSuccess($cur->totalRows(),0);
print("\n");

print("FIRST ROW INDEX: \n");
checkSuccess($cur->firstRowIndex(),0);
print("\n");

print("END OF RESULT SET: \n");
checkSuccess($cur->endOfResultSet(),1);
print("\n");

print("FIELDS BY INDEX: \n");
checkSuccessString($cur->getField(0,0),"1");
checkSuccessString($cur->getField(0,1),"1");
checkSuccessString($cur->getField(0,2),"1.10");
checkSuccessString($cur->getField(0,3),"1.10");
checkSuccessString($cur->getField(0,4),"1.1000");
checkSuccessString($cur->getField(0,5),"1.1000");
checkSuccessString($cur->getField(0,6),"2001:01:01");
checkSuccessString($cur->getField(0,7),"01:00:00");
checkSuccessString($cur->getField(0,8),"testchar1                                         ");
checkSuccessString($cur->getField(0,9),"testvarchar1");
print("\n");
checkSuccessString($cur->getField(7,0),"8");
checkSuccessString($cur->getField(7,1),"8");
checkSuccessString($cur->getField(7,2),"8.80");
checkSuccessString($cur->getField(7,3),"8.80");
checkSuccessString($cur->getField(7,4),"8.8000");
checkSuccessString($cur->getField(7,5),"8.8000");
checkSuccessString($cur->getField(7,6),"2008:01:01");
checkSuccessString($cur->getField(7,7),"08:00:00");
checkSuccessString($cur->getField(7,8),"testchar8                                         ");
checkSuccessString($cur->getField(7,9),"testvarchar8");
print("\n");

print("FIELD LENGTHS BY INDEX: \n");
checkSuccess($cur->getFieldLength(0,0),1);
checkSuccess($cur->getFieldLength(0,1),1);
checkSuccess($cur->getFieldLength(0,2),4);
checkSuccess($cur->getFieldLength(0,3),4);
checkSuccess($cur->getFieldLength(0,4),6);
checkSuccess($cur->getFieldLength(0,5),6);
checkSuccess($cur->getFieldLength(0,6),10);
checkSuccess($cur->getFieldLength(0,7),8);
checkSuccess($cur->getFieldLength(0,8),50);
checkSuccess($cur->getFieldLength(0,9),12);
print("\n");
checkSuccess($cur->getFieldLength(7,0),1);
checkSuccess($cur->getFieldLength(7,1),1);
checkSuccess($cur->getFieldLength(7,2),4);
checkSuccess($cur->getFieldLength(7,3),4);
checkSuccess($cur->getFieldLength(7,4),6);
checkSuccess($cur->getFieldLength(7,5),6);
checkSuccess($cur->getFieldLength(7,6),10);
checkSuccess($cur->getFieldLength(7,7),8);
checkSuccess($cur->getFieldLength(7,8),50);
checkSuccess($cur->getFieldLength(7,9),12);
print("\n");

print("FIELDS BY NAME: \n");
checkSuccessString($cur->getField(0,"TESTINTEGER"),"1");
checkSuccessString($cur->getField(0,"TESTSMALLINT"),"1");
checkSuccessString($cur->getField(0,"TESTDECIMAL"),"1.10");
checkSuccessString($cur->getField(0,"TESTNUMERIC"),"1.10");
checkSuccessString($cur->getField(0,"TESTFLOAT"),"1.1000");
checkSuccessString($cur->getField(0,"TESTDOUBLE"),"1.1000");
checkSuccessString($cur->getField(0,"TESTDATE"),"2001:01:01");
checkSuccessString($cur->getField(0,"TESTTIME"),"01:00:00");
checkSuccessString($cur->getField(0,"TESTCHAR"),"testchar1                                         ");
checkSuccessString($cur->getField(0,"TESTVARCHAR"),"testvarchar1");
print("\n");
checkSuccessString($cur->getField(7,"TESTINTEGER"),"8");
checkSuccessString($cur->getField(7,"TESTSMALLINT"),"8");
checkSuccessString($cur->getField(7,"TESTDECIMAL"),"8.80");
checkSuccessString($cur->getField(7,"TESTNUMERIC"),"8.80");
checkSuccessString($cur->getField(7,"TESTFLOAT"),"8.8000");
checkSuccessString($cur->getField(7,"TESTDOUBLE"),"8.8000");
checkSuccessString($cur->getField(7,"TESTDATE"),"2008:01:01");
checkSuccessString($cur->getField(7,"TESTTIME"),"08:00:00");
checkSuccessString($cur->getField(7,"TESTCHAR"),"testchar8                                         ");
checkSuccessString($cur->getField(7,"TESTVARCHAR"),"testvarchar8");
print("\n");

print("FIELD LENGTHS BY NAME: \n");
checkSuccess($cur->getFieldLength(0,"TESTINTEGER"),1);
checkSuccess($cur->getFieldLength(0,"TESTSMALLINT"),1);
checkSuccess($cur->getFieldLength(0,"TESTDECIMAL"),4);
checkSuccess($cur->getFieldLength(0,"TESTNUMERIC"),4);
checkSuccess($cur->getFieldLength(0,"TESTFLOAT"),6);
checkSuccess($cur->getFieldLength(0,"TESTDOUBLE"),6);
checkSuccess($cur->getFieldLength(0,"TESTDATE"),10);
checkSuccess($cur->getFieldLength(0,"TESTTIME"),8);
checkSuccess($cur->getFieldLength(0,"TESTCHAR"),50);
checkSuccess($cur->getFieldLength(0,"TESTVARCHAR"),12);
print("\n");
checkSuccess($cur->getFieldLength(7,"TESTINTEGER"),1);
checkSuccess($cur->getFieldLength(7,"TESTSMALLINT"),1);
checkSuccess($cur->getFieldLength(7,"TESTDECIMAL"),4);
checkSuccess($cur->getFieldLength(7,"TESTNUMERIC"),4);
checkSuccess($cur->getFieldLength(7,"TESTFLOAT"),6);
checkSuccess($cur->getFieldLength(7,"TESTDOUBLE"),6);
checkSuccess($cur->getFieldLength(7,"TESTDATE"),10);
checkSuccess($cur->getFieldLength(7,"TESTTIME"),8);
checkSuccess($cur->getFieldLength(7,"TESTCHAR"),50);
checkSuccess($cur->getFieldLength(7,"TESTVARCHAR"),12);
print("\n");

print("FIELDS BY ARRAY: \n");
@fields=$cur->getRow(0);
checkSuccess($fields[0],1);
checkSuccess($fields[1],1);
checkSuccess($fields[2],1.1);
checkSuccess($fields[3],1.1);
checkSuccess($fields[4],1.1);
checkSuccess($fields[5],1.1);
checkSuccessString($fields[6],"2001:01:01");
checkSuccessString($fields[7],"01:00:00");
checkSuccessString($fields[8],"testchar1                                         ");
checkSuccessString($fields[9],"testvarchar1");
print("\n");

print("FIELD LENGTHS BY ARRAY: \n");
@fieldlens=$cur->getRowLengths(0);
checkSuccess($fieldlens[0],1);
checkSuccess($fieldlens[1],1);
checkSuccess($fieldlens[2],4);
checkSuccess($fieldlens[3],4);
checkSuccess($fieldlens[4],6);
checkSuccess($fieldlens[5],6);
checkSuccess($fieldlens[6],10);
checkSuccess($fieldlens[7],8);
checkSuccess($fieldlens[8],50);
checkSuccess($fieldlens[9],12);
print("\n");

print("FIELDS BY HASH: \n");
%fields=$cur->getRowHash(0);
checkSuccess($fields{"TESTINTEGER"},1);
checkSuccess($fields{"TESTSMALLINT"},1);
checkSuccess($fields{"TESTDECIMAL"},1.1);
checkSuccess($fields{"TESTNUMERIC"},1.1);
checkSuccess($fields{"TESTFLOAT"},1.1);
checkSuccess($fields{"TESTDOUBLE"},1.1);
checkSuccessString($fields{"TESTDATE"},"2001:01:01");
checkSuccessString($fields{"TESTTIME"},"01:00:00");
checkSuccessString($fields{"TESTCHAR"},"testchar1                                         ");
checkSuccessString($fields{"TESTVARCHAR"},"testvarchar1");
print("\n");
%fields=$cur->getRowHash(7);
checkSuccess($fields{"TESTINTEGER"},8);
checkSuccess($fields{"TESTSMALLINT"},8);
checkSuccess($fields{"TESTDECIMAL"},8.8);
checkSuccess($fields{"TESTNUMERIC"},8.8);
checkSuccess($fields{"TESTFLOAT"},8.8);
checkSuccess($fields{"TESTDOUBLE"},8.8);
checkSuccessString($fields{"TESTDATE"},"2008:01:01");
checkSuccessString($fields{"TESTTIME"},"08:00:00");
checkSuccessString($fields{"TESTCHAR"},"testchar8                                         ");
checkSuccessString($fields{"TESTVARCHAR"},"testvarchar8");
print("\n");

print("FIELD LENGTHS BY HASH: \n");
%fieldlengths=$cur->getRowLengthsHash(0);
checkSuccess($fieldlengths{"TESTINTEGER"},1);
checkSuccess($fieldlengths{"TESTSMALLINT"},1);
checkSuccess($fieldlengths{"TESTDECIMAL"},4);
checkSuccess($fieldlengths{"TESTNUMERIC"},4);
checkSuccess($fieldlengths{"TESTFLOAT"},6);
checkSuccess($fieldlengths{"TESTDOUBLE"},6);
checkSuccess($fieldlengths{"TESTDATE"},10);
checkSuccess($fieldlengths{"TESTTIME"},8);
checkSuccess($fieldlengths{"TESTCHAR"},50);
checkSuccess($fieldlengths{"TESTVARCHAR"},12);
print("\n");
%fieldlengths=$cur->getRowLengthsHash(7);
checkSuccess($fieldlengths{"TESTINTEGER"},1);
checkSuccess($fieldlengths{"TESTSMALLINT"},1);
checkSuccess($fieldlengths{"TESTDECIMAL"},4);
checkSuccess($fieldlengths{"TESTNUMERIC"},4);
checkSuccess($fieldlengths{"TESTFLOAT"},6);
checkSuccess($fieldlengths{"TESTDOUBLE"},6);
checkSuccess($fieldlengths{"TESTDATE"},10);
checkSuccess($fieldlengths{"TESTTIME"},8);
checkSuccess($fieldlengths{"TESTCHAR"},50);
checkSuccess($fieldlengths{"TESTVARCHAR"},12);
print("\n");

print("INDIVIDUAL SUBSTITUTIONS: \n");
$cur->prepareQuery("select \$(var1),'\$(var2)','\$(var3)' from rdb\$database");
$cur->substitution("var1",1);
$cur->substitution("var2","hello");
$cur->substitution("var3",10.5556,6,4);
checkSuccess($cur->executeQuery(),1);
print("\n");

print("FIELDS: \n");
checkSuccessString($cur->getField(0,0),"1");
checkSuccessString($cur->getField(0,1),"hello");
checkSuccessString($cur->getField(0,2),"10.5556");
print("\n");

print("ARRAY SUBSTITUTIONS: \n");
$cur->prepareQuery("select \$(var1),'\$(var2)','\$(var3)' from rdb\$database");
@vars=("var1","var2","var3");
@vals=(1,"hello",10.5556);
@precs=(0,0,6);
@scales=(0,0,4);
$cur->substitutions(\@vars,\@vals,\@precs,\@scales);
checkSuccess($cur->executeQuery(),1);
print("\n");

print("FIELDS: \n");
checkSuccessString($cur->getField(0,0),"1");
checkSuccessString($cur->getField(0,1),"hello");
checkSuccessString($cur->getField(0,2),"10.5556");
print("\n");

print("NULLS as Undef: \n");
$cur->getNullsAsUndefined();
checkSuccess($cur->sendQuery("select 1,NULL,NULL from rdb\$database"),1);
checkSuccessString($cur->getField(0,0),"1");
checkUndef($cur->getField(0,1));
checkUndef($cur->getField(0,2));
$cur->getNullsAsEmptyStrings();
checkSuccess($cur->sendQuery("select 1,NULL,NULL from rdb\$database"),1);
checkSuccessString($cur->getField(0,0),"1");
checkSuccessString($cur->getField(0,1),"");
checkSuccessString($cur->getField(0,2),"");
$cur->getNullsAsUndefined();
print("\n");

print("RESULT SET BUFFER SIZE: \n");
checkSuccess($cur->getResultSetBufferSize(),0);
$cur->setResultSetBufferSize(2);
checkSuccess($cur->sendQuery("select * from testtable"),1);
checkSuccess($cur->getResultSetBufferSize(),2);
print("\n");
checkSuccess($cur->firstRowIndex(),0);
checkSuccess($cur->endOfResultSet(),0);
checkSuccess($cur->rowCount(),2);
checkSuccessString($cur->getField(0,0),"1");
checkSuccessString($cur->getField(1,0),"2");
checkSuccessString($cur->getField(2,0),"3");
print("\n");
checkSuccess($cur->firstRowIndex(),2);
checkSuccess($cur->endOfResultSet(),0);
checkSuccess($cur->rowCount(),4);
checkSuccessString($cur->getField(6,0),"7");
checkSuccessString($cur->getField(7,0),"8");
print("\n");
checkSuccess($cur->firstRowIndex(),6);
checkSuccess($cur->endOfResultSet(),0);
checkSuccess($cur->rowCount(),8);
checkUndef($cur->getField(8,0));
print("\n");
checkSuccess($cur->firstRowIndex(),8);
checkSuccess($cur->endOfResultSet(),1);
checkSuccess($cur->rowCount(),8);
print("\n");

print("DONT GET COLUMN INFO: \n");
$cur->dontGetColumnInfo();
checkSuccess($cur->sendQuery("select * from testtable order by testinteger"),1);
checkUndef($cur->getColumnName(0));
checkSuccess($cur->getColumnLength(0),0);
checkUndef($cur->getColumnType(0));
$cur->getColumnInfo();
checkSuccess($cur->sendQuery("select * from testtable order by testinteger"),1);
checkSuccessString($cur->getColumnName(0),"TESTINTEGER");
checkSuccess($cur->getColumnLength(0),4);
checkSuccessString($cur->getColumnType(0),"INTEGER");
print("\n");

print("SUSPENDED SESSION: \n");
checkSuccess($cur->sendQuery("select * from testtable order by testinteger"),1);
$cur->suspendResultSet();
checkSuccess($con->suspendSession(),1);
$port=$con->getConnectionPort();
$socket=$con->getConnectionSocket();
checkSuccess($con->resumeSession($port,$socket),1);
print("\n");
checkSuccessString($cur->getField(0,0),"1");
checkSuccessString($cur->getField(1,0),"2");
checkSuccessString($cur->getField(2,0),"3");
checkSuccessString($cur->getField(3,0),"4");
checkSuccessString($cur->getField(4,0),"5");
checkSuccessString($cur->getField(5,0),"6");
checkSuccessString($cur->getField(6,0),"7");
checkSuccessString($cur->getField(7,0),"8");
print("\n");
checkSuccess($cur->sendQuery("select * from testtable order by testinteger"),1);
$cur->suspendResultSet();
checkSuccess($con->suspendSession(),1);
$port=$con->getConnectionPort();
$socket=$con->getConnectionSocket();
checkSuccess($con->resumeSession($port,$socket),1);
print("\n");
checkSuccessString($cur->getField(0,0),"1");
checkSuccessString($cur->getField(1,0),"2");
checkSuccessString($cur->getField(2,0),"3");
checkSuccessString($cur->getField(3,0),"4");
checkSuccessString($cur->getField(4,0),"5");
checkSuccessString($cur->getField(5,0),"6");
checkSuccessString($cur->getField(6,0),"7");
checkSuccessString($cur->getField(7,0),"8");
print("\n");
checkSuccess($cur->sendQuery("select * from testtable order by testinteger"),1);
$cur->suspendResultSet();
checkSuccess($con->suspendSession(),1);
$port=$con->getConnectionPort();
$socket=$con->getConnectionSocket();
checkSuccess($con->resumeSession($port,$socket),1);
print("\n");
checkSuccessString($cur->getField(0,0),"1");
checkSuccessString($cur->getField(1,0),"2");
checkSuccessString($cur->getField(2,0),"3");
checkSuccessString($cur->getField(3,0),"4");
checkSuccessString($cur->getField(4,0),"5");
checkSuccessString($cur->getField(5,0),"6");
checkSuccessString($cur->getField(6,0),"7");
checkSuccessString($cur->getField(7,0),"8");
print("\n");

print("SUSPENDED RESULT SET: \n");
$cur->setResultSetBufferSize(2);
checkSuccess($cur->sendQuery("select * from testtable order by testinteger"),1);
checkSuccessString($cur->getField(2,0),"3");
$id=$cur->getResultSetId();
$cur->suspendResultSet();
checkSuccess($con->suspendSession(),1);
$port=$con->getConnectionPort();
$socket=$con->getConnectionSocket();
checkSuccess($con->resumeSession($port,$socket),1);
checkSuccess($cur->resumeResultSet($id),1);
print("\n");
checkSuccess($cur->firstRowIndex(),4);
checkSuccess($cur->endOfResultSet(),0);
checkSuccess($cur->rowCount(),6);
checkSuccessString($cur->getField(7,0),"8");
print("\n");
checkSuccess($cur->firstRowIndex(),6);
checkSuccess($cur->endOfResultSet(),0);
checkSuccess($cur->rowCount(),8);
checkUndef($cur->getField(8,0));
print("\n");
checkSuccess($cur->firstRowIndex(),8);
checkSuccess($cur->endOfResultSet(),1);
checkSuccess($cur->rowCount(),8);
$cur->setResultSetBufferSize(0);
print("\n");

print("CACHED RESULT SET: \n");
$cur->cacheToFile("cachefile1");
$cur->setCacheTtl(200);
checkSuccess($cur->sendQuery("select * from testtable order by testinteger"),1);
$filename=$cur->getCacheFileName();
checkSuccessString($filename,"cachefile1");
$cur->cacheOff();
checkSuccess($cur->openCachedResultSet($filename),1);
checkSuccessString($cur->getField(7,0),"8");
print("\n");

print("COLUMN COUNT FOR CACHED RESULT SET: \n");
checkSuccess($cur->colCount(),11);
print("\n");

print("COLUMN NAMES FOR CACHED RESULT SET: \n");
checkSuccessString($cur->getColumnName(0),"TESTINTEGER");
checkSuccessString($cur->getColumnName(1),"TESTSMALLINT");
checkSuccessString($cur->getColumnName(2),"TESTDECIMAL");
checkSuccessString($cur->getColumnName(3),"TESTNUMERIC");
checkSuccessString($cur->getColumnName(4),"TESTFLOAT");
checkSuccessString($cur->getColumnName(5),"TESTDOUBLE");
checkSuccessString($cur->getColumnName(6),"TESTDATE");
checkSuccessString($cur->getColumnName(7),"TESTTIME");
checkSuccessString($cur->getColumnName(8),"TESTCHAR");
checkSuccessString($cur->getColumnName(9),"TESTVARCHAR");
checkSuccessString($cur->getColumnName(10),"TESTTIMESTAMP");
@cols=$cur->getColumnNames();
checkSuccessString($cols[0],"TESTINTEGER");
checkSuccessString($cols[1],"TESTSMALLINT");
checkSuccessString($cols[2],"TESTDECIMAL");
checkSuccessString($cols[3],"TESTNUMERIC");
checkSuccessString($cols[4],"TESTFLOAT");
checkSuccessString($cols[5],"TESTDOUBLE");
checkSuccessString($cols[6],"TESTDATE");
checkSuccessString($cols[7],"TESTTIME");
checkSuccessString($cols[8],"TESTCHAR");
checkSuccessString($cols[9],"TESTVARCHAR");
checkSuccessString($cols[10],"TESTTIMESTAMP");
print("\n");

print("CACHED RESULT SET WITH RESULT SET BUFFER SIZE: \n");
$cur->setResultSetBufferSize(2);
$cur->cacheToFile("cachefile1");
$cur->setCacheTtl(200);
checkSuccess($cur->sendQuery("select * from testtable order by testinteger"),1);
$filename=$cur->getCacheFileName();
checkSuccessString($filename,"cachefile1");
$cur->cacheOff();
checkSuccess($cur->openCachedResultSet($filename),1);
checkSuccessString($cur->getField(7,0),"8");
checkUndef($cur->getField(8,0));
$cur->setResultSetBufferSize(0);
print("\n");

print("FROM ONE CACHE FILE TO ANOTHER: \n");
$cur->cacheToFile("cachefile2");
checkSuccess($cur->openCachedResultSet("cachefile1"),1);
$cur->cacheOff();
checkSuccess($cur->openCachedResultSet("cachefile2"),1);
checkSuccessString($cur->getField(7,0),"8");
checkUndef($cur->getField(8,0));
print("\n");

print("FROM ONE CACHE FILE TO ANOTHER WITH RESULT SET BUFFER SIZE: \n");
$cur->setResultSetBufferSize(2);
$cur->cacheToFile("cachefile2");
checkSuccess($cur->openCachedResultSet("cachefile1"),1);
$cur->cacheOff();
checkSuccess($cur->openCachedResultSet("cachefile2"),1);
checkSuccessString($cur->getField(7,0),"8");
checkUndef($cur->getField(8,0));
$cur->setResultSetBufferSize(0);
print("\n");

print("CACHED RESULT SET WITH SUSPEND AND RESULT SET BUFFER SIZE: \n");
$cur->setResultSetBufferSize(2);
$cur->cacheToFile("cachefile1");
$cur->setCacheTtl(200);
checkSuccess($cur->sendQuery("select * from testtable order by testinteger"),1);
checkSuccessString($cur->getField(2,0),"3");
$filename=$cur->getCacheFileName();
checkSuccessString($filename,"cachefile1");
$id=$cur->getResultSetId();
$cur->suspendResultSet();
checkSuccess($con->suspendSession(),1);
$port=$con->getConnectionPort();
$socket=$con->getConnectionSocket();
print("\n");
checkSuccess($con->resumeSession($port,$socket),1);
checkSuccess($cur->resumeCachedResultSet($id,$filename),1);
print("\n");
checkSuccess($cur->firstRowIndex(),4);
checkSuccess($cur->endOfResultSet(),0);
checkSuccess($cur->rowCount(),6);
checkSuccessString($cur->getField(7,0),"8");
print("\n");
checkSuccess($cur->firstRowIndex(),6);
checkSuccess($cur->endOfResultSet(),0);
checkSuccess($cur->rowCount(),8);
checkUndef($cur->getField(8,0));
print("\n");
checkSuccess($cur->firstRowIndex(),8);
checkSuccess($cur->endOfResultSet(),1);
checkSuccess($cur->rowCount(),8);
$cur->cacheOff();
print("\n");
checkSuccess($cur->openCachedResultSet($filename),1);
checkSuccessString($cur->getField(7,0),"8");
checkUndef($cur->getField(8,0));
$cur->setResultSetBufferSize(0);
print("\n");

#print("COMMIT AND ROLLBACK: \n");
$secondcon=SQLRelay::Connection->new($ARGV[0],
			$ARGV[1], 
		$ARGV[2],$ARGV[3],$ARGV[4],0,1);
$secondcur=SQLRelay::Cursor->new($secondcon);
checkSuccess($secondcur->sendQuery("select count(*) from testtable"),1);
checkSuccessString($secondcur->getField(0,0),"0");
checkSuccess($con->commit(),1);
checkSuccess($secondcur->sendQuery("select count(*) from testtable"),1);
checkSuccessString($secondcur->getField(0,0),"8");
checkSuccess($con->autoCommitOn(),1);
checkSuccess($cur->sendQuery("insert into testtable values (10,10,10.1,10.1,10.1,10.1,'01-JAN-2010','10:00:00','testchar10','testvarchar10',NULL)"),1);
checkSuccess($secondcur->sendQuery("select count(*) from testtable"),1);
checkSuccessString($secondcur->getField(0,0),"9");
checkSuccess($con->autoCommitOff(),1);
print("\n");

print("FINISHED SUSPENDED SESSION: \n");
checkSuccess($cur->sendQuery("select * from testtable order by testinteger"),1);
checkSuccessString($cur->getField(4,0),"5");
checkSuccessString($cur->getField(5,0),"6");
checkSuccessString($cur->getField(6,0),"7");
checkSuccessString($cur->getField(7,0),"8");
$id=$cur->getResultSetId();
$cur->suspendResultSet();
checkSuccess($con->suspendSession(),1);
$port=$con->getConnectionPort();
$socket=$con->getConnectionSocket();
checkSuccess($con->resumeSession($port,$socket),1);
checkSuccess($cur->resumeResultSet($id),1);
checkUndef($cur->getField(4,0));
checkUndef($cur->getField(5,0));
checkUndef($cur->getField(6,0));
checkUndef($cur->getField(7,0));
print("\n");

# drop existing table
$con->commit();
$cur->sendQuery("delete from testtable");
$con->commit();
print("\n");

# invalid queries...
print("INVALID QUERIES: \n");
checkSuccess($cur->sendQuery("select * from testtable1 order by testinteger"),0);
checkSuccess($cur->sendQuery("select * from testtable1 order by testinteger"),0);
checkSuccess($cur->sendQuery("select * from testtable1 order by testinteger"),0);
checkSuccess($cur->sendQuery("select * from testtable1 order by testinteger"),0);
print("\n");
checkSuccess($cur->sendQuery("insert into testtable1 values (1,2,3,4)"),0);
checkSuccess($cur->sendQuery("insert into testtable1 values (1,2,3,4)"),0);
checkSuccess($cur->sendQuery("insert into testtable1 values (1,2,3,4)"),0);
checkSuccess($cur->sendQuery("insert into testtable1 values (1,2,3,4)"),0);
print("\n");
checkSuccess($cur->sendQuery("create table testtable"),0);
checkSuccess($cur->sendQuery("create table testtable"),0);
checkSuccess($cur->sendQuery("create table testtable"),0);
checkSuccess($cur->sendQuery("create table testtable"),0);
print("\n");