# 2018 October 6 # # 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. # #************************************************************************* # set testdir [file dirname $argv0] source $testdir/tester.tcl # If SQLITE_OMIT_ALTERTABLE is defined, omit this file. ifcapable !altertable { finish_test return } set testprefix alterauth2 set ::auth [list] proc xAuth {type args} { lappend ::auth [concat $type [lrange $args 0 3]] if {$type=="SQLITE_READ" && [lindex $args 0] == "t2"} breakpoint return SQLITE_OK } db auth xAuth proc do_auth_test {tn sql authcode} { set script " set ::auth \[list\] execsql {$sql} lsort -unique \[set ::auth\] " set normal [list {*}$authcode] uplevel [list do_test $tn $script $normal] } do_execsql_test 1.0 { CREATE TABLE t1(a, b, c); CREATE VIEW v1 AS SELECT * FROM t1; CREATE TRIGGER tr1 AFTER INSERT ON t1 BEGIN DELETE FROM t1 WHERE a