wasCSharpSQLite – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 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 file delete -force 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 file delete -force 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