Return to enc4.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/enc4.test, revision 1.1.1.1

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