diff options
| author | Cy Schubert <cy@FreeBSD.org> | 2021-05-06 20:08:52 +0000 |
|---|---|---|
| committer | Cy Schubert <cy@FreeBSD.org> | 2021-05-06 20:08:52 +0000 |
| commit | 8b10604cd15958e62b9d4eb62bcb925272583db1 (patch) | |
| tree | f18f8ed9fdfeeca2b9c856949a4cae7057ed84a6 /test/analyzer1.test | |
| parent | eccd5a4d3926c0716dd11bdf3242da56116f68c6 (diff) | |
Diffstat (limited to 'test/analyzer1.test')
| -rw-r--r-- | test/analyzer1.test | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/test/analyzer1.test b/test/analyzer1.test deleted file mode 100644 index 51b5f8b6af52..000000000000 --- a/test/analyzer1.test +++ /dev/null @@ -1,55 +0,0 @@ -# 2015-05-11 -# -# 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. -# -#*********************************************************************** -# -# Quick tests for the sqlite3_analyzer tool -# -set testdir [file dirname $argv0] -source $testdir/tester.tcl - -ifcapable !vtab { - finish_test - return -} - -if {$tcl_platform(platform)=="windows"} { - set PROG "sqlite3_analyzer.exe" -} else { - set PROG "./sqlite3_analyzer" -} -if {![file exe $PROG]} { - set PROG [file normalize [file join $::cmdlinearg(TESTFIXTURE_HOME) $PROG]] - if {![file exe $PROG]} { - puts "analyzer1 cannot run because $PROG is not available" - finish_test - return - } -} -db close -forcedelete test.db test.db-journal test.db-wal -sqlite3 db test.db - -do_test analyzer1-1.0 { - db eval { - CREATE TABLE t1(a INTEGER PRIMARY KEY, b); - CREATE TABLE t2(a INT PRIMARY KEY, b) WITHOUT ROWID; - WITH RECURSIVE c(x) AS (VALUES(1) UNION ALL SELECT x+1 FROM c WHERE x<250) - INSERT INTO t1(a,b) SELECT x, randomblob(200) FROM c; - INSERT INTO t2(a,b) SELECT a, b FROM t1; - } - set line "exec $PROG test.db" - unset -nocomplain ::MSG - catch {eval $line} ::MSG -} {0} -do_test analyzer1-1.1 { - regexp {^/\*\* Disk-Space Utilization.*COMMIT;\W*$} $::MSG -} {1} - -finish_test |
