Add a test case to malloc.test. (CVS 4456)

FossilOrigin-Name: 7d3f0b149bd2b9c7c12aabb93d022c0ea26f0d74

diff --git a/manifest b/manifest
index b7505325945f06f90da35341d88b31275f549b77..d7dedc68a5c8ddfcdfea8c11e269ecfe33468934 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Fix\sa\sproblem\sin\stest\sscript\smalloc5.test.\s(CVS\s4455)
-D 2007-10-03T09:43:55
+C Add\sa\stest\scase\sto\smalloc.test.\s(CVS\s4456)
+D 2007-10-03T15:02:40
 F Makefile.in cbfb898945536a8f9ea8b897e1586dd1fdbcc5db
 F Makefile.linux-gcc 65241babba6faf1152bf86574477baab19190499
 F README 9c4e2d6706bdcc3efdd773ce752a8cdab4f90028
@@ -349,7 +349,7 @@ F test/lock2.test 5f9557b775662c2a5ee435378f39e10d64f65cb3
 F test/lock3.test 615111293cf32aa2ed16d01c6611737651c96fb9
 F test/lock4.test f358fa835dff485d462072eee991111f09e87441
 F test/main.test 05f585bb70c05caac3e047903b517cbb319ed204
-F test/malloc.test 17366a4f76e7aac14cd709e8209ef840cd497410
+F test/malloc.test fc062a1233cc0d139a6058caf1b2129bb73f86a1
 F test/malloc2.test 1506ab3a4490b38b8850a6fa3e12591235179872
 F test/malloc3.test cf2efe9d16194276f227f34ac341019e013fb17d
 F test/malloc4.test f0e5e0f639f61e2776a6c3f5308f836b3ad8b3c7
@@ -580,7 +580,7 @@ F www/tclsqlite.tcl 8be95ee6dba05eabcd27a9d91331c803f2ce2130
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl fc46eae081251c3c181bd79c5faef8195d7991a5
-P 12eca32a6a3d68d5b20eed03afdffe7599e66014
-R ab778c4ccea4851cfb45b8ff8e4ecac9
+P 028ec36c71d6ac43c8f1cda77578d844c6955f68
+R e25e9198e045e9322e20cf6ddf2e312b
 U danielk1977
-Z 0b2e370c486d9ff351342955af404557
+Z 714be4396c475700cdae911b78c710f2

diff --git a/manifest.uuid b/manifest.uuid
index afd09128df9ff6584dc0cda9a81070d8130e7568..69682f174e96090c1285332b872c5b81d528636e 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-028ec36c71d6ac43c8f1cda77578d844c6955f68
\ No newline at end of file
+7d3f0b149bd2b9c7c12aabb93d022c0ea26f0d74
\ No newline at end of file

diff --git a/test/malloc.test b/test/malloc.test
index 036ebc05c89750c8906a8945e8fbe5cd4ce9f2b4..379dd462686f87653a9854036b9d444f0a982f21 100644 (file)
--- a/test/malloc.test
+++ b/test/malloc.test
@@ -16,7 +16,7 @@
 # to see what happens in the library if a malloc were to really fail
 # due to an out-of-memory situation.
 #
-# $Id: malloc.test,v 1.49 2007/10/03 08:46:45 danielk1977 Exp $
+# $Id: malloc.test,v 1.50 2007/10/03 15:02:40 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -520,6 +520,47 @@ do_malloc_test 22 -tclbody {
   }
 }
 
+ifcapable {pager_pragmas} {
+  # This tests a special case - that an error that occurs while the pager
+  # is trying to recover from error-state in exclusive-access mode works.
+  #
+  do_malloc_test 23 -tclprep {
+    db eval {
+      PRAGMA cache_size = 10;
+      PRAGMA locking_mode = exclusive;
+      BEGIN;
+      CREATE TABLE abc(a, b, c);
+      CREATE INDEX abc_i ON abc(a, b, c);
+      INSERT INTO abc 
+        VALUES(randstr(100,100), randstr(100,100), randstr(100,100));
+      INSERT INTO abc 
+        SELECT randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
+      INSERT INTO abc 
+        SELECT randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
+      INSERT INTO abc 
+        SELECT randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
+      INSERT INTO abc 
+        SELECT randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
+      INSERT INTO abc 
+        SELECT randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
+      COMMIT;
+    }
+  
+    # This puts the pager into error state.
+    #
+    db eval BEGIN
+    db eval {UPDATE abc SET a = 0 WHERE oid%2}
+    set ::sqlite_io_error_pending 10
+    catch {db eval {ROLLBACK}} msg
+
+  } -sqlbody {
+    SELECT * FROM abc LIMIT 10;
+  } -cleanup {
+    set e [db eval {PRAGMA integrity_check}]
+    if {$e ne "ok"} {error $e}
+  }
+}
+
 # Ensure that no file descriptors were leaked.
 do_test malloc-99.X {
   catch {db close}