77 lines
		
	
	
		
			1.9 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			77 lines
		
	
	
		
			1.9 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| # 2007 September 5
 | |
| #
 | |
| # The author disclaims copyright to this source code.  In place of
 | |
| # a legal notice, here is a blessing:
 | |
| #
 | |
| #    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.
 | |
| #
 | |
| #***********************************************************************
 | |
| #
 | |
| # The focus of this file is testing the code in test_async.c.
 | |
| # Specifically, it tests that the xFullPathname() method of
 | |
| # of the asynchronous vfs works correctly.
 | |
| #
 | |
| # $Id: async3.test,v 1.5 2009/04/25 08:39:15 danielk1977 Exp $
 | |
| 
 | |
| set testdir [file dirname $argv0]
 | |
| source $testdir/tester.tcl
 | |
| 
 | |
| if { [info commands sqlite3async_initialize]==""  } {
 | |
|   # The async logic is not built into this system
 | |
|   puts "Skipping async3 tests: not compiled with required features"
 | |
|   finish_test
 | |
|   return
 | |
| }
 | |
| 
 | |
| db close
 | |
| sqlite3async_initialize "" 1
 | |
| #set sqlite3async_trace 1
 | |
| sqlite3async_start
 | |
| 
 | |
| set paths {
 | |
|   chocolate/banana/vanilla/file.db
 | |
|   chocolate//banana/vanilla/file.db
 | |
|   chocolate/./banana//vanilla/file.db
 | |
|   chocolate/banana/./vanilla/file.db
 | |
|   chocolate/banana/../banana/vanilla/file.db
 | |
|   chocolate/banana/./vanilla/extra_bit/../file.db
 | |
| }
 | |
| 
 | |
| do_test async3-1.0 {
 | |
|   file mkdir [file join chocolate banana vanilla]
 | |
|   forcedelete chocolate/banana/vanilla/file.db
 | |
|   forcedelete chocolate/banana/vanilla/file.db-journal
 | |
| } {}
 | |
| 
 | |
| do_test async3-1.1 {
 | |
|   sqlite3 db chocolate/banana/vanilla/file.db
 | |
|   execsql {
 | |
|     CREATE TABLE abc(a, b, c);
 | |
|     BEGIN;
 | |
|     INSERT INTO abc VALUES(1, 2, 3);
 | |
|   }
 | |
| } {}
 | |
| 
 | |
| set N 2
 | |
| foreach p $paths {
 | |
|   sqlite3 db2 $p
 | |
|   do_test async3-1.$N.1 {
 | |
|     execsql {SELECT * FROM abc} db2
 | |
|   } {}
 | |
|   do_test async3-1.$N.2 {
 | |
|     catchsql {INSERT INTO abc VALUES(4, 5, 6)} db2
 | |
|   } {1 {database is locked}}
 | |
|   db2 close
 | |
|   incr N
 | |
| }
 | |
| 
 | |
| db close
 | |
| 
 | |
| sqlite3async_control halt idle
 | |
| sqlite3async_wait
 | |
| sqlite3async_control halt never
 | |
| sqlite3async_shutdown
 | |
| finish_test
 | 
