Modifications and bugfixes so that the test suite passes with the TCL statement cache turned on. (CVS 2271)
FossilOrigin-Name: d5233e0747789dea04d35a8350b408321d23a64d
diff --git a/test/auth.test b/test/auth.test
index 63ed7ba..90c548c 100644
--- a/test/auth.test
+++ b/test/auth.test
@@ -12,7 +12,7 @@
# focus of this script is testing the ATTACH and DETACH commands
# and related functionality.
#
-# $Id: auth.test,v 1.25 2004/11/23 15:41:17 danielk1977 Exp $
+# $Id: auth.test,v 1.26 2005/01/24 10:26:00 danielk1977 Exp $
#
set testdir [file dirname $argv0]
@@ -25,6 +25,14 @@
return
}
+rename proc proc_real
+proc_real proc {name arguments script} {
+ proc_real $name $arguments $script
+ if {$name=="auth"} {
+ db authorizer ::auth
+ }
+}
+
do_test auth-1.1.1 {
db close
set ::DB [sqlite3 db test.db]
@@ -2108,4 +2116,7 @@
} ;# ifcapable view && trigger
+rename proc {}
+rename proc_real proc
+
finish_test