Import SQLite 3.8.7.4.

third_party/sqlite/src/test/sync.test

 # 2005 August 28
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
 # This file implements regression tests for SQLite library.
 #
 # This file implements tests to verify that fsync is disabled when
 # pragma synchronous=off even for multi-database commits.
 #
 # $Id: sync.test,v 1.6 2007/10/09 08:29:33 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 #
-# These tests are only applicable on unix when pager pragma are
+# These tests are only applicable when pager pragma are
 # enabled. Also, since every test uses an ATTACHed database, they
 # are only run when ATTACH is enabled.
 #
-if {$::tcl_platform(platform)!="unix"} {
-  finish_test
-  return
-}
 ifcapable !pager_pragmas||!attach {
   finish_test
   return
 }
 
+set sqlite_sync_count 0
+proc cond_incr_sync_count {adj} {
+  global sqlite_sync_count
+  if {$::tcl_platform(platform) == "windows"} {
+    incr sqlite_sync_count $adj
+  } {
+    ifcapable !dirsync {
+      incr sqlite_sync_count $adj
+    }
+  }
+}
+
 do_test sync-1.1 {
   set sqlite_sync_count 0
-  file delete -force test2.db
-  file delete -force test2.db-journal
+  forcedelete test2.db
+  forcedelete test2.db-journal
   execsql {
     PRAGMA fullfsync=OFF;
     CREATE TABLE t1(a,b);
     ATTACH DATABASE 'test2.db' AS db2;
     CREATE TABLE db2.t2(x,y);
   }
-  ifcapable !dirsync {
-    incr sqlite_sync_count 2
-  }
+  cond_incr_sync_count 2
   set sqlite_sync_count
 } 8
 ifcapable pager_pragmas {
   do_test sync-1.2 {
     set sqlite_sync_count 0
     execsql {
       PRAGMA main.synchronous=on;
       PRAGMA db2.synchronous=on;
       BEGIN;
       INSERT INTO t1 VALUES(1,2);
       INSERT INTO t2 VALUES(3,4);
       COMMIT;
     }
-    ifcapable !dirsync {
-      incr sqlite_sync_count 3
-    }
+    cond_incr_sync_count 3
     set sqlite_sync_count
   } 8
 }
 do_test sync-1.3 {
   set sqlite_sync_count 0
   execsql {
     PRAGMA main.synchronous=full;
     PRAGMA db2.synchronous=full;
     BEGIN;
     INSERT INTO t1 VALUES(3,4);
     INSERT INTO t2 VALUES(5,6);
     COMMIT;
   }
-  ifcapable !dirsync {
-    incr sqlite_sync_count 3
-  }
+  cond_incr_sync_count 3
   set sqlite_sync_count
 } 10
 ifcapable pager_pragmas {
   do_test sync-1.4 {
     set sqlite_sync_count 0
     execsql {
       PRAGMA main.synchronous=off;
       PRAGMA db2.synchronous=off;
       BEGIN;
       INSERT INTO t1 VALUES(5,6);
       INSERT INTO t2 VALUES(7,8);
       COMMIT;
     }
     set sqlite_sync_count
   } 0
 }
 
 
 finish_test