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: |
9b04e10f6c00c36652444206d1d8868a |
| 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
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 { |