/ Check-in [9b04e10f]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Unset global TCL variables in the func.test script prior to use to avoid conflicts from other scripts. (CVS 5251)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9b04e10f6c00c36652444206d1d8868a560eb56e
User & Date: drh 2008-06-19 18:39:11
Context
2008-06-20
00:03
Patch to memsubsys1.test in order to avoid a segfault in tableapi.test. (CVS 5252) check-in: 62411a6e user: drh tags: trunk
2008-06-19
18:39
Unset global TCL variables in the func.test script prior to use to avoid conflicts from other scripts. (CVS 5251) check-in: 9b04e10f user: drh tags: trunk
18:17
Move the malloc() failure simulation out of malloc.c and into a separate sqlite3_mem_methods interface. Still some related changes to come. (CVS 5250) check-in: d22cd2a5 user: danielk1977 tags: trunk
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to test/func.test.

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
925
926
927
928
929
930
931

932

933

934
935
936
937
938
939
940
#    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 built-in functions.
#
# $Id: func.test,v 1.79 2008/06/18 15:34:10 drh Exp $

set testdir [file dirname $argv0]
source $testdir/tester.tcl

# Create a table to work with.
#
do_test func-0.0 {
................................................................................
  }
} {thisprogramisfreesoftware}
do_test func-24.6 {
  execsql {
    SELECT 'BEGIN-'||group_concat(t1) FROM tbl1
  }
} {BEGIN-this,program,is,free,software}

set midargs {}

set midres {}

for {set i 1} {$i<[sqlite3_limit db SQLITE_LIMIT_FUNCTION_ARG -1]-1} {incr i} {
  append midargs ,'/$i'
  append midres /$i
  set result \
     "this$midres:program$midres:is$midres:free$midres:software$midres"
  set sql "SELECT group_concat(t1$midargs,':') FROM tbl1"
  do_test func-24.7.$i {







|







 







>

>

>







7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
#    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 built-in functions.
#
# $Id: func.test,v 1.80 2008/06/19 18:39:11 drh Exp $

set testdir [file dirname $argv0]
source $testdir/tester.tcl

# Create a table to work with.
#
do_test func-0.0 {
................................................................................
  }
} {thisprogramisfreesoftware}
do_test func-24.6 {
  execsql {
    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
  set result \
     "this$midres:program$midres:is$midres:free$midres:software$midres"
  set sql "SELECT group_concat(t1$midargs,':') FROM tbl1"
  do_test func-24.7.$i {