test/progress.test

   1 # 2001 September 15
   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.  The
  12 # 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
  16 set testdir [file dirname $argv0]
  17 source $testdir/tester.tcl
  18
  19 # If the progress callback is not available in this build, skip this
  20 # whole file.
  21 ifcapable !progress {
  22   finish_test
  23   return
  24 }
  25
  26 # Build some test data
  27 #
  28 execsql {
  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.
  46 do_test progress-1.0 {
  47   set counter 0
  48   db progress 1 "[namespace code {incr counter}] ; expr 0"
  49   execsql {
  50     SELECT * FROM t1
  51   }
  52   expr $counter > 1
  53 } 1
  54 do_test progress-1.0.1 {
  55   db progress
  56 } {::namespace inscope :: {incr counter} ; expr 0}
  57 do_test progress-1.0.2 {
  58   set v [catch {db progress xyz bogus} msg]
  59   lappend v $msg
  60 } {1 {expected integer but got "xyz"}}
  61
  62 # Test that the query is abandoned when the progress callback returns non-zero
  63 do_test progress-1.1 {
  64   set counter 0
  65   db progress 1 "[namespace code {incr counter}] ; expr 1"
  66   set rc [catch {execsql {
  67     SELECT * FROM t1
  68   }}]
  69   list $counter $rc
  70 } {1 1}
  71
  72 # Test that the query is rolled back when the progress callback returns
  73 # non-zero.
  74 do_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 0
  79   execsql {
  80     INSERT INTO t1 SELECT a+10 FROM t1 WHERE a < 6
  81   }
  82   db progress 0 ""
  83   execsql {
  84     DELETE FROM t1 WHERE a > 10
  85   }
  86
  87   # Now set up the progress callback to abandon the query after the number of
  88   # opcodes to copy 5 rows. That way, when we try to copy 6 rows, we know
  89   # some data will have been inserted into the table by the time the progress
  90   # callback abandons the query.
  91   db progress $five_rows "expr 1"
  92   catchsql {
  93     INSERT INTO t1 SELECT a+10 FROM t1 WHERE a < 9
  94   }
  95   execsql {
  96     SELECT count(*) FROM t1
  97   }
  98 } 10
  99
 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 database
 104 # corruption. So the transaction is rolled back.
 105 do_test progress-1.3 {
 106
 107   db progress 0 ""
 108   execsql BEGIN
 109   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 COMMIT
 118 } {1 {cannot commit - no transaction is active}}
 119 do_test progress-1.3.1 {
 120   execsql {
 121     SELECT count(*) FROM t1
 122   }
 123 } 10
 124
 125 # Check that a value of 0 for N means no progress callback
 126 do_test progress-1.4 {
 127   set counter 0
 128   db progress 0 "[namespace code {incr counter}] ; expr 0"
 129   execsql {
 130     SELECT * FROM t1;
 131   }
 132   set counter
 133 } 0
 134
 135 db progress 0 ""
 136
 137 # Make sure other queries can be run from within the progress
 138 # handler.  Ticket #1827
 139 #
 140 do_test progress-1.5 {
 141   set rx 0
 142   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_rx
 148   db eval {
 149     SELECT sum(a) FROM t1
 150   }
 151 } {55}
 152 do_test progress-1.6 {
 153   set ::rx
 154 } {10}
 155
 156 # Check that abandoning a query using the progress handler does
 157 # not cause other queries to abort. Ticket #2415.
 158 do_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 $c
 169     db progress 5 "expr 1"
 170     catch {db eval {SELECT a, b, c FROM abc} { }} msg
 171     db progress 5 "expr 0"
 172     lappend ::res $msg
 173   }
 174
 175   set ::res
 176 } {1 2 3 interrupted 4 5 6 interrupted 7 8 9 interrupted}
 177
 178 finish_test