Return to enc4.test CVS log

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

sqlite3

    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.1.1.1 2012/02/21 17:04:16 misho 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