Age         Owner                  TLA  Line data    Source code

                                  1                 : /*
                                  2                 :  * this file just tests the several possibilities you have for a disconnect
                                  3                 :  */
                                  4                 : 
                                  5                 : #include <stdlib.h>
                                  6                 : #include <string.h>
                                  7                 : #include <stdlib.h>
                                  8                 : #include <stdio.h>
                                  9                 : 
                                 10                 : exec sql include ../regression;
                                 11                 : 
                                 12                 : int
 6976 meskes@postgresql.or       13 CBC           1 : main(void)
                                 14                 : {
                                 15                 : exec sql begin declare section;
                                 16                 :     char id[200];
                                 17                 :     char res[200];
                                 18                 : exec sql end declare section;
                                 19                 : 
                                 20               1 :     ECPGdebug(1, stderr);
                                 21                 : 
                                 22               1 :     strcpy(id, "first");
 3339 tgl@sss.pgh.pa.us          23               1 :     exec sql connect to ecpg2_regression as :id;
 6974 meskes@postgresql.or       24               1 :     exec sql connect to REGRESSDB1 as second;
                                 25                 : 
                                 26                 :     /* this selects from "second" which was opened last */
 6976                            27               1 :     exec sql select current_database() into :res;
                                 28                 : 
                                 29                 :     /* will close "second" */
                                 30               1 :     exec sql disconnect CURRENT;
                                 31               1 :     exec sql select current_database() into :res;
                                 32                 : 
 6974                            33               1 :     exec sql connect to REGRESSDB1 as second;
                                 34                 :     /* will close "second" */
 6976                            35               1 :     exec sql disconnect DEFAULT;
                                 36                 : 
 3339 tgl@sss.pgh.pa.us          37               1 :     exec sql connect to "ecpg2_regression" as second;
 6976 meskes@postgresql.or       38               1 :     exec sql disconnect ALL;
                                 39                 : 
                                 40               1 :     exec sql disconnect CURRENT;
                                 41               1 :     exec sql disconnect DEFAULT;
                                 42               1 :     exec sql disconnect ALL;
                                 43                 : 
                                 44                 :     /*
                                 45                 :      * exec sql disconnect;
                                 46                 :      * exec sql disconnect name;
                                 47                 :      *
                                 48                 :      *     are used in other tests
                                 49                 :      */
                                 50                 : 
 2943 peter_e@gmx.net            51               1 :     return 0;
                                 52                 : }