762 proc do_test {name cmd expected} {  argument
802         if {[string index $expected 0]=="~"} {
803           set re [string range $expected 2 end-1]
812         } elseif {[string index $expected 0]=="#"} {
817           set e2 [string range $expected 2 end-1]
828           set re [string range $expected 1 end-1]
837       } elseif {[regexp {^~?\*.*\*$} $expected]} {
841         if {[string index $expected 0]=="~"} {
842           set e [string range $expected 1 end]
845           set ok [string match $expected $result]
848         set ok [expr {[string compare $result $expected]==0}]
855         output2 "! $name expected: \[$expected\]\n! $name got:      \[$result\]"
920 proc do_filepath_test {name cmd expected} {  argument
923   ] [filepath_normalize $expected]]
930 proc do_realnum_test {name cmd expected} {  argument
933   ] [realnum_normalize $expected]]
1658 proc verify_ex_errcode {name expected {db db}} {
1659   do_test $name [list sqlite3_extended_errcode $db] $expected