Added tests trying (unsuccessfully) to reproduce ticket #304. (CVS 957)

FossilOrigin-Name: fda637f453d35b74f676997fcf056a948ccd771b

diff --git a/manifest b/manifest
index da872c9754122be87187ef5c94cd817a7ed2d959..a1f30771d0cb5acf74b7a5ef49355d7c63594e4b 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Shell\scommand-line\sparsing\senhancements\ssuggested\sby\sMike\sHall.\s(CVS\s956)
-D 2003-05-04T18:30:59
+C Added\stests\strying\s(unsuccessfully)\sto\sreproduce\sticket\s#304.\s(CVS\s957)
+D 2003-05-04T20:42:56
 F Makefile.in 004acec253ecdde985c8ecd5b7c9accdb210378f
 F Makefile.linux-gcc b86a99c493a5bfb402d1d9178dcdc4bd4b32f906
 F README f1de682fbbd94899d50aca13d387d1b3fd3be2dd
@@ -76,7 +76,7 @@ F test/btree4rb.test ae6f0438512edcb45cf483471cd6070a765963a9
 F test/capi2.test fb94bed9e236074c5e255cfd25e3e32344e24855
 F test/conflict.test 80cf3780c8686b92db4ce0f60bca46a000537327
 F test/copy.test 73df5ed3112e858e006a8b7ddb4c9bab6a25d0fb
-F test/delete.test 5821a95a66061ae09723a88938f23d10d8a881ad
+F test/delete.test 1586a00574e699a9913bc3403261813e8a93e6b9
 F test/expr.test 48bc6400627532ec97e233809e33d336468bc84c
 F test/fkey1.test d65c824459916249bee501532d6154ddab0b5db7
 F test/format3.test 64ab6c4db132b28a645996d413530f7b2a462cc2
@@ -165,7 +165,7 @@ F www/speed.tcl cb4c10a722614aea76d2c51f32ee43400d5951be
 F www/sqlite.tcl ffde644361e1d8e2a44a235ff23ad3b43d640df2
 F www/tclsqlite.tcl 1db15abeb446aad0caf0b95b8b9579720e4ea331
 F www/vdbe.tcl 2013852c27a02a091d39a766bc87cff329f21218
-P 54b33a5ed9f7a89435c2f1395a3177e8c778bb8a
-R 930631e910c36602dc612ec54d800b90
+P 5656fe48b192dc84cb5977f826ff99d81684791f
+R cdec87c4eaf662069dea6dbf74494ed5
 U drh
-Z d822521ca3d5d75a1584b57c79080393
+Z 054b394f2a79b867a0d598db2de3f85c

diff --git a/manifest.uuid b/manifest.uuid
index 1945cf089ed60b0eb4b3b2a49a50644494268d78..c9a5ceaf490042b2bc1ddc94c7bda8a5be3effb2 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-5656fe48b192dc84cb5977f826ff99d81684791f
\ No newline at end of file
+fda637f453d35b74f676997fcf056a948ccd771b
\ No newline at end of file

diff --git a/test/delete.test b/test/delete.test
index 9398a31c13083b9536a2d43997aa1aef4f7b9783..cf8fa2470a5a3cffa233cf2bb2903b65330ae609 100644 (file)
--- a/test/delete.test
+++ b/test/delete.test
@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this file is testing the DELETE FROM statement.
 #
-# $Id: delete.test,v 1.11 2002/07/19 18:52:41 drh Exp $
+# $Id: delete.test,v 1.12 2003/05/04 20:42:56 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -241,5 +241,44 @@ do_test delete-7.6 {
   }
 } {4 4}
 
+# Make sure error messages are consistent when attempting to delete
+# from a read-only database.  Ticket #304.
+#
+do_test delete-8.0 {
+  execsql {
+    PRAGMA count_changes=OFF;
+    INSERT INTO t3 VALUES(123);
+    SELECT * FROM t3;
+  }
+} {123}
+db close
+catch {file attributes test.db -permissions 0444}
+catch {file attributes test.db -readonly 1}
+sqlite db test.db
+do_test delete-8.1 {
+  catchsql {
+    DELETE FROM t3;
+  }
+} {1 {attempt to write a readonly database}}
+do_test delete-8.2 {
+  execsql {SELECT * FROM t3} 
+} {123}
+do_test delete-8.3 {
+  catchsql {
+    DELETE FROM t3 WHERE 1;
+  }
+} {1 {attempt to write a readonly database}}
+do_test delete-8.4 {
+  execsql {SELECT * FROM t3} 
+} {123}
+do_test delete-8.5 {
+  catchsql {
+    DELETE FROM t3 WHERE a<100;
+  }
+} {0 {}}
+do_test delete-8.6 {
+  execsql {SELECT * FROM t3}
+} {123}
+
 
 finish_test