#

 #    May you do good and not evil.

 #    May you find forgiveness for yourself and forgive others.

 #    May you share freely, never taking more than you give.

 #

 #***********************************************************************

 #

 # $Id: async2.test,v 1.9 2007/11/05 17:01:08 danielk1977 Exp $

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 if {

   [info commands sqlite3async_enable]=="" ||

   [info command sqlite3_memdebug_fail]==""

 } {

   # The async logic is not built into this system

   puts "Skipping async2 tests: not compiled with required features"

   finish_test

   return

 }

 # Enable asynchronous IO.

 set setup_script {

   CREATE TABLE counter(c);

   INSERT INTO counter(c) VALUES (1);

 } 

 set sql_script {

   BEGIN;

     UPDATE counter SET c = 2;

     CREATE TABLE t1(a PRIMARY KEY, b, c);

     CREATE TABLE t2(a PRIMARY KEY, b, c);

   COMMIT;

   BEGIN;

     UPDATE counter SET c = 3;

     INSERT INTO t1 VALUES('abcdefghij', 'four', 'score');

     INSERT INTO t2 VALUES('klmnopqrst', 'and', 'seven');

   COMMIT;

   UPDATE counter SET c = 'FIN';

 }

 db close

 foreach err [list ioerr malloc-transient malloc-persistent] {

   set ::go 1

   for {set n 1} {$::go} {incr n} {

     set ::sqlite_io_error_pending 0

     sqlite3_memdebug_fail -1

     file delete -force test.db test.db-journal

     sqlite3 db test.db

     execsql $::setup_script

     db close

     sqlite3async_enable 1

     sqlite3 db test.db

     switch -- $err {

       ioerr             { set ::sqlite_io_error_pending $n }

       malloc-persistent { sqlite3_memdebug_fail $n -repeat 1 }

       malloc-transient  { sqlite3_memdebug_fail $n -repeat 0 }

     }

     catchsql $::sql_script

     db close

     sqlite3async_halt idle

     sqlite3async_start

     sqlite3async_wait

     sqlite3async_halt never

     sqlite3async_enable 0

     set ::sqlite_io_error_pending 0

     sqlite3_memdebug_fail -1

     sqlite3 db test.db

     set c [db eval {SELECT c FROM counter LIMIT 1}]

     switch -- $c {

       1 {

         do_test async-$err-1.1.$n {

           execsql {

             SELECT name FROM sqlite_master;

           }

         } {counter}

       }

       2 {

         do_test async-$err-1.2.$n.1 {

           execsql {

             SELECT * FROM t1;

           }

         } {}

         do_test async-$err-1.2.$n.2 {

           execsql {

             SELECT * FROM t2;

           }

         } {}

       }

       3 {

         do_test async-$err-1.3.$n.1 {

           execsql {

             SELECT * FROM t1;

           }

         } {abcdefghij four score}

         do_test async-$err-1.3.$n.2 {

           execsql {

             SELECT * FROM t2;

           }

         } {klmnopqrst and seven}

       }

       FIN {

         set ::go 0

       }

     }

     db close

   }

 }

 catch {db close}

 sqlite3async_halt idle

 sqlite3async_start

 sqlite3async_wait

 sqlite3async_halt never

 finish_test