Import Tcl 8.6.12

pkgs/tdbcpostgres1.1.3/tests/all.tcl

@@ -0,0 +1,17 @@
+# all.tcl --
+#
+# This file contains a top-level script to run all of the Tcl
+# tests.  Execute it by invoking "source all.test" when running tcltest
+# in this directory.
+#
+# Copyright (c) 1998-2000 by Scriptics Corporation.
+# All rights reserved.
+#
+# RCS: @(#) $Id: all.tcl,v 1.4 2004/07/04 22:04:20 patthoyts Exp $
+
+package require Tcl 8.6-
+package require tcltest 2.2
+::tcltest::configure \
+    -testdir [file dirname [file normalize [info script]]] \
+    {*}$argv
+::tcltest::runAllTests

pkgs/tdbcpostgres1.1.3/tests/future/tdbcpostgre.test.tcl

@@ -0,0 +1,203 @@
+
+#this test was abandonded, because no flags are used as for now
+test tdbc::postgres-1.4 {create a connection, bad flag} {*}{
+    -body {
+	tdbc::postgres::connection create db -interactive rubbish
+    }
+    -returnCodes error
+    -result {expected boolean value but got "rubbish"}
+}
+
+#"-timeout" option cannot be changed dynamically
+test tdbc::postgres-19.15 {$connection configure - -timeout} {*}{
+    -body {
+	set x [::db configure -timeout]
+	list [::db configure -timeout 5000] [::db configure -timeout] \
+	    [::db configure -timeout $x]
+    }
+    -result {{} 5000 {}}
+}
+
+############### FUTURE tests:
+
+test tdbc::postgres-20.2 {direct value transfers} {*}{
+    -setup {
+	set bigtext [string repeat a 200]
+	set bigbinary [string repeat \xc2\xa1 100]
+	catch {db allrows {DROP TABLE typetest}}
+	db allrows {
+	    CREATE TABLE typetest (
+		xtiny1 TINYINT,
+		xsmall1 SMALLINT,
+		xint1 INTEGER,
+		xfloat1 FLOAT,
+		xdouble1 DOUBLE,
+		xtimestamp1 TIMESTAMP,
+		xbig1 BIGINT,
+		xmed1 MEDIUMINT,
+		xdate1 DATE,
+		xtime1 TIME,
+		xdatetime1 DATETIME,
+		xyear1 YEAR,
+		xbit1 BIT(14),
+		xdec1 DECIMAL(10),
+		xtinyt1 TINYTEXT,
+		xtinyb1 TINYBLOB,
+		xmedt1 MEDIUMTEXT,
+		xmedb1 MEDIUMBLOB,
+		xlongt1 LONGTEXT,
+		xlongb1 LONGBLOB,
+		xtext1 TEXT,
+		xblob1 BLOB,
+		xvarb1 VARBINARY(256),
+		xvarc1 VARCHAR(256),
+		xbin1 BINARY(20),
+		xchar1 CHAR(20)
+	    )
+	}
+	set stmt [db prepare {
+	    INSERT INTO typetest(
+		xtiny1,		xsmall1,	xint1,		xfloat1,
+		xdouble1,	xtimestamp1,	xbig1,		xmed1,
+		xdate1,		xtime1,		xdatetime1,	xyear1,
+		xbit1,		xdec1,		xtinyt1,	xtinyb1,
+		xmedt1,		xmedb1,		xlongt1,	xlongb1,
+		xtext1,		xblob1,		xvarb1,		xvarc1,
+		xbin1,		xchar1
+	    ) values (
+		:xtiny1,	:xsmall1,	:xint1,		:xfloat1,
+		:xdouble1,	:xtimestamp1,	:xbig1,		:xmed1,
+		:xdate1,	:xtime1,	:xdatetime1,	:xyear1,
+		:xbit1,		:xdec1,		:xtinyt1,	:xtinyb1,
+		:xmedt1,	:xmedb1,	:xlongt1,	:xlongb1,
+		:xtext1,	:xblob1,	:xvarb1,	:xvarc1,
+		:xbin1,		:xchar1
+	    )
+	}]
+	$stmt paramtype xtiny1 tinyint
+	$stmt paramtype xsmall1 smallint
+	$stmt paramtype xint1 integer
+	$stmt paramtype xfloat1 float
+	$stmt paramtype xdouble1 double
+	$stmt paramtype xtimestamp1 timestamp
+	$stmt paramtype xbig1 bigint
+	$stmt paramtype xmed1 mediumint
+	$stmt paramtype xdate1 date
+	$stmt paramtype xtime1 time
+	$stmt paramtype xdatetime1 datetime
+	$stmt paramtype xyear1 year
+	$stmt paramtype xbit1 bit 14
+	$stmt paramtype xdec1 decimal 10 0
+	$stmt paramtype xtinyt1 tinytext
+	$stmt paramtype xtinyb1 tinyblob
+	$stmt paramtype xmedt1 mediumtext
+	$stmt paramtype xmedb1 mediumblob
+	$stmt paramtype xlongt1 longtext
+	$stmt paramtype xlongb1 longblob
+	$stmt paramtype xtext1 text
+	$stmt paramtype xblob1 blob
+	$stmt paramtype xvarb1 varbinary
+	$stmt paramtype xvarc1 varchar
+	$stmt paramtype xbin1 binary 20
+	$stmt paramtype xchar1 char 20
+    }
+    -body {
+	set trouble {}
+	set xtiny1 0x14
+	set xsmall1 0x3039
+	set xint1 0xbc614e
+	set xfloat1 1.125
+	set xdouble1 1.125
+	set xtimestamp1 {2001-02-03 04:05:06}
+	set xbig1 0xbc614e
+	set xmed1 0x3039
+	set xdate1 2001-02-03
+	set xtime1 04:05:06
+	set xdatetime1 {2001-02-03 04:05:06}
+	set xyear1 2001
+	set xbit1 0b11010001010110
+	set xdec1 0xbc614e
+	set xtinyt1 $bigtext
+	set xtinyb1 $bigbinary
+	set xmedt1 $bigtext
+	set xmedb1 $bigbinary
+	set xlongt1 $bigtext
+	set xlongb1 $bigbinary
+	set xtext1 $bigtext
+	set xblob1 $bigbinary
+	set xvarb1 $bigbinary
+	set xvarc1 $bigtext
+	set xbin1 [string repeat \xc2\xa1 10]
+	set xchar1 [string repeat a 20]
+	$stmt allrows
+	db foreach row {select * from typetest} {
+	    foreach v {
+		xtiny1		xsmall1		xint1		xfloat1
+		xdouble1	xtimestamp1	xbig1		xmed1
+		xdate1		xtime1		xdatetime1	xyear1
+		xbit1		xdec1		xtinyt1		xtinyb1
+		xmedt1		xmedb1		xlongt1		xlongb1
+		xtext1		xblob1		xvarb1		xvarc1
+		xbin1		xchar1
+	    } {
+		if {![dict exists $row $v]} {
+		    append trouble $v " did not appear in result set\n"
+		} elseif {[set $v] != [dict get $row $v]} {
+		    append trouble [list $v is [dict get $row $v] \
+					should be [set $v]] \n
+		}
+	    }
+	}
+	set trouble
+    }
+    -result {}
+    -cleanup {
+	$stmt close
+	db allrows {
+	    DROP TABLE typetest
+	}
+    }
+}
+
+test tdbc::postgres-21.2 {transfers of binary data} {*}{
+    -setup {
+	catch {
+	    db allrows {DROP TABLE bintest}
+	}
+	db allrows {
+	    CREATE TABLE bintest (
+		xint1 INTEGER PRIMARY KEY,
+		xbin VARBINARY(256)
+	    )
+	}
+	set stmt1 [db prepare {
+	    INSERT INTO bintest (xint1, xbin)
+	    VALUES(:i1, :b1)
+	}]
+	$stmt1 paramtype i1 integer
+	$stmt1 paramtype b1 varbinary 256
+	set stmt2 [db prepare {
+	    SELECT xbin FROM bintest WHERE xint1 = :i1
+	}]
+	$stmt2 paramtype i1 integer
+    }
+    -body {
+	set listdata {}
+	for {set i 0} {$i < 256} {incr i} {
+	    lappend listdata $i
+	}
+	set b1 [binary format c* $listdata]
+	set i1 123
+	$stmt1 allrows
+	$stmt2 foreach -as lists row { set b2 [lindex $row 0] }
+	list [string length $b2] [string compare $b1 $b2]
+    }
+    -result {256 0}
+    -cleanup {
+	$stmt1 close
+	$stmt2 close
+	db allrows {DROP TABLE bintest}
+    }
+}
+
+