Return to shell4.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / tool

Annotation of embedaddon/sqlite3/tool/shell4.test, revision 1.1

1.1     ! misho       1: # 2010 July 28
        !             2: #
        !             3: # The author disclaims copyright to this source code.  In place of
        !             4: # a legal notice, here is a blessing:
        !             5: #
        !             6: #    May you do good and not evil.
        !             7: #    May you find forgiveness for yourself and forgive others.
        !             8: #    May you share freely, never taking more than you give.
        !             9: #
        !            10: #***********************************************************************
        !            11: #
        !            12: # The focus of this file is testing the CLI shell tool.
        !            13: # These tests are specific to the .stats command.
        !            14: #
        !            15: # $Id: shell4.test,v 1.7 2009/07/17 16:54:48 shaneh Exp $
        !            16: #
        !            17: 
        !            18: # Test plan:
        !            19: #
        !            20: #   shell4-1.*: Basic tests specific to the "stats" command.
        !            21: #
        !            22: 
        !            23: set CLI "./sqlite3"
        !            24: 
        !            25: proc do_test {name cmd expected} {
        !            26:   puts -nonewline "$name ..."
        !            27:   set res [uplevel $cmd]
        !            28:   if {$res eq $expected} {
        !            29:     puts Ok
        !            30:   } else {
        !            31:     puts Error
        !            32:     puts "  Got: $res"
        !            33:     puts "  Expected: $expected"
        !            34:     exit
        !            35:   }
        !            36: }
        !            37: 
        !            38: proc catchcmd {db {cmd ""}} {
        !            39:   global CLI
        !            40:   set out [open cmds.txt w]
        !            41:   puts $out $cmd
        !            42:   close $out
        !            43:   set line "exec $CLI $db < cmds.txt"
        !            44:   set rc [catch { eval $line } msg]
        !            45:   list $rc $msg
        !            46: }
        !            47: 
        !            48: file delete -force test.db test.db.journal
        !            49: 
        !            50: #----------------------------------------------------------------------------
        !            51: # Test cases shell4-1.*: Tests specific to the "stats" command.
        !            52: #
        !            53: 
        !            54: # should default to off
        !            55: do_test shell4-1.1.1 {
        !            56:   set res [catchcmd "test.db" ".show"]
        !            57:   list [regexp {stats: off} $res]
        !            58: } {1}
        !            59: 
        !            60: do_test shell4-1.1.2 {
        !            61:   set res [catchcmd "test.db" ".show"]
        !            62:   list [regexp {stats: on} $res]
        !            63: } {0}
        !            64: 
        !            65: # -stats should turn it on
        !            66: do_test shell4-1.2.1 {
        !            67:   set res [catchcmd "-stats test.db" ".show"]
        !            68:   list [regexp {stats: on} $res]
        !            69: } {1}
        !            70: 
        !            71: do_test shell4-1.2.2 {
        !            72:   set res [catchcmd "-stats test.db" ".show"]
        !            73:   list [regexp {stats: off} $res]
        !            74: } {0}
        !            75: 
        !            76: # .stats ON|OFF          Turn stats on or off
        !            77: do_test shell4-1.3.1 {
        !            78:   catchcmd "test.db" ".stats"
        !            79: } {1 {Error: unknown command or invalid arguments:  "stats". Enter ".help" for help}}
        !            80: do_test shell4-1.3.2 {
        !            81:   catchcmd "test.db" ".stats ON"
        !            82: } {0 {}}
        !            83: do_test shell4-1.3.3 {
        !            84:   catchcmd "test.db" ".stats OFF"
        !            85: } {0 {}}
        !            86: do_test shell4-1.3.4 {
        !            87:   # too many arguments
        !            88:   catchcmd "test.db" ".stats OFF BAD"
        !            89: } {1 {Error: unknown command or invalid arguments:  "stats". Enter ".help" for help}}
        !            90: 
        !            91: # NB. whitespace is important
        !            92: do_test shell4-1.4.1 {
        !            93:   set res [catchcmd "test.db" {.show}]
        !            94:   list [regexp {stats: off} $res]
        !            95: } {1}
        !            96: 
        !            97: do_test shell4-1.4.2 {
        !            98:   set res [catchcmd "test.db" {.stats ON
        !            99: .show
        !           100: }]
        !           101:   list [regexp {stats: on} $res]
        !           102: } {1}
        !           103: 
        !           104: do_test shell4-1.4.3 {
        !           105:   set res [catchcmd "test.db" {.stats OFF
        !           106: .show
        !           107: }]
        !           108:   list [regexp {stats: off} $res]
        !           109: } {1}
        !           110: 
        !           111: # make sure stats not present when off
        !           112: do_test shell4-1.5.1 {
        !           113:   set res [catchcmd "test.db" {SELECT 1;}]
        !           114:   list [regexp {Memory Used} $res] \
        !           115:        [regexp {Heap Usage} $res] \
        !           116:        [regexp {Autoindex Inserts} $res]
        !           117: } {0 0 0}
        !           118: 
        !           119: # make sure stats are present when on
        !           120: do_test shell4-1.5.2 {
        !           121:   set res [catchcmd "test.db" {.stats ON
        !           122: SELECT 1;
        !           123: }]
        !           124:   list [regexp {Memory Used} $res] \
        !           125:        [regexp {Heap Usage} $res] \
        !           126:        [regexp {Autoindex Inserts} $res]
        !           127: } {1 1 1}
        !           128: 
        !           129: puts "CLI tests completed successfully"