Return to auth3.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/auth3.test, revision 1.1

1.1     ! misho       1: # 2008 October 27
        !             2: #
        !             3: # The author disclaims copyright to this source code.  In place of
        !             4: # a legal notice, here is a blessing:
        !             5: #
        !             6: #    May you do good and not evil.
        !             7: #    May you find forgiveness for yourself and forgive others.
        !             8: #    May you share freely, never taking more than you give.
        !             9: #
        !            10: #***********************************************************************
        !            11: #
        !            12: # Test that the truncate optimization is disabled if the SQLITE_DELETE
        !            13: # authorization callback returns SQLITE_IGNORE.
        !            14: #
        !            15: # $Id: auth3.test,v 1.2 2009/05/04 01:58:31 drh Exp $
        !            16: #
        !            17: 
        !            18: set testdir [file dirname $argv0]
        !            19: source $testdir/tester.tcl
        !            20: 
        !            21: # disable this test if the SQLITE_OMIT_AUTHORIZATION macro is
        !            22: # defined during compilation.
        !            23: if {[catch {db auth {}} msg]} {
        !            24:   finish_test
        !            25:   return
        !            26: }
        !            27: 
        !            28: # Disable the statement cache for these tests.
        !            29: # 
        !            30: db cache size 0
        !            31: 
        !            32: db authorizer ::auth
        !            33: proc auth {code arg1 arg2 arg3 arg4} {
        !            34:   if {$code=="SQLITE_DELETE"} {
        !            35:     return $::authcode
        !            36:   }
        !            37:   return SQLITE_OK
        !            38: }
        !            39: 
        !            40: #--------------------------------------------------------------------------
        !            41: # The following tests - auth3-1.* - test that return values of SQLITE_DENY,
        !            42: # SQLITE_IGNORE, SQLITE_OK and <invalid> are correctly handled when returned
        !            43: # by an SQLITE_DELETE authorization callback triggered by a 
        !            44: # "DELETE FROM <table-name>" statement.
        !            45: #
        !            46: do_test auth3-1.1 {
        !            47:   execsql {
        !            48:     CREATE TABLE t1(a,b,c);
        !            49:     INSERT INTO t1 VALUES(1, 2, 3);
        !            50:     INSERT INTO t1 VALUES(4, 5, 6);
        !            51:   }
        !            52: } {}
        !            53: do_test auth3.1.2 {
        !            54:   set ::authcode SQLITE_DENY
        !            55:   catchsql { DELETE FROM t1 }
        !            56: } {1 {not authorized}}
        !            57: do_test auth3.1.3 {
        !            58:   set ::authcode SQLITE_INVALID
        !            59:   catchsql { DELETE FROM t1 }
        !            60: } {1 {authorizer malfunction}}
        !            61: do_test auth3.1.4 {
        !            62:   execsql { SELECT * FROM t1 }
        !            63: } {1 2 3 4 5 6}
        !            64: do_test auth3-1.5 {
        !            65:   set ::authcode SQLITE_IGNORE
        !            66:   execsql { 
        !            67:     DELETE FROM t1;
        !            68:     SELECT * FROM t1;
        !            69:   }
        !            70: } {}
        !            71: do_test auth3-1.6 {
        !            72:   set ::authcode SQLITE_OK
        !            73:   execsql {
        !            74:     INSERT INTO t1 VALUES(1, 2, 3);
        !            75:     INSERT INTO t1 VALUES(4, 5, 6);
        !            76:     DELETE FROM t1;
        !            77:     SELECT * FROM t1;
        !            78:   }
        !            79: } {}
        !            80: 
        !            81: #--------------------------------------------------------------------------
        !            82: # These tests - auth3-2.* - test that returning SQLITE_IGNORE really does
        !            83: # disable the truncate optimization.
        !            84: #
        !            85: do_test auth3-2.1 {
        !            86:   set ::authcode SQLITE_OK
        !            87:   execsql {
        !            88:     INSERT INTO t1 VALUES(1, 2, 3);
        !            89:     INSERT INTO t1 VALUES(4, 5, 6);
        !            90:   }
        !            91:   set sqlite_search_count 0
        !            92:   execsql {
        !            93:     DELETE FROM t1;
        !            94:   }
        !            95:   set sqlite_search_count
        !            96: } {0}
        !            97: 
        !            98: do_test auth3-2.2 {
        !            99:   set ::authcode SQLITE_IGNORE
        !           100:   execsql {
        !           101:     INSERT INTO t1 VALUES(1, 2, 3);
        !           102:     INSERT INTO t1 VALUES(4, 5, 6);
        !           103:   }
        !           104:   set sqlite_search_count 0
        !           105:   execsql {
        !           106:     DELETE FROM t1;
        !           107:   }
        !           108:   set sqlite_search_count
        !           109: } {1}
        !           110: 
        !           111: finish_test