Return to trace.test CVS log

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

sqlite3

    1: # 2004 Jun 29
    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.
   14: #
   15: # $Id: trace.test,v 1.1.1.1 2012/02/21 17:04:16 misho Exp $
   16: 
   17: set testdir [file dirname $argv0]
   18: source $testdir/tester.tcl
   19: 
   20: ifcapable !trace {
   21:   finish_test
   22:   return
   23: }
   24: 
   25: set ::stmtlist {}
   26: do_test trace-1.1 {
   27:   set rc [catch {db trace 1 2 3} msg]
   28:   lappend rc $msg
   29: } {1 {wrong # args: should be "db trace ?CALLBACK?"}}
   30: proc trace_proc cmd {
   31:   lappend ::stmtlist [string trim $cmd]
   32: }
   33: do_test trace-1.2 {
   34:   db trace trace_proc
   35:   db trace
   36: } {trace_proc}
   37: do_test trace-1.3 {
   38:   execsql {
   39:     CREATE TABLE t1(a,b);
   40:     INSERT INTO t1 VALUES(1,2);
   41:     SELECT * FROM t1;
   42:   }
   43: } {1 2}
   44: do_test trace-1.4 {
   45:   set ::stmtlist
   46: } {{CREATE TABLE t1(a,b);} {INSERT INTO t1 VALUES(1,2);} {SELECT * FROM t1;}}
   47: do_test trace-1.5 {
   48:   db trace {}
   49:   db trace
   50: } {}
   51: 
   52: # If we prepare a statement and execute it multiple times, the trace
   53: # happens on each execution.
   54: #
   55: db close
   56: sqlite3 db test.db; set DB [sqlite3_connection_pointer db]
   57: do_test trace-2.1 {
   58:   set STMT [sqlite3_prepare $DB {INSERT INTO t1 VALUES(2,3)} -1 TAIL]
   59:   db trace trace_proc
   60:   proc trace_proc sql {
   61:     global TRACE_OUT
   62:     lappend TRACE_OUT [string trim $sql]
   63:   }
   64:   set TRACE_OUT {}
   65:   sqlite3_step $STMT
   66:   set TRACE_OUT
   67: } {{INSERT INTO t1 VALUES(2,3)}}
   68: do_test trace-2.2 {
   69:   set TRACE_OUT {}
   70:   sqlite3_reset $STMT
   71:   set TRACE_OUT 
   72: } {}
   73: do_test trace-2.3 {
   74:   sqlite3_step $STMT
   75:   set TRACE_OUT
   76: } {{INSERT INTO t1 VALUES(2,3)}}
   77: do_test trace-2.4 {
   78:   set TRACE_OUT {}
   79:   execsql {SELECT * FROM t1}
   80: } {1 2 2 3 2 3}
   81: do_test trace-2.5 {
   82:   set TRACE_OUT
   83: } {{SELECT * FROM t1}}
   84: catch {sqlite3_finalize $STMT}
   85: 
   86: do_test trace-2.6 {
   87:   set TRACE_OUT {}
   88:   db eval VACUUM
   89:   set TRACE_OUT
   90: } {VACUUM}
   91: 
   92: # Similar tests, but this time for profiling.
   93: # 
   94: do_test trace-3.1 {
   95:   set rc [catch {db profile 1 2 3} msg]
   96:   lappend rc $msg
   97: } {1 {wrong # args: should be "db profile ?CALLBACK?"}}
   98: set ::stmtlist {}
   99: proc profile_proc {cmd tm} {
  100:   lappend ::stmtlist [string trim $cmd]
  101: }
  102: do_test trace-3.2 {
  103:   db trace {}
  104:   db profile profile_proc
  105:   db profile
  106: } {profile_proc}
  107: do_test trace-3.3 {
  108:   execsql {
  109:     CREATE TABLE t2(a,b);
  110:     INSERT INTO t2 VALUES(1,2);
  111:     SELECT * FROM t2;
  112:   }
  113: } {1 2}
  114: do_test trace-3.4 {
  115:   set ::stmtlist
  116: } {{CREATE TABLE t2(a,b);} {INSERT INTO t2 VALUES(1,2);} {SELECT * FROM t2;}}
  117: do_test trace-3.5 {
  118:   db profile {}
  119:   db profile
  120: } {}
  121: 
  122: # If we prepare a statement and execute it multiple times, the profile
  123: # happens on each execution.
  124: #
  125: db close
  126: sqlite3 db test.db; set DB [sqlite3_connection_pointer db]
  127: do_test trace-4.1 {
  128:   set STMT [sqlite3_prepare $DB {INSERT INTO t2 VALUES(2,3)} -1 TAIL]
  129:   db trace trace_proc
  130:   proc profile_proc {sql tm} {
  131:     global TRACE_OUT
  132:     lappend TRACE_OUT [string trim $sql]
  133:   }
  134:   set TRACE_OUT {}
  135:   sqlite3_step $STMT
  136:   set TRACE_OUT
  137: } {{INSERT INTO t2 VALUES(2,3)}}
  138: do_test trace-4.2 {
  139:   set TRACE_OUT {}
  140:   sqlite3_reset $STMT
  141:   set TRACE_OUT 
  142: } {}
  143: do_test trace-4.3 {
  144:   sqlite3_step $STMT
  145:   set TRACE_OUT
  146: } {{INSERT INTO t2 VALUES(2,3)}}
  147: do_test trace-4.4 {
  148:   set TRACE_OUT {}
  149:   execsql {SELECT * FROM t1}
  150: } {1 2 2 3 2 3}
  151: do_test trace-4.5 {
  152:   set TRACE_OUT
  153: } {{SELECT * FROM t1}}
  154: catch {sqlite3_finalize $STMT}
  155: 
  156: # Trigger tracing.
  157: #
  158: ifcapable trigger {
  159:   do_test trace-5.1 {
  160:     db eval {
  161:       CREATE TRIGGER r1t1 AFTER UPDATE ON t1 BEGIN
  162:         UPDATE t2 SET a=new.a WHERE rowid=new.rowid;
  163:       END;
  164:       CREATE TRIGGER r1t2 AFTER UPDATE ON t2 BEGIN
  165:         SELECT 'hello';
  166:       END;
  167:     }
  168:     set TRACE_OUT {}
  169:     proc trace_proc cmd {
  170:       lappend ::TRACE_OUT [string trim $cmd]
  171:     }
  172:     db eval {
  173:       UPDATE t1 SET a=a+1;
  174:     }
  175:     set TRACE_OUT
  176:   } {{UPDATE t1 SET a=a+1;} {-- TRIGGER r1t1} {-- TRIGGER r1t2} {-- TRIGGER r1t1} {-- TRIGGER r1t2} {-- TRIGGER r1t1} {-- TRIGGER r1t2}}
  177: }
  178: 
  179: # With 3.6.21, we add the ability to expand host parameters in the trace
  180: # output.  Test this feature.
  181: #
  182: do_test trace-6.1 {
  183:   set ::t6int [expr {3+3}]
  184:   set ::t6real [expr {1.5*4.0}]
  185:   set ::t6str {test-six y'all}
  186:   db eval {SELECT x'3031323334' AS x} {set ::t6blob $x}
  187:   unset -nocomplain t6null
  188:   set TRACE_OUT {}
  189:   execsql {SELECT $::t6int, $::t6real, $t6str, $t6blob, $t6null}
  190: } {6 6.0 {test-six y'all} 01234 {}}
  191: do_test trace-6.2 {
  192:   set TRACE_OUT
  193: } {{SELECT 6, 6.0, 'test-six y''all', x'3031323334', NULL}}
  194: do_test trace-6.3 {
  195:   set TRACE_OUT {}
  196:   execsql {SELECT $::t6int, ?1, $::t6int}
  197: } {6 6 6}
  198: do_test trace-6.4 {
  199:   set TRACE_OUT
  200: } {{SELECT 6, 6, 6}}
  201: do_test trace-6.5 {
  202:   execsql {CREATE TABLE t6([$::t6int],"?1"); INSERT INTO t6 VALUES(1,2)}
  203:   set TRACE_OUT {}
  204:   execsql {SELECT '$::t6int', [$::t6int], $::t6int, ?1, "?1", $::t6int FROM t6}
  205: } {{$::t6int} 1 6 6 2 6}
  206: do_test trace-6.6 {
  207:   set TRACE_OUT
  208: } {{SELECT '$::t6int', [$::t6int], 6, 6, "?1", 6 FROM t6}}
  209: 
  210: # Do these same tests with a UTF16 database.
  211: #
  212: do_test trace-6.100 {
  213:   db close
  214:   sqlite3 db :memory:
  215:   db eval {
  216:      PRAGMA encoding=UTF16be;
  217:      CREATE TABLE t6([$::t6str],"?1");
  218:      INSERT INTO t6 VALUES(1,2);
  219:   }
  220:   db trace trace_proc
  221:   set TRACE_OUT {}
  222:   execsql {SELECT '$::t6str', [$::t6str], $::t6str, ?1, "?1", $::t6str FROM t6}
  223: } {{$::t6str} 1 {test-six y'all} {test-six y'all} 2 {test-six y'all}}
  224: do_test trace-6.101 {
  225:   set TRACE_OUT
  226: } {{SELECT '$::t6str', [$::t6str], 'test-six y''all', 'test-six y''all', "?1", 'test-six y''all' FROM t6}}
  227: 
  228: do_test trace-6.200 {
  229:   db close
  230:   sqlite3 db :memory:
  231:   db eval {
  232:      PRAGMA encoding=UTF16le;
  233:      CREATE TABLE t6([$::t6str],"?1");
  234:      INSERT INTO t6 VALUES(1,2);
  235:   }
  236:   db trace trace_proc
  237:   set TRACE_OUT {}
  238:   execsql {SELECT '$::t6str', [$::t6str], $::t6str, ?1, "?1", $::t6str FROM t6}
  239: } {{$::t6str} 1 {test-six y'all} {test-six y'all} 2 {test-six y'all}}
  240: do_test trace-6.201 {
  241:   set TRACE_OUT
  242: } {{SELECT '$::t6str', [$::t6str], 'test-six y''all', 'test-six y''all', "?1", 'test-six y''all' FROM t6}}
  243: 
  244: 
  245: finish_test