Index: third_party/sqlite/sqlite-src-3100200/ext/rbu/rbudiff.test |
diff --git a/third_party/sqlite/sqlite-src-3100200/ext/rbu/rbudiff.test b/third_party/sqlite/sqlite-src-3100200/ext/rbu/rbudiff.test |
deleted file mode 100644 |
index 10be9e0d5328461a2828d16531b6a98720509305..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3100200/ext/rbu/rbudiff.test |
+++ /dev/null |
@@ -1,150 +0,0 @@ |
-# 2015-07-31 |
-# |
-# 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. |
-# |
-#*********************************************************************** |
-# |
-# Tests for the [sqldiff --rbu] command. |
-# |
-# |
-if {![info exists testdir]} { |
- set testdir [file join [file dirname [info script]] .. .. test] |
-} |
-source $testdir/tester.tcl |
-set testprefix rbudiff |
- |
-if {$tcl_platform(platform)=="windows"} { |
- set PROG "sqldiff.exe" |
-} else { |
- set PROG "./sqldiff" |
-} |
-if {![file exe $PROG]} { |
- puts "rbudiff.test cannot run because $PROG is not available" |
- finish_test |
- return |
-} |
-db close |
- |
-proc get_rbudiff_sql {db1 db2} { |
- exec $::PROG --rbu $db1 $db2 |
-} |
- |
-proc step_rbu {target rbu} { |
- while 1 { |
- sqlite3rbu rbu $target $rbu |
- set rc [rbu step] |
- rbu close |
- if {$rc != "SQLITE_OK"} break |
- } |
- set rc |
-} |
- |
-proc apply_rbudiff {sql target} { |
- forcedelete rbu.db |
- sqlite3 rbudb rbu.db |
- rbudb eval $sql |
- rbudb close |
- step_rbu $target rbu.db |
-} |
- |
-proc rbudiff_cksum {db1} { |
- set txt "" |
- |
- sqlite3 dbtmp $db1 |
- foreach tbl [dbtmp eval {SELECT name FROM sqlite_master WHERE type='table'}] { |
- set cols [list] |
- dbtmp eval "PRAGMA table_info = $tbl" { lappend cols "quote( $name )" } |
- append txt [dbtmp eval \ |
- "SELECT [join $cols {||'.'||}] FROM $tbl ORDER BY 1" |
- ] |
- } |
- dbtmp close |
- |
- md5 $txt |
-} |
- |
-foreach {tn init mod} { |
- 1 { |
- CREATE TABLE t1(a PRIMARY KEY, b, c); |
- INSERT INTO t1 VALUES(1, 2, 3); |
- INSERT INTO t1 VALUES(4, 5, 6); |
- |
- CREATE TABLE t2(a, b, c, PRIMARY KEY(b, c)); |
- INSERT INTO t2 VALUES(1, 2, 3); |
- INSERT INTO t2 VALUES(4, 5, 6); |
- } { |
- INSERT INTO t1 VALUES(7, 8, 9); |
- DELETE FROM t1 WHERE a=4; |
- UPDATE t1 SET c = 11 WHERE a = 1; |
- |
- INSERT INTO t2 VALUES(7, 8, 9); |
- DELETE FROM t2 WHERE a=4; |
- UPDATE t2 SET c = 11 WHERE a = 1; |
- } |
- |
- 2 { |
- CREATE TABLE t1(a, b, c, PRIMARY KEY(a, b, c)); |
- INSERT INTO t1 VALUES('u', 'v', 'w'); |
- INSERT INTO t1 VALUES('x', 'y', 'z'); |
- } { |
- DELETE FROM t1 WHERE a='u'; |
- INSERT INTO t1 VALUES('a', 'b', 'c'); |
- } |
- |
- 3 { |
- CREATE TABLE t1(i INTEGER PRIMARY KEY, x); |
- INSERT INTO t1 VALUES(1, |
- X'0000000000000000111111111111111122222222222222223333333333333333' |
- ); |
- CREATE TABLE t2(y INTEGER PRIMARY KEY, x); |
- INSERT INTO t2 VALUES(1, |
- X'0000000000000000111111111111111122222222222222223333333333333333' |
- ); |
- } { |
- DELETE FROM t1; |
- INSERT INTO t1 VALUES(1, |
- X'0000000000000000111111111111111122222555555552223333333333333333' |
- ); |
- DELETE FROM t2; |
- INSERT INTO t2 VALUES(1, |
- X'0000000000000000111111111111111122222222222222223333333FFF333333' |
- ); |
- } |
- |
-} { |
- catch { db close } |
- |
- forcedelete test.db test.db2 |
- sqlite3 db test.db |
- db eval "$init" |
- sqlite3 db test.db2 |
- db eval "$init ; $mod" |
- db close |
- |
- do_test 1.$tn.2 { |
- set sql [get_rbudiff_sql test.db test.db2] |
- apply_rbudiff $sql test.db |
- } {SQLITE_DONE} |
- do_test 1.$tn.3 { rbudiff_cksum test.db } [rbudiff_cksum test.db2] |
- |
- forcedelete test.db test.db2 |
- sqlite3 db test.db |
- db eval "$init ; $mod" |
- sqlite3 db test.db2 |
- db eval "$init" |
- db close |
- |
- do_test 1.$tn.4 { |
- set sql [get_rbudiff_sql test.db test.db2] |
- apply_rbudiff $sql test.db |
- } {SQLITE_DONE} |
- do_test 1.$tn.5 { rbudiff_cksum test.db } [rbudiff_cksum test.db2] |
-} |
- |
-finish_test |
- |