Add test file tkt-d11f09d36e.test.

FossilOrigin-Name: 6e469b63fab3cd63b23110aaceccfed0587c6a87

diff --git a/manifest b/manifest
index ffff0925d5a6b5acb209776cff5794979c549474..f45c0b85bc51fd07935f51d9d9b1924481e46d9e 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,8 +1,5 @@
------BEGIN PGP SIGNED MESSAGE-----
-Hash: SHA1
-
-C Remove\sa\sNEVER()\sin\spager\sthat\scan\sin\sfact\sbe\sreached\sin\sobscure\sfailure\ncases.
-D 2010-06-26T19:02:34
+C Add\stest\sfile\stkt-d11f09d36e.test.
+D 2010-06-26T19:03:30
 F Makefile.arm-wince-mingw32ce-gcc fcd5e9cd67fe88836360bb4f9ef4cb7f8e2fb5a0
 F Makefile.in a5cad1f8f3e021356bfcc6c77dc16f6f1952bbc3
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -638,6 +635,7 @@ F test/tkt-78e04e52ea.test fb5430c675e708f5cbafdf3e7e5593da5145a527
 F test/tkt-94c04eaadb.test be5ea61cb04dfdc047d19b5c5a9e75fa3da67a7f
 F test/tkt-9d68c883.test 458f7d82a523d7644b54b497c986378a7d8c8b67
 F test/tkt-cbd054fa6b.test f14f97ea43662e6f70c9e63287081e8be5d9d589
+F test/tkt-d11f09d36e.test a08ecb8a9f05f609890ef5246a58a5987c8a54b0
 F test/tkt-d82e3f3721.test 731359dfdcdb36fea0559cd33fec39dd0ceae8e6
 F test/tkt-f777251dc7a.test 6f24c053bc5cdb7e1e19be9a72c8887cf41d5e87
 F test/tkt-f973c7ac31.test 1da0ed15ec2c7749fb5ce2828cd69d07153ad9f4
@@ -829,14 +827,7 @@ F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F tool/speedtest8.c 2902c46588c40b55661e471d7a86e4dd71a18224
 F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
 F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f
-P 56c7d111bf7013be95a4c2a657a4861eee91db91
-R d3e536e677793dc4a2d6a3e72b49ed5c
-U drh
-Z 3a3341ce7f6b879feb63d940af647551
------BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.6 (GNU/Linux)
-
-iD8DBQFMJk7NoxKgR168RlERAtsmAJsFB8BshxWkpEe/vHKKE3VzJeSzBACeLGMB
-KYcDVbjYliWmZ/AC8XpsXyw=
-=Hcc0
------END PGP SIGNATURE-----
+P 42b8bd1c70d8dbbc4a59e2fdee8654c4fe84f979
+R 97774bf066bbd0310ef632271faaf68f
+U dan
+Z 51a647aba651ede5c820d21b44089120

diff --git a/manifest.uuid b/manifest.uuid
index eb51e6cc8ef0cc68d236570210498ba0f2a77949..b508f09692afc71d2cb6f3190f58ca19ccdeb785 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-42b8bd1c70d8dbbc4a59e2fdee8654c4fe84f979
\ No newline at end of file
+6e469b63fab3cd63b23110aaceccfed0587c6a87
\ No newline at end of file

diff --git a/test/tkt-d11f09d36e.test b/test/tkt-d11f09d36e.test
new file mode 100644 (file)
index 0000000..451c453
--- /dev/null
+++ b/test/tkt-d11f09d36e.test
@@ -0,0 +1,65 @@
+# 2010 June 26
+#
+# 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.
+#
+#***********************************************************************
+#
+# Test that the bug reported by ticket d11f09d36e7cb0821e01f4 has
+# been fixed.
+#
+
+#set testdir [file dirname $argv0]
+#source $testdir/tester.tcl
+
+set testdir ../sqlite/test/
+source $testdir/tester.tcl
+
+set a_string_counter 1
+proc a_string {n} {
+  global a_string_counter
+  incr a_string_counter
+  string range [string repeat "${a_string_counter}." $n] 1 $n
+}
+db func a_string a_string
+
+do_test tkt-d11f09d36e.1 {
+  execsql {
+    PRAGMA synchronous = NORMAL;
+    PRAGMA cache_size = 10;
+    CREATE TABLE t1(x, y, UNIQUE(x, y));
+    BEGIN;
+  }
+  for {set i 0} {$i < 10000} {incr i} {
+    execsql { INSERT INTO t1 VALUES($i, $i) }
+  }
+  execsql COMMIT
+} {}
+do_test tkt-d11f09d36e.2 {
+  execsql {
+    BEGIN;
+      UPDATE t1 set x = x+10000;
+    ROLLBACK;
+  }
+} {}
+do_test tkt-d11f09d36e.3 {
+  execsql { PRAGMA integrity_check }
+} {ok}
+do_test tkt-d11f09d36e.4 {
+  execsql {
+    SAVEPOINT tr;
+      UPDATE t1 set x = x+10000;
+    ROLLBACK TO tr;
+    RELEASE tr;
+  }
+} {}
+do_test tkt-d11f09d36e.5 {
+  execsql { PRAGMA integrity_check }
+} {ok}
+
+finish_test
+