Add three new test cases to speed4p.test. Two of the three do single-row

updates based on rowid and on primary key. (CVS 4972)

FossilOrigin-Name: a2da7f9ac24ed17329ce9bde2e521a5b945e4ec2

diff --git a/manifest b/manifest
index bbd4f5215fc1b8842884c491c147c7ac87c5689b..dbb7b71623c3dd90e8d4b881f6f4df3219a2c6d6 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Fix\sa\sbug\sin\sthe\sspeed4p.test\sperformance\stesting\sscript.\s(CVS\s4971)
-D 2008-04-10T13:20:21
+C Add\sthree\snew\stest\scases\sto\sspeed4p.test.\s\sTwo\sof\sthe\sthree\sdo\ssingle-row\nupdates\sbased\son\srowid\sand\son\sprimary\skey.\s(CVS\s4972)
+D 2008-04-10T13:32:37
 F Makefile.arm-wince-mingw32ce-gcc ac5f7b2cef0cd850d6f755ba6ee4ab961b1fadf7
 F Makefile.in b861627d91df5ee422c54237aa38296954dc0151
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -445,7 +445,7 @@ F test/speed1p.test 5f79987671f930a8aa651091c2952c1782b0df83
 F test/speed2.test 53177056baf6556dcbdcf032bbdfc41c1aa74ded
 F test/speed3.test e312d7e442a5047d730569fdae2ba99bc94e1a13
 F test/speed4.test 20d8ea20bea3ca09c3ef3b5ec820a17e58e132cb
-F test/speed4p.test 9138ef0cd1b3cfcb01b070328e38908a2a1ad4d1
+F test/speed4p.test 0e51908951677de5a969b723e03a27a1c45db38b
 F test/sqllimits1.test cebd870957dbf8d931c5c9cadf757e0d31a3f71a
 F test/subquery.test 8203f85db56ba022a57a0589890090c8feed4e59
 F test/subselect.test 974e87f8fc91c5f00dd565316d396a5a6c3106c4
@@ -625,7 +625,7 @@ F www/tclsqlite.tcl 8be95ee6dba05eabcd27a9d91331c803f2ce2130
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl fc46eae081251c3c181bd79c5faef8195d7991a5
-P be7f3240c21c01509263005af2ccc3d7626fe729
-R 4ee70256885a46b43f7801b2a568c1b2
+P 80311594149af093f1719ec433a633c332a5955e
+R 91477f9b363e3127fe8f0174bc0a918e
 U drh
-Z f80c7c455e9d78456618252fd7ce58f8
+Z a1e09e21b5d00d19682913f02726b0e4

diff --git a/manifest.uuid b/manifest.uuid
index befafd9238b82be768e152ae6d22a60c400fa9fe..49e2ba82196f765fe09e8cc76bbf151c219e8437 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-80311594149af093f1719ec433a633c332a5955e
\ No newline at end of file
+a2da7f9ac24ed17329ce9bde2e521a5b945e4ec2
\ No newline at end of file

diff --git a/test/speed4p.test b/test/speed4p.test
index 850c51f1feac2e18e89bc1fec9ed7409428da702..024232e1b8afb3cae620691203d79309d9708c59 100644 (file)
--- a/test/speed4p.test
+++ b/test/speed4p.test
@@ -17,7 +17,7 @@
 #   * sub-selects
 #   * triggers
 #
-# $Id: speed4p.test,v 1.3 2008/04/10 13:20:21 drh Exp $
+# $Id: speed4p.test,v 1.4 2008/04/10 13:32:37 drh Exp $
 #
 
 set testdir [file dirname $argv0]
@@ -163,6 +163,36 @@ set script {
 }
 speed_trial_tcl speed4p-subselect1 10000 stmt $script
 
+# Single-row updates performance.
+#
+set script {
+  db eval BEGIN
+  for {set ii 1} {$ii < 10000} {incr ii} {
+    set v [expr {$ii*3}]
+    db eval {UPDATE t1 SET i=i+1 WHERE rowid=$ii}
+  }
+  db eval COMMIT
+}
+speed_trial_tcl speed4p-rowid-update 10000 stmt $script
+
+
+db eval {
+   CREATE TABLE t5(t TEXT PRIMARY KEY, i INTEGER);
+}
+speed_trial speed4p-insert-ignore 50000 row {
+  INSERT OR IGNORE INTO t5 SELECT t, i FROM t1;
+}
+
+set list [db eval {SELECT t FROM t5}]
+set script {
+  db eval BEGIN
+  foreach t $::list {
+    db eval {UPDATE t5 SET i=i+1 WHERE t=$t}
+  }
+  db eval COMMIT
+}
+speed_trial_tcl speed4p-unique-update [llength $list] stmt $script
+
 # The following block tests the speed of some DML statements that cause
 # triggers to fire.
 #