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 32dca4cb7..4486bcd68 100644 --- a/test/tester.tcl +++ b/test/tester.tcl @@ -634,6 +634,12 @@ proc fix_testname {varname} { set testname "${::testprefix}-$testname" } } + +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 |