| 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 |