1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
# 2006 August 23
#
# 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 script is automatic extension loading and the
# sqlite3_auto_extension() API.
#
# $Id: loadext2.test,v 1.3 2008/03/19 16:08:54 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
# Only run these tests if the approriate APIs are defined
# in the system under test.
#
ifcapable !load_ext {
finish_test
return
}
if {[info command sqlite3_auto_extension_sqr]==""} {
finish_test
return
}
# None of the extension are loaded by default.
#
do_test loadext2-1.1 {
catchsql {
SELECT sqr(2)
}
} {1 {no such function: sqr}}
do_test loadext2-1.2 {
catchsql {
SELECT cube(2)
}
} {1 {no such function: cube}}
# Register auto-loaders. Still functions do not exist.
#
do_test loadext2-1.3 {
sqlite3_auto_extension_sqr
sqlite3_auto_extension_cube
catchsql {
SELECT sqr(2)
}
} {1 {no such function: sqr}}
do_test loadext2-1.4 {
catchsql {
SELECT cube(2)
}
} {1 {no such function: cube}}
# Functions do exist in a new database connection
#
do_test loadext2-1.5 {
sqlite3 db test.db
catchsql {
SELECT sqr(2)
}
} {0 4.0}
do_test loadext2-1.6 {
catchsql {
SELECT cube(2)
}
} {0 8.0}
# Reset extension auto loading. Existing extensions still exist.
#
do_test loadext2-1.7 {
sqlite3_reset_auto_extension
catchsql {
SELECT sqr(2)
}
} {0 4.0}
do_test loadext2-1.8 {
catchsql {
SELECT cube(2)
}
} {0 8.0}
# Register only the sqr() function.
#
do_test loadext2-1.9 {
sqlite3_auto_extension_sqr
sqlite3 db test.db
catchsql {
SELECT sqr(2)
}
} {0 4.0}
do_test loadext2-1.10 {
catchsql {
SELECT cube(2)
}
} {1 {no such function: cube}}
# Register only the cube() function.
#
do_test loadext2-1.11 {
sqlite3_reset_auto_extension
sqlite3_auto_extension_cube
sqlite3 db test.db
catchsql {
SELECT sqr(2)
}
} {1 {no such function: sqr}}
do_test loadext2-1.12 {
catchsql {
SELECT cube(2)
}
} {0 8.0}
# Register a broken entry point.
#
do_test loadext2-1.13 {
sqlite3_auto_extension_broken
set rc [catch {sqlite3 db test.db} errmsg]
lappend rc $errmsg
} {1 {automatic extension loading failed: broken autoext!}}
do_test loadext2-1.14 {
catchsql {
SELECT sqr(2)
}
} {1 {no such function: sqr}}
do_test loadext2-1.15 {
catchsql {
SELECT cube(2)
}
} {0 8.0}
sqlite3_reset_auto_extension
autoinstall_test_functions
finish_test
|
