Get `gn gen` to succeed on Windows

third_party/sqlite/src/test/savepoint4.test

+# 2008 December 15
+#
+# 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.
+#
+#***********************************************************************
+#
+# $Id: savepoint4.test,v 1.7 2009/06/09 15:25:33 danielk1977 Exp $
+
+set testdir [file dirname $argv0]
+source $testdir/tester.tcl
+
+ifcapable !crashtest {
+  finish_test
+  return
+}
+
+proc signature {} {
+  return [db eval {SELECT count(*), md5sum(x) FROM t1}]
+}
+
+set ITERATIONS 25                   ;# Number of iterations for savepoint4-1
+set ITERATIONS2 13                  ;# Number of iterations for savepoint4-2
+expr srand(0)
+
+do_test savepoint4-1 {
+  execsql {
+    PRAGMA cache_size=10;
+    BEGIN;
+    CREATE TABLE t1(x TEXT);
+    INSERT INTO t1 VALUES(randstr(10,400));
+    INSERT INTO t1 VALUES(randstr(10,400));
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    COMMIT;
+    SELECT count(*) FROM t1;
+  }
+} {1024}
+
+
+unset -nocomplain ::sig
+
+for {set ii 1} {$ii<=$ITERATIONS} {incr ii} {
+  set ::sig [signature]
+
+  for {set iDelay 1 ; set crashed 1} {$crashed} {incr iDelay} {
+
+    do_test savepoint4-1.$ii.1.$iDelay {
+      set ret [crashsql -delay $iDelay -file test.db-journal {
+        PRAGMA cache_size = 20;
+        SAVEPOINT one;
+          DELETE FROM t1 WHERE random()%2==0;
+          SAVEPOINT two;
+            INSERT INTO t1 SELECT randstr(10,10)||x FROM t1;
+           ROLLBACK TO two;
+            UPDATE t1 SET x = randstr(10, 400) WHERE random()%10;
+          RELEASE two;
+        ROLLBACK TO one;
+        RELEASE one;
+      }]
+      signature
+    } $::sig
+
+    set crashed [lindex $ret 0]
+    integrity_check savepoint4-1.$ii.1.$iDelay.integrity
+  }
+
+  do_test savepoint4-1.$ii.2 {
+    execsql {
+      DELETE FROM t1 WHERE random()%10==0;
+      INSERT INTO t1 SELECT randstr(10,10)||x FROM t1 WHERE random()%9==0;
+    }
+  } {}
+}
+
+do_test savepoint4-2 {
+  execsql {
+    PRAGMA cache_size=10;
+    DROP TABLE IF EXISTS t1;
+    BEGIN;
+    CREATE TABLE t1(x TEXT);
+    CREATE INDEX i1 ON t1(x);
+    INSERT INTO t1 VALUES(randstr(10,400));
+    INSERT INTO t1 VALUES(randstr(10,400));
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    INSERT INTO t1 SELECT randstr(10,400) FROM t1;
+    COMMIT;
+    SELECT count(*) FROM t1;
+  }
+} {256}
+
+for {set ii 1} {$ii<=$ITERATIONS2} {incr ii} {
+  set ::sig [signature]
+  set file test.db-journal
+
+  for {set iDelay 1 ; set crashed 1} {$crashed} {incr iDelay} {
+
+    do_test savepoint4-2.$ii.1.$iDelay {
+
+      set ret [crashsql -delay $iDelay -file $file {
+        SAVEPOINT one;
+          INSERT INTO t1 SELECT * FROM t1 WHERE rowid<50;
+         ROLLBACK TO one;
+          INSERT INTO t1 SELECT * FROM t1 WHERE rowid<50;
+          SAVEPOINT two;
+            DELETE FROM t1 WHERE (random()%10)==0;
+            SAVEPOINT three;
+              DELETE FROM t1 WHERE (random()%10)==0;
+              SAVEPOINT four;
+                DELETE FROM t1 WHERE (random()%10)==0;
+          RELEASE two;
+
+          SAVEPOINT three;
+            UPDATE t1 SET x = substr(x||x, 12, 100000) WHERE (rowid%12)==0;
+            SAVEPOINT four;
+              UPDATE t1 SET x = substr(x||x, 14, 100000) WHERE (rowid%14)==0;
+           ROLLBACK TO three;
+            UPDATE t1 SET x = substr(x||x, 13, 100000) WHERE (rowid%13)==0;
+          RELEASE three;
+
+        DELETE FROM t1 WHERE rowid > (
+          SELECT rowid FROM t1 ORDER BY rowid ASC LIMIT 1 OFFSET 256
+        );
+        RELEASE one;
+      }]
+
+      set crashed [lindex $ret 0]
+      if {$crashed} {
+        signature
+      } else {
+        set ::sig
+      }
+    } $::sig
+
+    integrity_check savepoint4-2.$ii.1.$iDelay.integrity
+
+    if {$crashed == 0 && $file == "test.db-journal"} {
+      set crashed 1
+      set iDelay 0
+      set file test.db
+      set ::sig [signature]
+    }
+  }
+
+  do_test savepoint4-2.$ii.2 {
+    execsql {
+      DELETE FROM t1 WHERE random()%10==0;
+      INSERT INTO t1 SELECT randstr(10,10)||x FROM t1 WHERE random()%9==0;
+    }
+  } {}
+}
+
+finish_test