Merge Chromium + Blink git repositories
[chromium-blink-merge.git] / third_party / sqlite / sqlite-src-3080704 / test / enc4.test
blob94869b6fb75050b9f23fdf7966eefda3cbe1207a
1 # 2010 Sept 29
3 # The author disclaims copyright to this source code.  In place of
4 # a legal notice, here is a blessing:
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.
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).
16 # $Id: enc4.test,v 1.0 2010/09/29 08:29:32 shaneh Exp $
18 set testdir [file dirname $argv0]
19 source $testdir/tester.tcl
21 # If UTF16 support is disabled, ignore the tests in this file
23 ifcapable {!utf16} {
24   finish_test
25   return
28 db close
30 # The three unicode encodings understood by SQLite.
31 set encodings [list UTF-8 UTF-16le UTF-16be]
33 # initial value to use in SELECT
34 set inits [list 1 1.0 1. 1e0]
36 # vals
37 set vals [list\
38 "922337203685477580792233720368547758079223372036854775807"\
39 "100000000000000000000000000000000000000000000000000000000"\
40 "1.0000000000000000000000000000000000000000000000000000000"\
43 set i 1
44 foreach enc $encodings {
46   forcedelete test.db
47   sqlite3 db test.db
48   db eval "PRAGMA encoding = \"$enc\""
50   do_test enc4-$i.1 {
51     db eval {PRAGMA encoding}
52   } $enc
54   set j 1
55   foreach init $inits {
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]]]
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     }
85     do_test enc4-$i.$j.5 {
86       sqlite3_finalize $S
87     } {SQLITE_OK}
89     incr j
90   }
92   db close
93   incr i
96 forcedelete test.db
97 sqlite3 db test.db
99 do_test enc4-4.1 {
100   db eval "select 1+1."
101 } {2.0}
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}
109 do_test enc4-4.2.2 {
110   sqlite3_finalize $S
111 } {SQLITE_OK}
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}
120 do_test enc4-4.3.2 {
121   sqlite3_finalize $S
122 } {SQLITE_OK}
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}
131 do_test enc4-4.4.2 {
132   sqlite3_finalize $S
133 } {SQLITE_OK}
135 db close
137 finish_test