19 proc execsql {sql} {  argument
21   set sql [string map {{WITHOUT ROWID} {}} $sql]
25   while {[string length $sql]>0} {
26     set i [string first ";" $sql]
28       append frag [string range $sql 0 $i]
29       set sql [string range $sql $i+1 end]
35       set frag $sql
36       set sql ""
72 proc execsql_test {tn sql} {  argument
73   set res [execsql $sql]
74   set sql [string map {string_agg group_concat} $sql]
78   puts $::fd "  [string trim $sql]"
83 proc errorsql_test {tn sql} {  argument
84   set rc [catch {execsql $sql} msg]
90   set sql [string map {string_agg group_concat} $sql]
92   puts $::fd "  [string trim $sql]"
100 proc execsql_float_test {tn sql} {  argument
103   set res [execsql $sql]
110   set sql [string trim $sql]
114   foreach r [db eval {$sql}] {