Changes to pager1.test to support Windows.

FossilOrigin-Name: fce689ebe6165276598539779958407856e2f84f

manifest

@@ -1,5 +1,5 @@
-C Modified\sthe\sxWrite()\smethod\son\sWindows\sto\sdifferentiate\sbetween\sIO\sand\sdisk\sfull\serror\sreturns.
-D 2010-07-06T20:33:48
+C Changes\sto\spager1.test\sto\ssupport\sWindows.
+D 2010-07-06T20:34:37
 F Makefile.arm-wince-mingw32ce-gcc fcd5e9cd67fe88836360bb4f9ef4cb7f8e2fb5a0
 F Makefile.in a5cad1f8f3e021356bfcc6c77dc16f6f1952bbc3
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -535,7 +535,7 @@ F test/notify3.test 7eeba3628c4e707c004b72a2489c48fbdbc5c2ee
 F test/notnull.test cc7c78340328e6112a13c3e311a9ab3127114347
 F test/null.test a8b09b8ed87852742343b33441a9240022108993
 F test/openv2.test af02ed0a9cbc0d2a61b8f35171d4d117e588e4ec
-F test/pager1.test 1fc67606e4c2e9cef17aa0c6f6fceae0fffaa9f3
+F test/pager1.test c3a0c973a5b5a5a21376957bdf963c3a3cae9a8b
 F test/pager2.test f5c757c271ce642d36a393ecbfb3aef1c240dcef
 F test/pagerfault.test 7d16f91a88e79c369d59b019615f3472297213f9
 F test/pagerfault2.test 1f79ea40d1133b2683a2f811b00f2399f7ec2401
@@ -830,7 +830,7 @@ F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F tool/speedtest8.c 2902c46588c40b55661e471d7a86e4dd71a18224
 F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
 F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f
-P fb09152db879211986a7161a96a61da1425f79ef
-R 0b6dc6b694f3458c5bb423752bff8197
+P ca4b7ffbd44937a02ae62d606f9e1eb767075c22
+R 9dac4f118d93a681ec7e69da5fc4299f
 U shaneh
-Z 47ae047b82aac3b6a4529d83b7b2a192
+Z a18577a19791c35fdb03ec55b987f2e6

manifest.uuid

@@ -1 +1 @@
-ca4b7ffbd44937a02ae62d606f9e1eb767075c22
+fce689ebe6165276598539779958407856e2f84f

test/pager1.test

@@ -536,6 +536,10 @@ foreach {tn1 tcl} {
     # make sure SQLite doesn't get confused by this.
     #
     set nPadding [expr 511 - $::mj_filename_length]
+    if {$tcl_platform(platform)=="windows"} {
+      # TBD need to figure out how to do this correctly for Windows!!!
+      set nPadding [expr 255 - $::mj_filename_length]
+    }
 
     # We cannot just create a really long database file name to open, as
     # Linux limits a single component of a path to 255 bytes by default
@@ -1284,6 +1288,7 @@ do_test pager1-9.4.1 {
 do_test pager1-9.4.2 {
   list [file size test.db2] [file size test.db]
 } {0 0}
+db2 close
 
 #-------------------------------------------------------------------------
 # Test that regardless of the value returned by xSectorSize(), the