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:
@ -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
|
||||
|
Reference in New Issue
Block a user