diff options
Diffstat (limited to 'ext/expert/expert1.test')
| -rw-r--r-- | ext/expert/expert1.test | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/ext/expert/expert1.test b/ext/expert/expert1.test index 799532755..3b3425f07 100644 --- a/ext/expert/expert1.test +++ b/ext/expert/expert1.test @@ -23,11 +23,8 @@ if {![info exists testdir]} { source $testdir/tester.tcl set testprefix expert1 -if {$tcl_platform(platform)=="windows"} { - set CMD "sqlite3_expert.exe" -} else { - set CMD ".././sqlite3_expert" -} +set CLI [test_binary_name sqlite3] +set CMD [test_binary_name sqlite3_expert] proc squish {txt} { regsub -all {[[:space:]]+} $txt { } @@ -73,6 +70,17 @@ foreach {tn setup} { uplevel [list do_test $tn $tst [string trim [squish $res]]] } } + 3 { + if {![file executable $CLI]} { continue } + + proc do_rec_test {tn sql res} { + set res [squish [string trim $res]] + set tst [subst -nocommands { + squish [string trim [exec $::CLI test.db ".expert" {$sql;}]] + }] + uplevel [list do_test $tn $tst $res] + } + } } { eval $setup @@ -292,6 +300,15 @@ do_setup_rec_test $tn.15 { 0|1|1|SEARCH TABLE t1 USING INTEGER PRIMARY KEY (rowid=?) } +do_setup_rec_test $tn.16 { + CREATE TABLE t1(a, b); +} { + SELECT * FROM t1 WHERE b IS NOT NULL; +} { + (no new indexes) + 0|0|0|SCAN TABLE t1 +} + } proc do_candidates_test {tn sql res} { |