1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-01 06:27:03 +03:00

Unset global TCL variables in the func.test script prior to use to avoid

conflicts from other scripts. (CVS 5251)

FossilOrigin-Name: 9b04e10f6c00c36652444206d1d8868a560eb56e
This commit is contained in:
drh
2008-06-19 18:39:11 +00:00
parent d09414cdd6
commit 3780b5de7e
3 changed files with 12 additions and 9 deletions

View File

@ -11,7 +11,7 @@
# This file implements regression tests for SQLite library. The
# focus of this file is testing built-in functions.
#
# $Id: func.test,v 1.79 2008/06/18 15:34:10 drh Exp $
# $Id: func.test,v 1.80 2008/06/19 18:39:11 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -929,8 +929,11 @@ do_test func-24.6 {
SELECT 'BEGIN-'||group_concat(t1) FROM tbl1
}
} {BEGIN-this,program,is,free,software}
unset -nocomplain midargs
set midargs {}
unset -nocomplain midres
set midres {}
unset -nocomplain result
for {set i 1} {$i<[sqlite3_limit db SQLITE_LIMIT_FUNCTION_ARG -1]-1} {incr i} {
append midargs ,'/$i'
append midres /$i