Home | History | Annotate | Download | only in test 
      1 #
      2 #    May you do good and not evil.
      3 #    May you find forgiveness for yourself and forgive others.
      4 #    May you share freely, never taking more than you give.
      5 #
      6 #***********************************************************************
      7 #
      8 # $Id: async2.test,v 1.12 2009/04/25 08:39:15 danielk1977 Exp $
      9 
     10 
     11 set testdir [file dirname $argv0]
     12 source $testdir/tester.tcl
     13 
     14 if {
     15   [info commands sqlite3async_initialize]=="" ||
     16   [info command sqlite3_memdebug_fail]==""
     17 } {
     18   # The async logic is not built into this system
     19   puts "Skipping async2 tests: not compiled with required features"
     20   finish_test
     21   return
     22 }
     23 
     24 # Enable asynchronous IO.
     25 
     26 set setup_script {
     27   CREATE TABLE counter(c);
     28   INSERT INTO counter(c) VALUES (1);
     29 } 
     30 
     31 set sql_script {
     32   BEGIN;
     33     UPDATE counter SET c = 2;
     34     CREATE TABLE t1(a PRIMARY KEY, b, c);
     35     CREATE TABLE t2(a PRIMARY KEY, b, c);
     36   COMMIT;
     37 
     38   BEGIN;
     39     UPDATE counter SET c = 3;
     40     INSERT INTO t1 VALUES('abcdefghij', 'four', 'score');
     41     INSERT INTO t2 VALUES('klmnopqrst', 'and', 'seven');
     42   COMMIT;
     43 
     44   UPDATE counter SET c = 'FIN';
     45 }
     46 
     47 db close
     48 
     49 foreach err [list ioerr malloc-transient malloc-persistent] {
     50   set ::go 10
     51   for {set n 1} {$::go} {incr n} {
     52     set ::sqlite_io_error_pending 0
     53     sqlite3_memdebug_fail -1
     54     file delete -force test.db test.db-journal
     55     sqlite3 db test.db
     56     execsql $::setup_script
     57     db close
     58   
     59     sqlite3async_initialize "" 1
     60     sqlite3 db test.db
     61     sqlite3_db_config_lookaside db 0 0 0
     62   
     63     switch -- $err {
     64       ioerr             { set ::sqlite_io_error_pending $n }
     65       malloc-persistent { sqlite3_memdebug_fail $n -repeat 1 }
     66       malloc-transient  { sqlite3_memdebug_fail $n -repeat 0 }
     67     }
     68 
     69     catchsql $::sql_script
     70     db close
     71 
     72     sqlite3async_control halt idle
     73     sqlite3async_start
     74     sqlite3async_wait
     75     sqlite3async_control halt never
     76     sqlite3async_shutdown
     77 
     78     set ::sqlite_io_error_pending 0
     79     sqlite3_memdebug_fail -1
     80 
     81     sqlite3 db test.db
     82     set c [db one {SELECT c FROM counter LIMIT 1}]
     83     switch -- $c {
     84       1 {
     85         do_test async-$err-1.1.$n {
     86           execsql {
     87             SELECT name FROM sqlite_master;
     88           }
     89         } {counter}
     90       }
     91       2 {
     92         do_test async-$err-1.2.$n.1 {
     93           execsql {
     94             SELECT * FROM t1;
     95           }
     96         } {}
     97         do_test async-$err-1.2.$n.2 {
     98           execsql {
     99             SELECT * FROM t2;
    100           }
    101         } {}
    102       }
    103       3 {
    104         do_test async-$err-1.3.$n.1 {
    105           execsql {
    106             SELECT * FROM t1;
    107           }
    108         } {abcdefghij four score}
    109         do_test async-$err-1.3.$n.2 {
    110           execsql {
    111             SELECT * FROM t2;
    112           }
    113         } {klmnopqrst and seven}
    114       }
    115       FIN {
    116         incr ::go -1
    117       }
    118     }
    119   
    120     db close
    121   }
    122 }
    123 
    124 catch {db close}
    125 
    126 finish_test
    127