#!/usr/local/bin/perl
#
#   $Id: 40nulls.t,v 1.1.1.1 2002/08/20 06:51:45 ilya Exp $
#
#   This is a test for correctly handling NULL values.
#

#
#   Make -w happy
#
$test_dsn      = '';
$test_user     = '';
$test_password = '';

#
#   Include lib.pl
#
use DBI;
use vars qw($COL_NULLABLE);

$mdriver = "";
foreach $file ( "lib.pl", "t/lib.pl" )
{
	do $file;
	if ( $@ )
	{
		print STDERR "Error while executing lib.pl: $@\n";
		exit 10;
	}
	if ( $mdriver ne '' )
	{
		last;
	}
}

sub ServerError()
{
	print STDERR (
			   "Cannot connect: ",
			   $DBI::errstr,
			   "\n",
			   "\tEither your server is not up and running or you have no\n",
			   "\tpermissions for acessing the DSN $test_dsn.\n",
			   "\tThis test requires a running server and write permissions.\n",
			   "\tPlease make sure your server is running and you have\n",
			   "\tpermissions, then retry.\n"
	);
	exit 10;
}

#
#   Main loop; leave this untouched, put tests after creating
#   the new table.
#
while ( Testing() )
{

	#
	#   Connect to the database
	Test(
		  $state
			or $dbh = DBI->connect( $test_dsn, $test_user, $test_password )
	  )
	  or ServerError();

	#
	#   Find a possible new table name
	#
	Test( $state or $table = FindNewTable( $dbh ) )
	  or DbiError( $dbh->err, $dbh->errstr );

	#
	#   Create a new table; EDIT THIS!
	#
	Test(
		  $state
			or (
				 $def = TableDefinition(
										 $table,
										 [ "id", "INTEGER", 4, $COL_NULLABLE ],
										 [ "name", "CHAR", 64, 0 ]
				 ),
				 $dbh->do( $def )
			)
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	#
	#   Test whether or not a field containing a NULL is returned correctly
	#   as undef, or something much more bizarre
	#
	Test(
		  $state
			or $dbh->do(
					 "INSERT INTO $table VALUES" . " ( NULL, 'NULL-valued id' )"
			)
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test(
		  $state
			or $cursor =
			$dbh->prepare( "SELECT * FROM $table" . " WHERE " . IsNull( "id" ) )
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or $cursor->execute )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test(
		  $state
			or ( $rv = $cursor->fetchrow_arrayref )
			or $dbdriver eq 'CSV'
			or $dbdriver eq 'ConfFile'
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test(
		  $state
			or ( !defined( $$rv[ 0 ] ) and defined( $$rv[ 1 ] ) )
			or $dbdriver eq 'CSV'
			or $dbdriver eq 'ConfFile'
	  )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or $cursor->finish )
	  or DbiError( $dbh->err, $dbh->errstr );

	Test( $state or undef $cursor || 1 );

	#
	#   Finally drop the test table.
	#
	Test( $state or $dbh->do( "DROP TABLE $table" ) )
	  or DbiError( $dbh->err, $dbh->errstr );

}
