src/interfaces/ecpg/test/compat_informix/rnull.pgc - master - githubmirror/postgres

src/interfaces/ecpg/test/compat_informix/rnull.pgc
97 строк2 KB
Andres Freund
Fix MSVC warning in compat_informix/rnull.pgc
31 авг 2022, 19:31
31 авг 2022, 19:31483ac64
#include "sqltypes.h"
#include <stdlib.h>

$include ../regression;
$define NUMBER 12;

static void
test_null(int type, char *ptr)
{
	printf("null: %d\n", risnull(type, ptr));
}

int main(void)
{
	$char c[] = "abc";
	$short s = 17;
	$int i = -74874;
	$bool b = 1;
	$float f = (float) 3.71;
	$long l = 487444;
	$double dbl = 404.404;
	$decimal dec;
	$date dat;
	$timestamp tmp;

	ECPGdebug(1, stderr);
	$whenever sqlerror do sqlprint();

	$connect to REGRESSDB1;

	$create table test(id int, c char(10), s smallint, i int, b bool,
					   f float, l bigint, dbl double precision,
					   dec decimal, dat date, tmp timestamptz);
	$commit;

	$insert into test (id, c, s, i, b, f, l, dbl) values (
		1, :c, :s, :i, :b, :f, :l, :dbl
	);
	$commit;

	rsetnull(CCHARTYPE, (char *) c);
	rsetnull(CSHORTTYPE, (char *) &s);
	rsetnull(CINTTYPE, (char *) &i);
	rsetnull(CBOOLTYPE, (char *) &b);
	rsetnull(CFLOATTYPE, (char *) &f);
	rsetnull(CLONGTYPE, (char *) &l);
	rsetnull(CDOUBLETYPE, (char *) &dbl);
	rsetnull(CDECIMALTYPE, (char *) &dec);
	rsetnull(CDATETYPE, (char *) &dat);
	rsetnull(CDTIMETYPE, (char *) &tmp);

	$insert into test (id, c, s, i, b, f, l, dbl, dec, dat, tmp) values (
		2, :c, :s, :i, :b, :f, :l, :dbl, :dec, :dat, :tmp
	);
	$commit;

	printf("first select\n");

	$select c, s, i, b, f, l, dbl, dec, dat, tmp
		into :c, :s, :i, :b, :f, :l, :dbl, :dec, :dat, :tmp
		from test where id = 1;

	test_null(CCHARTYPE, (char *) c);
	test_null(CSHORTTYPE, (char *) &s);
	test_null(CINTTYPE, (char *) &i);
	test_null(CBOOLTYPE, (char *) &b);
	test_null(CFLOATTYPE, (char *) &f);
	test_null(CLONGTYPE, (char *) &l);
	test_null(CDOUBLETYPE, (char *) &dbl);
	test_null(CDECIMALTYPE, (char *) &dec);
	test_null(CDATETYPE, (char *) &dat);
	test_null(CDTIMETYPE, (char *) &tmp);

	printf("second select\n");

	$select c, s, i, b, f, l, dbl, dec, dat, tmp
		into :c, :s, :i, :b, :f, :l, :dbl, :dec, :dat, :tmp
		from test where id = 2;

	test_null(CCHARTYPE, (char *) c);
	test_null(CSHORTTYPE, (char *) &s);
	test_null(CINTTYPE, (char *) &i);
	test_null(CBOOLTYPE, (char *) &b);
	test_null(CFLOATTYPE, (char *) &f);
	test_null(CLONGTYPE, (char *) &l);
	test_null(CDOUBLETYPE, (char *) &dbl);
	test_null(CDECIMALTYPE, (char *) &dec);
	test_null(CDATETYPE, (char *) &dat);
	test_null(CDTIMETYPE, (char *) &tmp);

	$drop table test;
	$commit;

	$close database;

	return 0;
}