mirror of
https://github.com/sqlite/sqlite.git
synced 2025-07-30 19:03:16 +03:00
Fix problems for 64-bit machines and when SQLITE_OMIT_AUTHORIZATION is defined. (CVS 1868)
FossilOrigin-Name: e3cad1ab6226089265b4d15c6fc67cc33a31425f
This commit is contained in:
@ -15,7 +15,7 @@
|
||||
# interface is pretty well tested. This file contains some addition
|
||||
# tests for fringe issues that the main test suite does not cover.
|
||||
#
|
||||
# $Id: tclsqlite.test,v 1.27 2004/07/19 17:25:25 drh Exp $
|
||||
# $Id: tclsqlite.test,v 1.28 2004/07/26 12:24:24 drh Exp $
|
||||
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
@ -74,10 +74,12 @@ do_test tcl-1.7 {
|
||||
set v [catch {db} msg]
|
||||
lappend v $msg
|
||||
} {1 {wrong # args: should be "db SUBCOMMAND ..."}}
|
||||
do_test tcl-1.8 {
|
||||
set v [catch {db authorizer 1 2 3} msg]
|
||||
lappend v $msg
|
||||
} {1 {wrong # args: should be "db authorizer ?CALLBACK?"}}
|
||||
if {[catch {db auth {}}]==0} {
|
||||
do_test tcl-1.8 {
|
||||
set v [catch {db authorizer 1 2 3} msg]
|
||||
lappend v $msg
|
||||
} {1 {wrong # args: should be "db authorizer ?CALLBACK?"}}
|
||||
}
|
||||
do_test tcl-1.9 {
|
||||
set v [catch {db busy 1 2 3} msg]
|
||||
lappend v $msg
|
||||
|
Reference in New Issue
Block a user