• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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
18set testdir [file dirname $argv0]
19source $testdir/tester.tcl
20
21# If UTF16 support is disabled, ignore the tests in this file
22#
23ifcapable {!utf16} {
24  finish_test
25  return
26}
27
28db close
29
30# The three unicode encodings understood by SQLite.
31set encodings [list UTF-8 UTF-16le UTF-16be]
32
33# initial value to use in SELECT
34set inits [list 1 1.0 1. 1e0]
35
36# vals
37set vals [list\
38"922337203685477580792233720368547758079223372036854775807"\
39"100000000000000000000000000000000000000000000000000000000"\
40"1.0000000000000000000000000000000000000000000000000000000"\
41]
42
43set i 1
44foreach 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<18} {incr x} {
65        set part [expr $init + [string range $val 0 [expr $x-1]]]
66        regsub {e\+0} $part {e+} part
67        regsub {^1e} $part {1.0e} part
68
69        do_test enc4-$i.$j.$k.3.$x {
70          sqlite3_reset $S
71          sqlite3_bind_text $S 1 $val $x
72          sqlite3_step $S
73          sqlite3_column_text $S 0
74        } [list $part]
75
76        do_test enc4-$i.$j.$k.4.$x {
77          sqlite3_reset $S
78          sqlite3_bind_text16 $S 1 [encoding convertto unicode $val] [expr $x*2]
79          sqlite3_step $S
80          sqlite3_column_text $S 0
81        } [list $part]
82      }
83
84      incr k
85    }
86
87    do_test enc4-$i.$j.5 {
88      sqlite3_finalize $S
89    } {SQLITE_OK}
90
91    incr j
92  }
93
94  db close
95  incr i
96}
97
98file delete -force test.db
99sqlite3 db test.db
100
101do_test enc4-4.1 {
102  db eval "select 1+1."
103} {2.0}
104
105do_test enc4-4.2.1 {
106  set S [sqlite3_prepare_v2 db "SELECT 1+1." -1 dummy]
107  sqlite3_step $S
108  sqlite3_column_text $S 0
109} {2.0}
110
111do_test enc4-4.2.2 {
112  sqlite3_finalize $S
113} {SQLITE_OK}
114
115do_test enc4-4.3.1 {
116  set S [sqlite3_prepare_v2 db "SELECT 1+?" -1 dummy]
117  sqlite3_bind_text $S 1 "1." 2
118  sqlite3_step $S
119  sqlite3_column_text $S 0
120} {2.0}
121
122do_test enc4-4.3.2 {
123  sqlite3_finalize $S
124} {SQLITE_OK}
125
126do_test enc4-4.4.1 {
127  set S [sqlite3_prepare_v2 db "SELECT 1+?" -1 dummy]
128  sqlite3_bind_text $S 1 "1.0" 2
129  sqlite3_step $S
130  sqlite3_column_text $S 0
131} {2.0}
132
133do_test enc4-4.4.2 {
134  sqlite3_finalize $S
135} {SQLITE_OK}
136
137db close
138
139finish_test
140