# 2007 Sep 3

 #

 # 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.

 #

 #***********************************************************************

 #

 # Tests on the sqlite3_open_v2() interface.

 #

 # $Id: openv2.test,v 1.1 2007/09/03 15:19:36 drh Exp $

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 db close

 file delete -force test.db test.db-journal

 do_test openv2-1.1 {

   set rc [catch {sqlite3 db test.db -create 0} msg]

   lappend rc $msg

 } {1 {unable to open database file}}

 do_test openv2-1.2 {

   info commands db

 } {}

 do_test openv2-1.3 {

   sqlite3 db test.db

   db eval {CREATE TABLE t1(x)}

   db close

   sqlite3 db test.db -readonly 1

   db eval {SELECT name FROM sqlite_master}

 } {t1}

 do_test openv2-1.4 {

   catchsql {

     INSERT INTO t1 VALUES(123)

   }

 } {1 {attempt to write a readonly database}}

 finish_test