/ 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 Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/func.test.

     7      7   #    May you find forgiveness for yourself and forgive others.
     8      8   #    May you share freely, never taking more than you give.
     9      9   #
    10     10   #***********************************************************************
    11     11   # This file implements regression tests for SQLite library.  The
    12     12   # focus of this file is testing built-in functions.
    13     13   #
    14         -# $Id: func.test,v 1.79 2008/06/18 15:34:10 drh Exp $
           14  +# $Id: func.test,v 1.80 2008/06/19 18:39:11 drh Exp $
    15     15   
    16     16   set testdir [file dirname $argv0]
    17     17   source $testdir/tester.tcl
    18     18   
    19     19   # Create a table to work with.
    20     20   #
    21     21   do_test func-0.0 {
................................................................................
   925    925     }
   926    926   } {thisprogramisfreesoftware}
   927    927   do_test func-24.6 {
   928    928     execsql {
   929    929       SELECT 'BEGIN-'||group_concat(t1) FROM tbl1
   930    930     }
   931    931   } {BEGIN-this,program,is,free,software}
          932  +unset -nocomplain midargs
   932    933   set midargs {}
          934  +unset -nocomplain midres
   933    935   set midres {}
          936  +unset -nocomplain result
   934    937   for {set i 1} {$i<[sqlite3_limit db SQLITE_LIMIT_FUNCTION_ARG -1]-1} {incr i} {
   935    938     append midargs ,'/$i'
   936    939     append midres /$i
   937    940     set result \
   938    941        "this$midres:program$midres:is$midres:free$midres:software$midres"
   939    942     set sql "SELECT group_concat(t1$midargs,':') FROM tbl1"
   940    943     do_test func-24.7.$i {