Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(92)

Unified Diff: third_party/sqlite/sqlite-src-3080704/test/bc_common.tcl

Issue 2363173002: [sqlite] Remove obsolete reference version 3.8.7.4. (Closed)
Patch Set: Created 4 years, 3 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View side-by-side diff with in-line comments
Download patch
Index: third_party/sqlite/sqlite-src-3080704/test/bc_common.tcl
diff --git a/third_party/sqlite/sqlite-src-3080704/test/bc_common.tcl b/third_party/sqlite/sqlite-src-3080704/test/bc_common.tcl
deleted file mode 100644
index eb9b6db9d3536ef9bbbe7d4eb7e03d2042967c3b..0000000000000000000000000000000000000000
--- a/third_party/sqlite/sqlite-src-3080704/test/bc_common.tcl
+++ /dev/null
@@ -1,72 +0,0 @@
-
-
-
-proc bc_find_binaries {zCaption} {
- # Search for binaries to test against. Any executable files that match
- # our naming convention are assumed to be testfixture binaries to test
- # against.
- #
- set binaries [list]
- set pattern "[file tail [info nameofexec]]?*"
- if {$::tcl_platform(platform)=="windows"} {
- set pattern [string map {\.exe {}} $pattern]
- }
- foreach file [glob -nocomplain $pattern] {
- if {[file executable $file] && [file isfile $file]} {lappend binaries $file}
- }
-
- if {[llength $binaries]==0} {
- puts "WARNING: No historical binaries to test against."
- puts "WARNING: Omitting backwards-compatibility tests"
- }
-
- foreach bin $binaries {
- puts -nonewline "Testing against $bin - "
- flush stdout
- puts "version [get_version $bin]"
- }
-
- set ::BC(binaries) $binaries
- return $binaries
-}
-
-proc get_version {binary} {
- set chan [launch_testfixture $binary]
- set v [testfixture $chan { sqlite3 -version }]
- close $chan
- set v
-}
-
-proc do_bc_test {bin script} {
-
- forcedelete test.db
- set ::bc_chan [launch_testfixture $bin]
-
- proc code1 {tcl} { uplevel #0 $tcl }
- proc code2 {tcl} { testfixture $::bc_chan $tcl }
- proc sql1 sql { code1 [list db eval $sql] }
- proc sql2 sql { code2 [list db eval $sql] }
-
- code1 { sqlite3 db test.db }
- code2 { sqlite3 db test.db }
-
- set bintag [string map {testfixture {}} $bin]
- set bintag [string map {\.exe {}} $bintag]
- if {$bintag == ""} {set bintag self}
- set saved_prefix $::testprefix
- append ::testprefix ".$bintag"
-
- uplevel $script
-
- set ::testprefix $saved_prefix
-
- catch { code1 { db close } }
- catch { code2 { db close } }
- catch { close $::bc_chan }
-}
-
-proc do_all_bc_test {script} {
- foreach bin $::BC(binaries) {
- uplevel [list do_bc_test $bin $script]
- }
-}
« no previous file with comments | « third_party/sqlite/sqlite-src-3080704/test/badutf2.test ('k') | third_party/sqlite/sqlite-src-3080704/test/between.test » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698