1# 2005 September 17 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# This file implements regression tests for SQLite library. Specifically. 12# it contains tests to verify that ticket #2285 has been fixed. 13# 14# $Id: tkt2285.test,v 1.2 2008/07/12 14:52:20 drh Exp $ 15 16set testdir [file dirname $argv0] 17source $testdir/tester.tcl 18 19ifcapable !tempdb { 20 finish_test 21 return 22} 23 24do_test tkt2285-1.1 { 25 execsql { 26 PRAGMA locking_mode = EXCLUSIVE; 27 } 28 execsql { 29 BEGIN; 30 CREATE TABLE abc(a, b, c); 31 ROLLBACK; 32 } 33} {} 34 35do_test tkt2285-1.2 { 36 execsql { 37 SELECT * FROM sqlite_master; 38 } 39} {} 40 41ifcapable tempdb { 42 do_test tkt2285-2.1 { 43 execsql { 44 BEGIN; 45 CREATE TEMP TABLE abc(a, b, c); 46 ROLLBACK; 47 } 48 } {} 49 do_test tkt2285-2.2 { 50 execsql { 51 SELECT * FROM sqlite_temp_master; 52 } 53 } {} 54} 55 56finish_test 57