AryaWu/sqlite

1# 2001 September 152#3# The author disclaims copyright to this source code.  In place of4# 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.  The12# focus of this file is testing the 'progress callback'.13#14# $Id: progress.test,v 1.8 2007/06/15 14:53:53 danielk1977 Exp $15 16set testdir [file dirname $argv0]17source $testdir/tester.tcl18 19# If the progress callback is not available in this build, skip this20# whole file.21ifcapable !progress {22  finish_test23  return24}25 26# Build some test data27#28execsql {29  BEGIN;30  CREATE TABLE t1(a);31  INSERT INTO t1 VALUES(1);32  INSERT INTO t1 VALUES(2);33  INSERT INTO t1 VALUES(3);34  INSERT INTO t1 VALUES(4);35  INSERT INTO t1 VALUES(5);36  INSERT INTO t1 VALUES(6);37  INSERT INTO t1 VALUES(7);38  INSERT INTO t1 VALUES(8);39  INSERT INTO t1 VALUES(9);40  INSERT INTO t1 VALUES(10);41  COMMIT;42}43 44 45# Test that the progress callback is invoked.46do_test progress-1.0 {47  set counter 048  db progress 1 "[namespace code {incr counter}] ; expr 0"49  execsql {50    SELECT * FROM t151  }52  expr $counter > 153} 154do_test progress-1.0.1 {55  db progress56} {::namespace inscope :: {incr counter} ; expr 0}57do_test progress-1.0.2 {58  set v [catch {db progress xyz bogus} msg]59  lappend v $msg60} {1 {expected integer but got "xyz"}}61 62# Test that the query is abandoned when the progress callback returns non-zero63do_test progress-1.1 {64  set counter 065  db progress 1 "[namespace code {incr counter}] ; expr 1"66  set rc [catch {execsql {67    SELECT * FROM t168  }}]69  list $counter $rc70} {1 1}71 72# Test that the query is rolled back when the progress callback returns73# non-zero.74do_test progress-1.2 {75 76  # This figures out how many opcodes it takes to copy 5 extra rows into t1.77  db progress 1 "[namespace code {incr five_rows}] ; expr 0"78  set five_rows 079  execsql {80    INSERT INTO t1 SELECT a+10 FROM t1 WHERE a < 681  }82  db progress 0 ""83  execsql {84    DELETE FROM t1 WHERE a > 1085  }86 87  # Now set up the progress callback to abandon the query after the number of88  # opcodes to copy 5 rows. That way, when we try to copy 6 rows, we know89  # some data will have been inserted into the table by the time the progress90  # callback abandons the query.91  db progress $five_rows "expr 1"92  catchsql {93    INSERT INTO t1 SELECT a+10 FROM t1 WHERE a < 994  }95  execsql {96    SELECT count(*) FROM t197  }98} 1099 100# Test that an active transaction remains active and not rolled back 101# after the progress query abandons a query. 102#103# UPDATE: It is now recognised that this is a sure route to database104# corruption. So the transaction is rolled back.105do_test progress-1.3 {106 107  db progress 0 ""108  execsql BEGIN109  execsql {110    INSERT INTO t1 VALUES(11)111  }112  db progress 1 "expr 1"113  catchsql {114    INSERT INTO t1 VALUES(12)115  }116  db progress 0 ""117  catchsql COMMIT118} {1 {cannot commit - no transaction is active}}119do_test progress-1.3.1 {120  execsql {121    SELECT count(*) FROM t1122  }123} 10124 125# Check that a value of 0 for N means no progress callback126do_test progress-1.4 {127  set counter 0128  db progress 0 "[namespace code {incr counter}] ; expr 0"129  execsql {130    SELECT * FROM t1;131  }132  set counter133} 0134 135db progress 0 ""136 137# Make sure other queries can be run from within the progress138# handler.  Ticket #1827139#140do_test progress-1.5 {141  set rx 0142  proc set_rx {args} {143    db progress 0 {}144    set ::rx [db eval {SELECT count(*) FROM t1}]145    return [expr 0]146  }147  db progress 10 set_rx148  db eval {149    SELECT sum(a) FROM t1150  }151} {55}152do_test progress-1.6 {153  set ::rx154} {10}155 156# Check that abandoning a query using the progress handler does157# not cause other queries to abort. Ticket #2415.158do_test progress-1.7 {159  execsql {160    CREATE TABLE abc(a, b, c);161    INSERT INTO abc VALUES(1, 2, 3);162    INSERT INTO abc VALUES(4, 5, 6);163    INSERT INTO abc VALUES(7, 8, 9);164  }165 166  set ::res [list]167  db eval {SELECT a, b, c FROM abc} {168    lappend ::res $a $b $c169    db progress 5 "expr 1"170    catch {db eval {SELECT a, b, c FROM abc} { }} msg171    db progress 5 "expr 0"172    lappend ::res $msg173  }174 175  set ::res176} {1 2 3 interrupted 4 5 6 interrupted 7 8 9 interrupted}177 178finish_test179