Return to bindxfer.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/bindxfer.test, revision 1.1

1.1     ! misho       1: # 2005 April 21
        !             2: #
        !             3: # The author disclaims copyright to this source code.  In place of
        !             4: # a legal notice, here is a blessing:
        !             5: #
        !             6: #    May you do good and not evil.
        !             7: #    May you find forgiveness for yourself and forgive others.
        !             8: #    May you share freely, never taking more than you give.
        !             9: #
        !            10: #***********************************************************************
        !            11: # This file implements regression tests for SQLite library.  The
        !            12: # focus of this script testing the sqlite_transfer_bindings() API.
        !            13: #
        !            14: # $Id: bindxfer.test,v 1.9 2009/04/17 11:56:28 drh Exp $
        !            15: #
        !            16: 
        !            17: set testdir [file dirname $argv0]
        !            18: source $testdir/tester.tcl
        !            19: 
        !            20: proc sqlite_step {stmt VALS COLS} {
        !            21:   upvar #0 $VALS vals
        !            22:   upvar #0 $COLS cols
        !            23:   set vals [list]
        !            24:   set cols [list]
        !            25: 
        !            26:   set rc [sqlite3_step $stmt]
        !            27:   for {set i 0} {$i < [sqlite3_column_count $stmt]} {incr i} {
        !            28:     lappend cols [sqlite3_column_name $stmt $i]
        !            29:   }
        !            30:   for {set i 0} {$i < [sqlite3_data_count $stmt]} {incr i} {
        !            31:     lappend vals [sqlite3_column_text $stmt $i]
        !            32:   }
        !            33: 
        !            34:   return $rc
        !            35: }
        !            36: 
        !            37: do_test bindxfer-1.1 {
        !            38:   set DB [sqlite3_connection_pointer db]
        !            39:   execsql {CREATE TABLE t1(a,b,c);}
        !            40:   set VM1 [sqlite3_prepare $DB {SELECT ?, ?, ?} -1 TAIL]
        !            41:   set TAIL
        !            42: } {}
        !            43: do_test bindxfer-1.2 {
        !            44:   sqlite3_bind_parameter_count $VM1
        !            45: } 3
        !            46: do_test bindxfer-1.3 {
        !            47:   set VM2 [sqlite3_prepare $DB {SELECT ?, ?, ?} -1 TAIL]
        !            48:   set TAIL
        !            49: } {}
        !            50: do_test bindxfer-1.4 {
        !            51:   sqlite3_bind_parameter_count $VM2
        !            52: } 3
        !            53: ifcapable deprecated {
        !            54:   do_test bindxfer-1.5 {
        !            55:     sqlite_bind $VM1 1 one normal
        !            56:     set sqlite_static_bind_value two
        !            57:     sqlite_bind $VM1 2 {} static
        !            58:     sqlite_bind $VM1 3 {} null
        !            59:     sqlite3_transfer_bindings $VM1 $VM2
        !            60:     sqlite_step $VM1 VALUES COLNAMES
        !            61:   } SQLITE_ROW
        !            62:   do_test bindxfer-1.6 {
        !            63:     set VALUES
        !            64:   } {{} {} {}}
        !            65:   do_test bindxfer-1.7 {
        !            66:     sqlite_step $VM2 VALUES COLNAMES
        !            67:   } SQLITE_ROW
        !            68:   do_test bindxfer-1.8 {
        !            69:     set VALUES
        !            70:   } {one two {}}
        !            71: }
        !            72: catch {sqlite3_finalize $VM1}
        !            73: catch {sqlite3_finalize $VM2}
        !            74: 
        !            75: 
        !            76: finish_test