OLD | NEW |
| (Empty) |
1 # 2010 Sept 29 | |
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 # This file implements regression tests for SQLite library. The focus of | |
12 # this file is testing the SQLite routines used for converting between the | |
13 # various suported unicode encodings (UTF-8, UTF-16, UTF-16le and | |
14 # UTF-16be). | |
15 # | |
16 # $Id: enc4.test,v 1.0 2010/09/29 08:29:32 shaneh Exp $ | |
17 | |
18 set testdir [file dirname $argv0] | |
19 source $testdir/tester.tcl | |
20 | |
21 # If UTF16 support is disabled, ignore the tests in this file | |
22 # | |
23 ifcapable {!utf16} { | |
24 finish_test | |
25 return | |
26 } | |
27 | |
28 db close | |
29 | |
30 # The three unicode encodings understood by SQLite. | |
31 set encodings [list UTF-8 UTF-16le UTF-16be] | |
32 | |
33 # initial value to use in SELECT | |
34 set inits [list 1 1.0 1. 1e0] | |
35 | |
36 # vals | |
37 set vals [list\ | |
38 "922337203685477580792233720368547758079223372036854775807"\ | |
39 "100000000000000000000000000000000000000000000000000000000"\ | |
40 "1.0000000000000000000000000000000000000000000000000000000"\ | |
41 ] | |
42 | |
43 set i 1 | |
44 foreach enc $encodings { | |
45 | |
46 forcedelete test.db | |
47 sqlite3 db test.db | |
48 db eval "PRAGMA encoding = \"$enc\"" | |
49 | |
50 do_test enc4-$i.1 { | |
51 db eval {PRAGMA encoding} | |
52 } $enc | |
53 | |
54 set j 1 | |
55 foreach init $inits { | |
56 | |
57 do_test enc4-$i.$j.2 { | |
58 set S [sqlite3_prepare_v2 db "SELECT $init+?" -1 dummy] | |
59 sqlite3_expired $S | |
60 } {0} | |
61 | |
62 set k 1 | |
63 foreach val $vals { | |
64 for {set x 1} {$x<16} {incr x} { | |
65 set part [expr $init + [string range $val 0 [expr $x-1]]] | |
66 | |
67 do_realnum_test enc4-$i.$j.$k.3.$x { | |
68 sqlite3_reset $S | |
69 sqlite3_bind_text $S 1 $val $x | |
70 sqlite3_step $S | |
71 sqlite3_column_text $S 0 | |
72 } [list $part] | |
73 | |
74 do_realnum_test enc4-$i.$j.$k.4.$x { | |
75 sqlite3_reset $S | |
76 sqlite3_bind_text16 $S 1 [encoding convertto unicode $val] [expr $x*2] | |
77 sqlite3_step $S | |
78 sqlite3_column_text $S 0 | |
79 } [list $part] | |
80 } | |
81 | |
82 incr k | |
83 } | |
84 | |
85 do_test enc4-$i.$j.5 { | |
86 sqlite3_finalize $S | |
87 } {SQLITE_OK} | |
88 | |
89 incr j | |
90 } | |
91 | |
92 db close | |
93 incr i | |
94 } | |
95 | |
96 forcedelete test.db | |
97 sqlite3 db test.db | |
98 | |
99 do_test enc4-4.1 { | |
100 db eval "select 1+1." | |
101 } {2.0} | |
102 | |
103 do_test enc4-4.2.1 { | |
104 set S [sqlite3_prepare_v2 db "SELECT 1+1." -1 dummy] | |
105 sqlite3_step $S | |
106 sqlite3_column_text $S 0 | |
107 } {2.0} | |
108 | |
109 do_test enc4-4.2.2 { | |
110 sqlite3_finalize $S | |
111 } {SQLITE_OK} | |
112 | |
113 do_test enc4-4.3.1 { | |
114 set S [sqlite3_prepare_v2 db "SELECT 1+?" -1 dummy] | |
115 sqlite3_bind_text $S 1 "1." 2 | |
116 sqlite3_step $S | |
117 sqlite3_column_text $S 0 | |
118 } {2.0} | |
119 | |
120 do_test enc4-4.3.2 { | |
121 sqlite3_finalize $S | |
122 } {SQLITE_OK} | |
123 | |
124 do_test enc4-4.4.1 { | |
125 set S [sqlite3_prepare_v2 db "SELECT 1+?" -1 dummy] | |
126 sqlite3_bind_text $S 1 "1.0" 2 | |
127 sqlite3_step $S | |
128 sqlite3_column_text $S 0 | |
129 } {2.0} | |
130 | |
131 do_test enc4-4.4.2 { | |
132 sqlite3_finalize $S | |
133 } {SQLITE_OK} | |
134 | |
135 db close | |
136 | |
137 finish_test | |
OLD | NEW |