diff options
Diffstat (limited to 'test/tester.tcl')
| -rw-r--r-- | test/tester.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/tester.tcl b/test/tester.tcl index 4008a3449..4cb4a3dd1 100644 --- a/test/tester.tcl +++ b/test/tester.tcl @@ -837,6 +837,12 @@ proc fix_testname {varname} { } } +proc normalize_list {L} { + set L2 [list] + foreach l $L {lappend L2 $l} + set L2 +} + proc do_execsql_test {testname sql {result {}}} { fix_testname testname uplevel do_test [list $testname] [list "execsql {$sql}"] [list [list {*}$result]] |