# 2010 July 28 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # # The focus of this file is testing the CLI shell tool. # # $Id: shell4.test,v 1.7 2009/07/17 16:54:48 shaneh Exp $ # # Test plan: # # shell4-1.*: Basic tests specific to the "stats" command. # package require sqlite3 set CLI "./sqlite3" proc do_test {name cmd expected} { puts -nonewline "$name ..." set res [uplevel $cmd] if {$res eq $expected} { puts Ok } else { puts Error puts " Got: $res" puts " Expected: $expected" exit } } proc execsql {sql} { uplevel [list db eval $sql] } proc catchsql {sql} { set rc [catch {uplevel [list db eval $sql]} msg] list $rc $msg } proc catchcmd {db {cmd ""}} { global CLI set out [open cmds.txt w] puts $out $cmd close $out set line "exec $CLI $db < cmds.txt" set rc [catch { eval $line } msg] list $rc $msg } file delete -force test.db test.db.journal sqlite3 db test.db #---------------------------------------------------------------------------- # Test cases shell4-1.*: Tests specific to the "stats" command. # # should default to off do_test shell4-1.1.1 { set res [catchcmd "test.db" ".show"] list [regexp {stats: off} $res] } {1} do_test shell4-1.1.2 { set res [catchcmd "test.db" ".show"] list [regexp {stats: on} $res] } {0} # -stats should turn it on do_test shell4-1.2.1 { set res [catchcmd "-stats test.db" ".show"] list [regexp {stats: on} $res] } {1} do_test shell4-1.2.2 { set res [catchcmd "-stats test.db" ".show"] list [regexp {stats: off} $res] } {0} # .stats ON|OFF Turn stats on or off do_test shell4-1.3.1 { catchcmd "test.db" ".stats" } {1 {Error: unknown command or invalid arguments: "stats". Enter ".help" for help}} do_test shell4-1.3.2 { catchcmd "test.db" ".stats ON" } {0 {}} do_test shell4-1.3.3 { catchcmd "test.db" ".stats OFF" } {0 {}} do_test shell4-1.3.4 { # too many arguments catchcmd "test.db" ".stats OFF BAD" } {1 {Error: unknown command or invalid arguments: "stats". Enter ".help" for help}} # NB. whitespace is important do_test shell4-1.4.1 { set res [catchcmd "test.db" {.show}] list [regexp {stats: off} $res] } {1} do_test shell4-1.4.2 { set res [catchcmd "test.db" {.stats ON .show }] list [regexp {stats: on} $res] } {1} do_test shell4-1.4.3 { set res [catchcmd "test.db" {.stats OFF .show }] list [regexp {stats: off} $res] } {1} # make sure stats not present when off do_test shell4-1.5.1 { set res [catchcmd "test.db" {SELECT 1;}] list [regexp {Mem Used} $res] \ [regexp {Heap Usage} $res] \ [regexp {Autoindex Inserts} $res] } {0 0 0} # make sure stats are present when on do_test shell4-1.5.2 { set res [catchcmd "test.db" {.stats ON SELECT 1; }] list [regexp {Mem Used} $res] \ [regexp {Heap Usage} $res] \ [regexp {Autoindex Inserts} $res] } {1 1 1} puts "CLI tests completed successfully"