diff options
Diffstat (limited to 'test')
-rw-r--r-- | test/altertab.test | 66 | ||||
-rw-r--r-- | test/auth.test | 2 |
2 files changed, 35 insertions, 33 deletions
diff --git a/test/altertab.test b/test/altertab.test index 872f44b26..d77fe4de2 100644 --- a/test/altertab.test +++ b/test/altertab.test @@ -209,42 +209,44 @@ do_catchsql_test 5.6 { #------------------------------------------------------------------------- -register_tcl_module db -proc tcl_command {method args} { - switch -- $method { - xConnect { - return "CREATE TABLE t1(a, b, c)" +ifcapable vtab { + register_tcl_module db + proc tcl_command {method args} { + switch -- $method { + xConnect { + return "CREATE TABLE t1(a, b, c)" + } } + return {} } - return {} -} - -do_execsql_test 6.0 { - CREATE VIRTUAL TABLE x1 USING tcl(tcl_command); + + do_execsql_test 6.0 { + CREATE VIRTUAL TABLE x1 USING tcl(tcl_command); + } + + do_execsql_test 6.1 { + ALTER TABLE x1 RENAME TO x2; + SELECT sql FROM sqlite_master WHERE name = 'x2' + } {{CREATE VIRTUAL TABLE "x2" USING tcl(tcl_command)}} + + do_execsql_test 7.1 { + CREATE TABLE ddd(db, sql, zOld, zNew, bTemp); + INSERT INTO ddd VALUES( + 'main', 'CREATE TABLE x1(i INTEGER, t TEXT)', 'ddd', NULL, 0 + ), ( + 'main', 'CREATE TABLE x1(i INTEGER, t TEXT)', NULL, 'eee', 0 + ), ( + 'main', NULL, 'ddd', 'eee', 0 + ); + } {} + + do_execsql_test 7.2 { + SELECT + sqlite_rename_table(db, 0, 0, sql, zOld, zNew, bTemp) + FROM ddd; + } {{} {} {}} } -do_execsql_test 6.1 { - ALTER TABLE x1 RENAME TO x2; - SELECT sql FROM sqlite_master WHERE name = 'x2' -} {{CREATE VIRTUAL TABLE "x2" USING tcl(tcl_command)}} - -do_execsql_test 7.1 { - CREATE TABLE ddd(db, sql, zOld, zNew, bTemp); - INSERT INTO ddd VALUES( - 'main', 'CREATE TABLE x1(i INTEGER, t TEXT)', 'ddd', NULL, 0 - ), ( - 'main', 'CREATE TABLE x1(i INTEGER, t TEXT)', NULL, 'eee', 0 - ), ( - 'main', NULL, 'ddd', 'eee', 0 - ); -} {} - -do_execsql_test 7.2 { - SELECT - sqlite_rename_table(db, 0, 0, sql, zOld, zNew, bTemp) - FROM ddd; -} {{} {} {}} - #------------------------------------------------------------------------- # reset_db diff --git a/test/auth.test b/test/auth.test index 219ac7804..30c13c89c 100644 --- a/test/auth.test +++ b/test/auth.test @@ -2144,7 +2144,7 @@ ifcapable {cte} { # MAIN: CREATE TABLE sqlite_stat1(tbl,idx,stat); # MAIN: CREATE TABLE t1(a,b); # -ifcapable altertable { +ifcapable altertable&&vtab { do_test 1.350 { proc auth {code arg1 arg2 arg3 arg4 args} { if {$code=="SQLITE_ALTER_TABLE"} { |