Branch data     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                 :          40 : test_null(int type, char *ptr)
       9                 :             : {
      10                 :          40 :     printf("null: %d\n", risnull(type, ptr));
      11                 :          40 : }
      12                 :             : 
      13                 :           2 : int main(void)
      14                 :             : {
      15                 :           2 :     $char c[] = "abc";
      16                 :           2 :     $short s = 17;
      17                 :           2 :     $int i = -74874;
      18                 :           2 :     $bool b = 1;
      19                 :           2 :     $float f = (float) 3.71;
      20                 :           2 :     $long l = 487444;
      21                 :           2 :     $double dbl = 404.404;
      22                 :             :     $decimal dec;
      23                 :             :     $date dat;
      24                 :             :     $timestamp tmp;
      25                 :             : 
      26                 :           2 :     ECPGdebug(1, stderr);
      27                 :             :     $whenever sqlerror do sqlprint();
      28                 :             : 
      29                 :           2 :     $connect to REGRESSDB1;
      30         [ -  + ]:           2 : 
      31                 :           2 :     $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         [ -  + ]:           2 :     $commit;
      35         [ -  + ]:           2 : 
      36                 :           2 :     $insert into test (id, c, s, i, b, f, l, dbl) values (
      37                 :             :         1, :c, :s, :i, :b, :f, :l, :dbl
      38                 :             :     );
      39         [ -  + ]:           2 :     $commit;
      40         [ -  + ]:           2 : 
      41                 :           2 :     rsetnull(CCHARTYPE, (char *) c);
      42                 :           2 :     rsetnull(CSHORTTYPE, (char *) &s);
      43                 :           2 :     rsetnull(CINTTYPE, (char *) &i);
      44                 :           2 :     rsetnull(CBOOLTYPE, (char *) &b);
      45                 :           2 :     rsetnull(CFLOATTYPE, (char *) &f);
      46                 :           2 :     rsetnull(CLONGTYPE, (char *) &l);
      47                 :           2 :     rsetnull(CDOUBLETYPE, (char *) &dbl);
      48                 :           2 :     rsetnull(CDECIMALTYPE, (char *) &dec);
      49                 :           2 :     rsetnull(CDATETYPE, (char *) &dat);
      50                 :           2 :     rsetnull(CDTIMETYPE, (char *) &tmp);
      51                 :             : 
      52                 :           2 :     $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         [ -  + ]:           2 :     $commit;
      56         [ -  + ]:           2 : 
      57                 :           2 :     printf("first select\n");
      58                 :             : 
      59                 :           2 :     $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         [ -  + ]:           2 : 
      63                 :           2 :     test_null(CCHARTYPE, (char *) c);
      64                 :           2 :     test_null(CSHORTTYPE, (char *) &s);
      65                 :           2 :     test_null(CINTTYPE, (char *) &i);
      66                 :           2 :     test_null(CBOOLTYPE, (char *) &b);
      67                 :           2 :     test_null(CFLOATTYPE, (char *) &f);
      68                 :           2 :     test_null(CLONGTYPE, (char *) &l);
      69                 :           2 :     test_null(CDOUBLETYPE, (char *) &dbl);
      70                 :           2 :     test_null(CDECIMALTYPE, (char *) &dec);
      71                 :           2 :     test_null(CDATETYPE, (char *) &dat);
      72                 :           2 :     test_null(CDTIMETYPE, (char *) &tmp);
      73                 :             : 
      74                 :           2 :     printf("second select\n");
      75                 :             : 
      76                 :           2 :     $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         [ -  + ]:           2 : 
      80                 :           2 :     test_null(CCHARTYPE, (char *) c);
      81                 :           2 :     test_null(CSHORTTYPE, (char *) &s);
      82                 :           2 :     test_null(CINTTYPE, (char *) &i);
      83                 :           2 :     test_null(CBOOLTYPE, (char *) &b);
      84                 :           2 :     test_null(CFLOATTYPE, (char *) &f);
      85                 :           2 :     test_null(CLONGTYPE, (char *) &l);
      86                 :           2 :     test_null(CDOUBLETYPE, (char *) &dbl);
      87                 :           2 :     test_null(CDECIMALTYPE, (char *) &dec);
      88                 :           2 :     test_null(CDATETYPE, (char *) &dat);
      89                 :           2 :     test_null(CDTIMETYPE, (char *) &tmp);
      90                 :             : 
      91                 :           2 :     $drop table test;
      92         [ -  + ]:           2 :     $commit;
      93         [ -  + ]:           2 : 
      94                 :           2 :     $close database;
      95         [ -  + ]:           2 : 
      96                 :           2 :     return 0;
      97                 :             : }