[sql] Import reference version of SQLite 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/test/shell4.test

 # 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.
 # These tests are specific to the .stats command.
 #
 # $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.
 #
-
-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
-  }
+set testdir [file dirname $argv0]
+source $testdir/tester.tcl
+if {$tcl_platform(platform)=="windows"} {
+  set CLI "sqlite3.exe"
+} else {
+  set CLI "./sqlite3"
 }
-
-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
+if {![file executable $CLI]} {
+  finish_test
+  return
 }
-
-file delete -force test.db test.db.journal
+db close
+forcedelete test.db test.db-journal test.db-wal
+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}
@@ skipping 10 matching lines @@
 } {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}}
+} {1 {Usage: .stats on|off}}
 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}}
+} {1 {Usage: .stats on|off}}
 
 # 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
@@ skipping 19 matching lines @@
 # make sure stats are present when on
 do_test shell4-1.5.2 {
   set res [catchcmd "test.db" {.stats ON
 SELECT 1;
 }]
   list [regexp {Memory Used} $res] \
        [regexp {Heap Usage} $res] \
        [regexp {Autoindex Inserts} $res]
 } {1 1 1}
 
-puts "CLI tests completed successfully"
+finish_test