mirror of
https://github.com/sqlite/sqlite.git
synced 2025-07-30 19:03:16 +03:00
Minor fixes related to the tests in misuse.test (CVS 1738)
FossilOrigin-Name: 0af3ff39422e02afdfdaf2005ab5eb01b496dc72
This commit is contained in:
@ -11,36 +11,12 @@
|
||||
# This file implements regression tests for SQLite library. The
|
||||
# focus of this script testing the callback-free C/C++ API.
|
||||
#
|
||||
# $Id: capi2.test,v 1.16 2004/06/21 07:36:33 danielk1977 Exp $
|
||||
# $Id: capi2.test,v 1.17 2004/06/26 09:50:12 danielk1977 Exp $
|
||||
#
|
||||
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
|
||||
# proc sqlite_step {stmt N VALS COLS} {
|
||||
# upvar $VALS vals
|
||||
# upvar $COLS cols
|
||||
# upvar $N n
|
||||
# set vals [list]
|
||||
# set cols [list]
|
||||
#
|
||||
# set n [sqlite3_column_count $stmt]
|
||||
#
|
||||
# set rc [sqlite3_step $stmt]
|
||||
# for {set i 0} {$i < [sqlite3_column_count $stmt]} {incr i} {
|
||||
# lappend cols [sqlite3_column_name $stmt $i]
|
||||
# }
|
||||
# for {set i 0} {$i < [sqlite3_column_count $stmt]} {incr i} {
|
||||
# lappend cols [sqlite3_column_decltype $stmt $i]
|
||||
# }
|
||||
#
|
||||
# for {set i 0} {$i < [sqlite3_data_count $stmt]} {incr i} {
|
||||
# lappend vals [sqlite3_column_text $stmt $i]
|
||||
# }
|
||||
#
|
||||
# return $rc
|
||||
# }
|
||||
|
||||
# Return the text values from the current row pointed at by STMT as a list.
|
||||
proc get_row_values {STMT} {
|
||||
set VALUES [list]
|
||||
|
Reference in New Issue
Block a user