File:  [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test / trace2.test
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs - revision graph
Tue Feb 21 17:04:16 2012 UTC (12 years, 10 months ago) by misho
Branches: sqlite3, MAIN
CVS tags: v3_7_10, HEAD
sqlite3

    1: # 2011 Jan 21
    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: # This file implements regression tests for SQLite library.
   12: #
   13: # This file implements tests for the "sqlite3_trace()" API. Specifically,
   14: # it tests the special handling of nested SQL statements (those executed
   15: # by virtual table or user function callbacks). These statements are treated
   16: # differently in two respects:
   17: #
   18: #   1. Each line of the statement is prefixed with "-- " to turn it into
   19: #      an SQL comment.
   20: #
   21: #   2. Parameter expansion is not performed.
   22: #
   23: 
   24: set testdir [file dirname $argv0]
   25: source $testdir/tester.tcl
   26: ifcapable !trace { finish_test ; return }
   27: set ::testprefix trace2
   28: 
   29: proc sql {zSql} { db one $zSql }
   30: proc trace {zSql} { lappend ::trace $zSql }
   31: 
   32: db func sql sql
   33: db trace trace
   34: 
   35: proc do_trace_test {tn sql expected} {
   36:   # Test that the list of string passed to the trace callback when $sql
   37:   # is executed is equivalent to the list of strings in $expected.
   38:   #
   39:   set ::trace [list]
   40:   execsql $sql
   41:   uplevel do_test $tn [list {set ::trace}] [list [list {*}$expected]]
   42: }
   43: 
   44: proc do_trace_select_test {tn sql expected} {
   45: 
   46:   uplevel [list do_trace_test ${tn}.a $sql $expected]
   47: 
   48:   # Now execute each SQL statement passed to the trace callback in the
   49:   # block above. Check that this causes the same set of strings to be
   50:   # passed to the trace callback again. i.e. that executing the output
   51:   # of the trace callback is equivalent to the SQL script in $sql.
   52:   #
   53:   set sqllist $::trace
   54:   set ::trace [list]
   55:   foreach item $sqllist { execsql $item }
   56:   uplevel do_test $tn.b [list {set ::trace}] [list $sqllist]
   57: }
   58: 
   59: do_trace_select_test 1.1  {
   60:   SELECT 1, 2, 3;
   61: } {
   62:   "SELECT 1, 2, 3;"
   63: }
   64: 
   65: do_trace_select_test 1.2  {
   66:   SELECT sql('SELECT 1, 2, 3');
   67: } {
   68:   "SELECT sql('SELECT 1, 2, 3');"
   69:   "-- SELECT 1, 2, 3"
   70: }
   71: 
   72: do_trace_select_test 1.3  {
   73:   SELECT sql('SELECT 1, 
   74:     2, 
   75:     3'
   76:   );
   77: } {
   78:   "SELECT sql('SELECT 1, 
   79:     2, 
   80:     3'
   81:   );"
   82:   "-- SELECT 1, 
   83: --     2, 
   84: --     3"
   85: }
   86: 
   87: do_trace_select_test 1.4  {
   88:   SELECT sql('SELECT 1, 
   89: 
   90: 
   91:     3'
   92:   );
   93: } {
   94:   "SELECT sql('SELECT 1, 
   95: 
   96: 
   97:     3'
   98:   );"
   99:   "-- SELECT 1, 
  100: -- 
  101: -- 
  102: --     3"
  103: }
  104: 
  105: do_trace_select_test 1.5  {
  106:   SELECT $var, sql('SELECT 1, 
  107:     $var, 
  108:     3'
  109:   );
  110: } {
  111:   "SELECT NULL, sql('SELECT 1, 
  112:     $var, 
  113:     3'
  114:   );"
  115:   "-- SELECT 1, 
  116: --     $var, 
  117: --     3"
  118: }
  119: 
  120: ifcapable fts3 {
  121:   do_execsql_test 2.1 {
  122:     CREATE VIRTUAL TABLE x1 USING fts4;
  123:     INSERT INTO x1 VALUES('Cloudy, with a high near 16');
  124:     INSERT INTO x1 VALUES('Wind chill values as low as -13');
  125:   }
  126: 
  127:   do_trace_test 2.2 {
  128:     INSERT INTO x1 VALUES('North northwest wind between 8 and 14 mph');
  129:   } {
  130:     "INSERT INTO x1 VALUES('North northwest wind between 8 and 14 mph');" 
  131:     "-- INSERT INTO 'main'.'x1_content' VALUES(?,(?))" 
  132:     "-- REPLACE INTO 'main'.'x1_docsize' VALUES(?,?)" 
  133:     "-- SELECT value FROM 'main'.'x1_stat' WHERE id=0" 
  134:     "-- REPLACE INTO 'main'.'x1_stat' VALUES(0,?)" 
  135:     "-- SELECT (SELECT max(idx) FROM 'main'.'x1_segdir' WHERE level = ?) + 1" 
  136:     "-- SELECT coalesce((SELECT max(blockid) FROM 'main'.'x1_segments') + 1, 1)"
  137:     "-- INSERT INTO 'main'.'x1_segdir' VALUES(?,?,?,?,?,?)"
  138:   }
  139: 
  140:   do_trace_test 2.3 {
  141:     INSERT INTO x1(x1) VALUES('optimize');
  142:   } {
  143:     "INSERT INTO x1(x1) VALUES('optimize');"
  144:     "-- SELECT idx, start_block, leaves_end_block, end_block, root FROM 'main'.'x1_segdir' WHERE level BETWEEN ? AND ?ORDER BY level DESC, idx ASC"
  145:     "-- SELECT max(level) FROM 'main'.'x1_segdir' WHERE level BETWEEN ? AND ?"
  146:     "-- SELECT coalesce((SELECT max(blockid) FROM 'main'.'x1_segments') + 1, 1)"
  147:     "-- DELETE FROM 'main'.'x1_segdir' WHERE level BETWEEN ? AND ?"
  148:     "-- INSERT INTO 'main'.'x1_segdir' VALUES(?,?,?,?,?,?)"
  149:   }
  150: }
  151: 
  152: finish_test

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>