# 2005 June 25## The author disclaims copyright to this source code.  In place of# a legal notice, here is a blessing:##    May you do good and not evil.#    May you find forgiveness for yourself and forgive others.#    May you share freely, never taking more than you give.##***********************************************************************# This file implements regression tests for SQLite library. The focus# of this file is testing the interaction of SQLite manifest types# with Tcl dual-representations.## $Id: types3.test,v 1.5 2006/01/17 09:35:03 danielk1977 Exp $#set testdir [file dirname $argv0]source $testdir/tester.tcl# A variable with only a string representation comes in as TEXTdo_test types3-1.1 {  set V {}  append V {}  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]} {string text}# A variable with an integer representation comes in as INTEGERdo_test types3-1.2 {  set V [expr {1+2}]  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]} {int integer}do_test types3-1.3 {  set V [expr {1+123456789012345}]  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]} {wideInt integer}# A double variable comes in as REALdo_test types3-1.4 {  set V [expr {1.0+1}]  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]} {double real}# A byte-array variable comes in a BLOB if it has no string representation# or as TEXT if there is a string representation.#do_test types3-1.5 {  set V [binary format a3 abc]  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]} {bytearray blob}do_test types3-1.6 {  set V "abc"  binary scan $V a3 x  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]} {bytearray text}# Check to make sure return values are of the right types.#ifcapable bloblit {  do_test types3-2.1 {    set V [db one {SELECT x'616263'}]    tcl_variable_type V  } bytearray}do_test types3-2.2 {  set V [db one {SELECT 123}]  tcl_variable_type V} intdo_test types3-2.3 {  set V [db one {SELECT 1234567890123456}]  tcl_variable_type V} wideIntdo_test types3-2.4.1 {  set V [db one {SELECT 1234567890123456.1}]  tcl_variable_type V} doubledo_test types3-2.4.2 {  set V [db one {SELECT 1234567890123.456}]  tcl_variable_type V} doubledo_test types3-2.5 {  set V [db one {SELECT '1234567890123456.0'}]  tcl_variable_type V} {}do_test types3-2.6 {  set V [db one {SELECT NULL}]  tcl_variable_type V} {}finish_test