Return to trace2.test CVS log

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

Annotation of embedaddon/sqlite3/test/trace2.test, revision 1.1

1.1     ! misho       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