AryaWu/sqlite

1# 2009 April 302#3# The author disclaims copyright to this source code.  In place of4# 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# Make sure that attaching the same database multiple times in13# shared cache mode fails.14#15# $Id: shared7.test,v 1.1 2009/04/30 13:30:33 drh Exp $16 17set testdir [file dirname $argv0]18source $testdir/tester.tcl19ifcapable !shared_cache { finish_test ; return }20 21do_test shared7-1.1 {22  set ::enable_shared_cache [sqlite3_enable_shared_cache 1]23  sqlite3_enable_shared_cache24} {1}25 26# EVIDENCE-OF: R-05098-06501 In shared cache mode, attempting to attach27# the same database file more than once results in an error.28#29do_test shared7-1.2 {30  db close31  sqlite3 db test.db32  db eval {33    CREATE TABLE t1(x);34  }35  catchsql {36    ATTACH 'test.db' AS err1;37  }38} {1 {database is already attached}}39 40do_test shared7-1.3 {41  forcedelete test2.db test2.db-journal42  db eval {43    ATTACH 'test2.db' AS test2;44    CREATE TABLE test2.t2(y);45  }46  catchsql {47    ATTACH 'test2.db' AS err2;48  }49} {1 {database is already attached}}50do_test shared7-1.4 {51  catchsql {52    ATTACH 'test.db' AS err1;53  }54} {1 {database is already attached}}55 56 57sqlite3_enable_shared_cache $::enable_shared_cache58finish_test59