Fix the shared pager tests so that they work under windows. (CVS 3013)

FossilOrigin-Name: 4a1a9f3e9df6588bcd4da13456790fbbc58f66de

diff --git a/manifest b/manifest
index 06635976b40a6a4d0e4a0394755ae8b573c35e36..349cabf94c1de06076b49ba17687f207aeb0e7d1 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Progress\stoward\sgetting\sSQLITE_OMIT_FLOATING_POINT\sto\spass\sall\stests.\r\nTicket\s#1621\s(CVS\s3012)
-D 2006-01-23T21:37:32
+C Fix\sthe\sshared\spager\stests\sso\sthat\sthey\swork\sunder\swindows.\s(CVS\s3013)
+D 2006-01-23T21:38:03
 F Makefile.in 53841eb72e9eeb6030a8ce28c2595a92f440fd10
 F Makefile.linux-gcc 74ba0eadf88748a9ce3fd03d2a3ede2e6715baec
 F README 9c4e2d6706bdcc3efdd773ce752a8cdab4f90028
@@ -226,7 +226,7 @@ F test/select5.test 0b47058d3e916c1fc9fe81f44b438e02bade21ce
 F test/select6.test d8ea108b65607399580f2765df0aee5e464b0fd8
 F test/select7.test 1bf795b948c133a15a2a5e99d3270e652ec58ce6
 F test/server1.test e328b8e641ba8fe9273132cfef497383185dc1f5
-F test/shared.test 8f8bc93c23b45ec63e1b11b8f3d8d018af47a58b
+F test/shared.test 0ed247941236788c255b3b29b5a82d5ca71b6432
 F test/shared2.test 909fc0f0277684ed29cc1b36c8e159188aec7f28
 F test/shared_err.test 245a87e980db0042da81279fd615e70edffc20b6
 F test/sort.test 0e4456e729e5a92a625907c63dcdedfbe72c5dc5
@@ -344,7 +344,7 @@ F www/tclsqlite.tcl bb0d1357328a42b1993d78573e587c6dcbc964b9
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl a99cf5f6d8bd4d5537584a2b342f0fb9fa601d8b
 F www/whentouse.tcl 97e2b5cd296f7d8057e11f44427dea8a4c2db513
-P 4f56949bd69fed6167fa2ae115d0251e8369d796
-R 7667e8cde33a686fff6b21d82d25a4ae
+P c4c90965c98c591f601cd69c70351c20ba37218a
+R 5613994f41ad606b02c3d4c0a912b165
 U drh
-Z b0b19f0b7cf3979347798c05f1315802
+Z 8753f8001747d0ef47a6f8dba5f3dfc4

diff --git a/manifest.uuid b/manifest.uuid
index e323feadee191d5407bbe90e83e71cf7261fb2a7..391d9df6419fc4fae9bb29712817746bc27fd2d3 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-c4c90965c98c591f601cd69c70351c20ba37218a
\ No newline at end of file
+4a1a9f3e9df6588bcd4da13456790fbbc58f66de
\ No newline at end of file

diff --git a/test/shared.test b/test/shared.test
index 8eea636d9fb3bf67052939044359b4fe12f224af..86fdf8f18ee4032d3cb5877f8ccbd2648bbdfde4 100644 (file)
--- a/test/shared.test
+++ b/test/shared.test
@@ -9,7 +9,7 @@
 #
 #***********************************************************************
 #
-# $Id: shared.test,v 1.20 2006/01/23 05:50:58 danielk1977 Exp $
+# $Id: shared.test,v 1.21 2006/01/23 21:38:03 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -146,7 +146,11 @@ do_test shared-$av.2.1 {
   # Open connection db3 to the database. Use a different path to the same
   # file so that db3 does *not* share the same pager cache as db and db2
   # (there should be two open file handles).
-  sqlite3 db3 ./test.db
+  if {$::tcl_platform(platform)=="unix"} {
+    sqlite3 db3 ./test.db
+  } else {
+    sqlite3 db3 TEST.DB
+  }
   set ::sqlite_open_file_count
 } {2}
 do_test shared-$av.2.2 {
@@ -739,7 +743,11 @@ do_test shared-$av.10.2 {
 do_test shared-$av.10.3 {
   # An external connection should be able to read the database, but not
   # prepare a write operation.
-  sqlite3 db3 ./test.db
+  if {$::tcl_platform(platform)=="unix"} {
+    sqlite3 db3 ./test.db
+  } else {
+    sqlite3 db3 TEST.DB
+  }
   execsql {
     SELECT * FROM ab;
   } db3