/ Check-in [fce689eb]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Changes to pager1.test to support Windows.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: fce689ebe6165276598539779958407856e2f84f
User & Date: shaneh 2010-07-06 20:34:37
Context
2010-07-06
20:37
Minor changes to Makefile.in to bring it more inline with main.mk. check-in: 5621862b user: shaneh tags: trunk
20:34
Changes to pager1.test to support Windows. check-in: fce689eb user: shaneh tags: trunk
20:33
Modified the xWrite() method on Windows to differentiate between IO and disk full error returns. check-in: ca4b7ffb user: shaneh tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/pager1.test.

   532    532       # This test depends on the underlying VFS being able to open paths
   533    533       # 512 bytes in length. The idea is to create a hot-journal file that
   534    534       # contains a master-journal pointer so large that it could contain
   535    535       # a valid page record (if the file page-size is 512 bytes). So as to
   536    536       # make sure SQLite doesn't get confused by this.
   537    537       #
   538    538       set nPadding [expr 511 - $::mj_filename_length]
          539  +    if {$tcl_platform(platform)=="windows"} {
          540  +      # TBD need to figure out how to do this correctly for Windows!!!
          541  +      set nPadding [expr 255 - $::mj_filename_length]
          542  +    }
   539    543   
   540    544       # We cannot just create a really long database file name to open, as
   541    545       # Linux limits a single component of a path to 255 bytes by default
   542    546       # (and presumably other systems have limits too). So create a directory
   543    547       # hierarchy to work in.
   544    548       #
   545    549       set dirname "d123456789012345678901234567890/"
................................................................................
  1280   1284     } db2
  1281   1285     sqlite3_backup B db2 main db main
  1282   1286     list [B step 10000] [B finish]
  1283   1287   } {SQLITE_DONE SQLITE_OK}
  1284   1288   do_test pager1-9.4.2 {
  1285   1289     list [file size test.db2] [file size test.db]
  1286   1290   } {0 0}
         1291  +db2 close
  1287   1292   
  1288   1293   #-------------------------------------------------------------------------
  1289   1294   # Test that regardless of the value returned by xSectorSize(), the
  1290   1295   # minimum effective sector-size is 512 and the maximum 65536 bytes.
  1291   1296   #
  1292   1297   testvfs tv -default 1
  1293   1298   foreach sectorsize {