Index: test/pager1.test ================================================================== --- test/pager1.test +++ test/pager1.test @@ -534,10 +534,14 @@ # contains a master-journal pointer so large that it could contain # a valid page record (if the file page-size is 512 bytes). So as to # 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 # (and presumably other systems have limits too). So create a directory # hierarchy to work in. @@ -1282,10 +1286,11 @@ list [B step 10000] [B finish] } {SQLITE_DONE SQLITE_OK} 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 # minimum effective sector-size is 512 and the maximum 65536 bytes. #