From ebc6cf0a40bd770ca63b7c669e27d1cd2dc4e63b Mon Sep 17 00:00:00 2001 From: Peter da Silva Date: Fri, 16 Mar 2018 12:57:15 +0000 Subject: [PATCH] Back out test for return count from pg_select --- tests/pgtcl.test | 28 +--------------------------- 1 file changed, 1 insertion(+), 27 deletions(-) diff --git a/tests/pgtcl.test b/tests/pgtcl.test index 6c45671..6f3254e 100644 --- a/tests/pgtcl.test +++ b/tests/pgtcl.test @@ -911,33 +911,7 @@ test pgtcl-7.5 {using pg_select with embedded variables} -body { # # # -test pgtcl-7.6 {return value of pg_select} -body { - - unset -nocomplain res - - set conn [pg::connect -connlist [array get ::conninfo]] - - set names {} - - set count [pg::select $conn "SELECT relname FROM Pg_class LIMIT 5" resultArr { - set headers $resultArr(.headers) - set numcols $resultArr(.numcols) - set tupno $resultArr(.tupno) - - lappend names $resultArr(relname) - - }] - - rename $conn {} - - list [llength $names] $count - -} -result {5 5} - -# -# -# -test pgtcl-7.7 {pg_select -count} -body { +test pgtcl-7.6 {pg_select -count} -body { unset -nocomplain res