TLA  Line data    Source code

       1                 : #include "sqltypes.h"
       2                 : #include <stdlib.h>
       3                 : 
       4                 : $include ../regression;
       5                 : $define NUMBER 12;
       6                 : 
       7                 : static void
       8 CBC          20 : test_null(int type, char *ptr)
       9                 : {
      10              20 :     printf("null: %d\n", risnull(type, ptr));
      11              20 : }
      12                 : 
      13               1 : int main(void)
      14                 : {
      15               1 :     $char c[] = "abc";
      16               1 :     $short s = 17;
      17               1 :     $int i = -74874;
      18               1 :     $bool b = 1;
      19 GNC           1 :     $float f = (float) 3.71;
      20 CBC           1 :     $long l = 487444;
      21               1 :     $double dbl = 404.404;
      22                 :     $decimal dec;
      23                 :     $date dat;
      24                 :     $timestamp tmp;
      25                 : 
      26               1 :     ECPGdebug(1, stderr);
      27                 :     $whenever sqlerror do sqlprint();
      28                 : 
      29               1 :     $connect to REGRESSDB1;
      30               1 : 
      31               1 :     $create table test(id int, c char(10), s smallint, i int, b bool,
      32                 :                        f float, l bigint, dbl double precision,
      33                 :                        dec decimal, dat date, tmp timestamptz);
      34               1 :     $commit;
      35               1 : 
      36               1 :     $insert into test (id, c, s, i, b, f, l, dbl) values (
      37                 :         1, :c, :s, :i, :b, :f, :l, :dbl
      38                 :     );
      39               1 :     $commit;
      40               1 : 
      41               1 :     rsetnull(CCHARTYPE, (char *) c);
      42               1 :     rsetnull(CSHORTTYPE, (char *) &s);
      43               1 :     rsetnull(CINTTYPE, (char *) &i);
      44               1 :     rsetnull(CBOOLTYPE, (char *) &b);
      45               1 :     rsetnull(CFLOATTYPE, (char *) &f);
      46               1 :     rsetnull(CLONGTYPE, (char *) &l);
      47               1 :     rsetnull(CDOUBLETYPE, (char *) &dbl);
      48               1 :     rsetnull(CDECIMALTYPE, (char *) &dec);
      49               1 :     rsetnull(CDATETYPE, (char *) &dat);
      50               1 :     rsetnull(CDTIMETYPE, (char *) &tmp);
      51                 : 
      52               1 :     $insert into test (id, c, s, i, b, f, l, dbl, dec, dat, tmp) values (
      53                 :         2, :c, :s, :i, :b, :f, :l, :dbl, :dec, :dat, :tmp
      54                 :     );
      55               1 :     $commit;
      56               1 : 
      57               1 :     printf("first select\n");
      58                 : 
      59               1 :     $select c, s, i, b, f, l, dbl, dec, dat, tmp
      60                 :         into :c, :s, :i, :b, :f, :l, :dbl, :dec, :dat, :tmp
      61                 :         from test where id = 1;
      62               1 : 
      63               1 :     test_null(CCHARTYPE, (char *) c);
      64               1 :     test_null(CSHORTTYPE, (char *) &s);
      65               1 :     test_null(CINTTYPE, (char *) &i);
      66               1 :     test_null(CBOOLTYPE, (char *) &b);
      67               1 :     test_null(CFLOATTYPE, (char *) &f);
      68               1 :     test_null(CLONGTYPE, (char *) &l);
      69               1 :     test_null(CDOUBLETYPE, (char *) &dbl);
      70               1 :     test_null(CDECIMALTYPE, (char *) &dec);
      71               1 :     test_null(CDATETYPE, (char *) &dat);
      72               1 :     test_null(CDTIMETYPE, (char *) &tmp);
      73                 : 
      74               1 :     printf("second select\n");
      75                 : 
      76               1 :     $select c, s, i, b, f, l, dbl, dec, dat, tmp
      77                 :         into :c, :s, :i, :b, :f, :l, :dbl, :dec, :dat, :tmp
      78                 :         from test where id = 2;
      79               1 : 
      80               1 :     test_null(CCHARTYPE, (char *) c);
      81               1 :     test_null(CSHORTTYPE, (char *) &s);
      82               1 :     test_null(CINTTYPE, (char *) &i);
      83               1 :     test_null(CBOOLTYPE, (char *) &b);
      84               1 :     test_null(CFLOATTYPE, (char *) &f);
      85               1 :     test_null(CLONGTYPE, (char *) &l);
      86               1 :     test_null(CDOUBLETYPE, (char *) &dbl);
      87               1 :     test_null(CDECIMALTYPE, (char *) &dec);
      88               1 :     test_null(CDATETYPE, (char *) &dat);
      89               1 :     test_null(CDTIMETYPE, (char *) &tmp);
      90                 : 
      91               1 :     $drop table test;
      92               1 :     $commit;
      93               1 : 
      94               1 :     $close database;
      95               1 : 
      96               1 :     return 0;
      97                 : }