Adding upstream version 15.4.upstream/15.4upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 52 insertions, 0 deletions

diff --git a/src/interfaces/ecpg/test/connect/test3.pgc b/src/interfaces/ecpg/test/connect/test3.pgc
new file mode 100644
index 0000000..5d075f0
--- /dev/null
+++ b/src/interfaces/ecpg/test/connect/test3.pgc
@@ -0,0 +1,52 @@
+/*
+ * this file just tests the several possibilities you have for a disconnect
+ */
+
+#include <stdlib.h>
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+exec sql include ../regression;
+
+int
+main(void)
+{
+exec sql begin declare section;
+	char id[200];
+	char res[200];
+exec sql end declare section;
+
+	ECPGdebug(1, stderr);
+
+	strcpy(id, "first");
+	exec sql connect to ecpg2_regression as :id;
+	exec sql connect to REGRESSDB1 as second;
+
+	/* this selects from "second" which was opened last */
+	exec sql select current_database() into :res;
+
+	/* will close "second" */
+	exec sql disconnect CURRENT;
+	exec sql select current_database() into :res;
+
+	exec sql connect to REGRESSDB1 as second;
+	/* will close "second" */
+	exec sql disconnect DEFAULT;
+
+	exec sql connect to "ecpg2_regression" as second;
+	exec sql disconnect ALL;
+
+	exec sql disconnect CURRENT;
+	exec sql disconnect DEFAULT;
+	exec sql disconnect ALL;
+
+	/*
+	 * exec sql disconnect;
+	 * exec sql disconnect name;
+	 *
+	 *     are used in other tests
+	 */
+
+	return 0;
+}