persistentstorage/sqlite3api/TEST/TclScript/async3.test
changeset 0 08ec8eefde2f
equal deleted inserted replaced
-1:000000000000 0:08ec8eefde2f
       
     1 # 2007 September 5
       
     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 #
       
    12 # The focus of this file is testing the code in test_async.c.
       
    13 # Specifically, it tests that the xFullPathname() method of
       
    14 # of the asynchronous vfs works correctly.
       
    15 #
       
    16 # $Id: async3.test,v 1.3 2007/11/05 17:01:08 danielk1977 Exp $
       
    17 
       
    18 set testdir [file dirname $argv0]
       
    19 source $testdir/tester.tcl
       
    20 
       
    21 if { [info commands sqlite3async_enable]==""  } {
       
    22   # The async logic is not built into this system
       
    23   puts "Skipping async3 tests: not compiled with required features"
       
    24   finish_test
       
    25   return
       
    26 }
       
    27 
       
    28 db close
       
    29 sqlite3async_enable 1
       
    30 sqlite3async_start
       
    31 
       
    32 set paths {
       
    33   chocolate/banana/vanilla/file.db
       
    34   chocolate//banana/vanilla/file.db
       
    35   chocolate/./banana//vanilla/file.db
       
    36   chocolate/banana/./vanilla/file.db
       
    37   chocolate/banana/../banana/vanilla/file.db
       
    38   chocolate/banana/./vanilla/extra_bit/../file.db
       
    39 }
       
    40 
       
    41 do_test async3-1.0 {
       
    42   file mkdir [file join chocolate banana vanilla]
       
    43   file delete -force chocolate/banana/vanilla/file.db
       
    44   file delete -force chocolate/banana/vanilla/file.db-journal
       
    45 } {}
       
    46 
       
    47 do_test async3-1.1 {
       
    48   sqlite3 db chocolate/banana/vanilla/file.db
       
    49   execsql {
       
    50     CREATE TABLE abc(a, b, c);
       
    51     BEGIN;
       
    52     INSERT INTO abc VALUES(1, 2, 3);
       
    53   }
       
    54 } {}
       
    55 
       
    56 set N 2
       
    57 foreach p $paths {
       
    58   sqlite3 db2 $p
       
    59   do_test async3-1.$N.1 {
       
    60     execsql {SELECT * FROM abc} db2
       
    61   } {}
       
    62   do_test async3-1.$N.2 {
       
    63     catchsql {INSERT INTO abc VALUES(4, 5, 6)} db2
       
    64   } {1 {database is locked}}
       
    65   db2 close
       
    66   incr N
       
    67 }
       
    68 
       
    69 db close
       
    70 sqlite3async_halt idle
       
    71 sqlite3async_wait
       
    72 sqlite3async_halt never
       
    73 sqlite3async_enable 0
       
    74 finish_test