# 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