mirror of https://github.com/sqlite/sqlite
81 lines
2.4 KiB
Plaintext
81 lines
2.4 KiB
Plaintext
|
# 2001 September 15
|
||
|
#
|
||
|
# 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.
|
||
|
#
|
||
|
#***********************************************************************
|
||
|
# This file implements regression tests for SQLite library. The
|
||
|
# focus of this file is testing the SELECT statement.
|
||
|
#
|
||
|
# $Id: select1.test,v 1.70 2009/05/28 01:00:56 drh Exp $
|
||
|
|
||
|
set testdir [file dirname $argv0]
|
||
|
source $testdir/tester.tcl
|
||
|
set ::testprefix fordelete
|
||
|
|
||
|
# This function returns a list of the tables or indexes opened with
|
||
|
# OP_OpenWrite instructions when the SQL statement passed as the only
|
||
|
# argument is executed. If the OPFLAG_FORDELETE flag is specified on
|
||
|
# the OP_OpenWrite, an asterix is appended to the object name. The list
|
||
|
# is sorted in [lsort] order before it is returned.
|
||
|
#
|
||
|
proc analyze_delete_program {sql} {
|
||
|
# Build a map from root page to table/index name.
|
||
|
db eval {
|
||
|
SELECT name, rootpage FROM sqlite_master
|
||
|
} {
|
||
|
set T($rootpage) $name
|
||
|
}
|
||
|
|
||
|
# Calculate the results.
|
||
|
set res [list]
|
||
|
db eval "EXPLAIN $sql" R {
|
||
|
if {$R(opcode) == "OpenWrite"} {
|
||
|
set obj $T($R(p2))
|
||
|
if {"0x$R(p5)" & 0x08} { append obj *}
|
||
|
lappend res $obj
|
||
|
}
|
||
|
}
|
||
|
|
||
|
lsort $res
|
||
|
}
|
||
|
|
||
|
proc do_adp_test {tn sql res} {
|
||
|
uplevel [list do_test $tn [list analyze_delete_program $sql] [list {*}$res]]
|
||
|
}
|
||
|
|
||
|
do_execsql_test 1.0 {
|
||
|
CREATE TABLE t1(a PRIMARY KEY, b);
|
||
|
}
|
||
|
|
||
|
foreach {tn sql res} {
|
||
|
1 { DELETE FROM t1 WHERE a=?} { sqlite_autoindex_t1_1 t1* }
|
||
|
2 { DELETE FROM t1 WHERE a=? AND b=? } { sqlite_autoindex_t1_1 t1 }
|
||
|
3 { DELETE FROM t1 WHERE a>? } { sqlite_autoindex_t1_1 t1* }
|
||
|
4 { DELETE FROM t1 WHERE rowid=? } { sqlite_autoindex_t1_1* t1 }
|
||
|
} {
|
||
|
do_adp_test 1.$tn $sql $res
|
||
|
}
|
||
|
|
||
|
do_execsql_test 2.0 {
|
||
|
CREATE TABLE t2(a, b, c);
|
||
|
CREATE INDEX t2a ON t2(a);
|
||
|
CREATE INDEX t2b ON t2(b);
|
||
|
CREATE INDEX t2c ON t2(c);
|
||
|
}
|
||
|
foreach {tn sql res} {
|
||
|
1 { DELETE FROM t2 WHERE a=?} { t2* t2a t2b* t2c* }
|
||
|
2 { DELETE FROM t2 WHERE a=? AND +b=?} { t2 t2a t2b* t2c* }
|
||
|
3 { DELETE FROM t2 WHERE a=? OR b=?} { t2 t2a* t2b* t2c* }
|
||
|
4 { DELETE FROM t2 WHERE +a=? } { t2 t2a* t2b* t2c* }
|
||
|
5 { DELETE FROM t2 WHERE rowid=? } { t2 t2a* t2b* t2c* }
|
||
|
} {
|
||
|
do_adp_test 2.$tn $sql $res
|
||
|
}
|
||
|
|
||
|
finish_test
|