Index: third_party/sqlite/src/ext/rbu/rbu5.test |
diff --git a/third_party/sqlite/src/ext/rbu/rbu5.test b/third_party/sqlite/src/ext/rbu/rbu5.test |
index 9a0f17bc5d72be90af9577a80275057aac8ae513..8e4ae8cb695d6072ea6978aa7d3ded68895fdd8e 100644 |
--- a/third_party/sqlite/src/ext/rbu/rbu5.test |
+++ b/third_party/sqlite/src/ext/rbu/rbu5.test |
@@ -12,35 +12,10 @@ |
# Test some properties of the pager_rbu_mode and rbu_mode pragmas. |
# |
-if {![info exists testdir]} { |
- set testdir [file join [file dirname [info script]] .. .. test] |
-} |
-source $testdir/tester.tcl |
+source [file join [file dirname [info script]] rbu_common.tcl] |
set ::testprefix rbu5 |
-# Run the RBU in file $rbu on target database $target until completion. |
-# |
-proc run_rbu {target rbu} { |
- sqlite3rbu rbu $target $rbu |
- while { [rbu step]=="SQLITE_OK" } {} |
- rbu close |
-} |
- |
- |
-# Run the RBU in file $rbu on target database $target one step at a |
-# time until completion. |
-# |
-proc step_rbu {target rbu} { |
- while 1 { |
- sqlite3rbu rbu $target $rbu |
- set rc [rbu step] |
- rbu close |
- if {$rc != "SQLITE_OK"} break |
- } |
- set rc |
-} |
- |
# Return a list of the primary key columns for table $tbl in the database |
# opened by database handle $db. |
# |