view release on metacpan or  search on metacpan

t/40nulls.t  view on Meta::CPAN

			   "\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 );

}