Return to badutf2.test CVS log

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

Annotation of embedaddon/sqlite3/test/badutf2.test, revision 1.1

1.1     ! misho       1: # 2011 March 15
        !             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. 
        !            12: #
        !            13: # This file checks to make sure SQLite is able to gracEFully
        !            14: # handle malformed UTF-8.
        !            15: #
        !            16: 
        !            17: set testdir [file dirname $argv0]
        !            18: source $testdir/tester.tcl
        !            19: 
        !            20: proc utf8_to_ustr2 {s} {
        !            21:   set r ""
        !            22:   foreach i [split $s ""] {
        !            23:     scan $i %c c
        !            24:     append r [format \\u%04.4X $c]
        !            25:   }
        !            26:   set r
        !            27: }
        !            28: 
        !            29: proc utf8_to_hstr {in} {
        !            30:  regsub -all -- {(..)} $in {%[format "%s" \1]} out
        !            31:  subst $out
        !            32: }
        !            33: 
        !            34: proc utf8_to_xstr {in} {
        !            35:  regsub -all -- {(..)} $in {\\\\x[format "%s" \1]} out
        !            36:  subst $out
        !            37: }
        !            38: 
        !            39: proc utf8_to_ustr {in} {
        !            40:  regsub -all -- {(..)} $in {\\\\u[format "%04.4X" 0x\1]} out
        !            41:  subst $out
        !            42: }
        !            43: 
        !            44: do_test badutf2-1.0 {
        !            45:   db close
        !            46:   forcedelete test.db
        !            47:   sqlite3 db test.db
        !            48:   db eval "PRAGMA encoding = 'UTF-8'"
        !            49: } {}
        !            50: 
        !            51: do_test badutf2-4.0 {
        !            52:   set S [sqlite3_prepare_v2 db "SELECT ?" -1 dummy]
        !            53:   sqlite3_expired $S
        !            54: } {0}
        !            55:         
        !            56: foreach { i len uval xstr ustr u2u } {
        !            57: 1 1 00     \x00         {}        {}
        !            58: 2 1 01     \x01         "\\u0001" 01
        !            59: 3 1 3F     \x3F         "\\u003F" 3F
        !            60: 4 1 7F     \x7F         "\\u007F" 7F
        !            61: 5 1 80     \x80         "\\u0080" C280
        !            62: 6 1 C3BF   \xFF         "\\u00FF" C3BF
        !            63: 7 3 EFBFBD \xEF\xBF\xBD "\\uFFFD" {}
        !            64: } {
        !            65: 
        !            66:   set hstr [ utf8_to_hstr $uval ]
        !            67: 
        !            68:   ifcapable bloblit {
        !            69:     if {$hstr != "%00"} {
        !            70:       do_test badutf2-2.1.$i {
        !            71:         set sql "SELECT '$hstr'=CAST(x'$uval' AS text) AS x;"
        !            72:         set res [ sqlite3_exec db $sql ]
        !            73:         lindex [ lindex $res 1] 1
        !            74:       } {1}
        !            75:       do_test badutf2-2.2.$i {
        !            76:         set sql "SELECT CAST('$hstr' AS blob)=x'$uval' AS x;"
        !            77:         set res [ sqlite3_exec db $sql ]
        !            78:         lindex [ lindex $res 1] 1
        !            79:       } {1}
        !            80:     }
        !            81:     do_test badutf2-2.3.$i {
        !            82:       set sql "SELECT hex(CAST(x'$uval' AS text)) AS x;"
        !            83:       set res [ sqlite3_exec db $sql ]
        !            84:       lindex [ lindex $res 1] 1
        !            85:     } $uval
        !            86:     do_test badutf2-2.4.$i {
        !            87:       set sql "SELECT hex(CAST(x'$uval' AS text)) AS x;"
        !            88:       set res [ sqlite3_exec db $sql ]
        !            89:       lindex [ lindex $res 1] 1
        !            90:     } $uval
        !            91:   }
        !            92: 
        !            93:   if {$hstr != "%00"} {
        !            94:     do_test badutf2-3.1.$i {
        !            95:       set sql "SELECT hex('$hstr') AS x;"
        !            96:       set res [ sqlite3_exec db $sql ]
        !            97:       lindex [ lindex $res 1] 1
        !            98:     } $uval
        !            99:   }
        !           100: 
        !           101:   do_test badutf2-4.1.$i {
        !           102:     sqlite3_reset $S
        !           103:     sqlite3_bind_text $S 1 $xstr $len
        !           104:     sqlite3_step $S
        !           105:     utf8_to_ustr2 [ sqlite3_column_text $S 0 ]
        !           106:   } $ustr
        !           107: 
        !           108:   ifcapable debug {
        !           109:     do_test badutf2-5.1.$i {
        !           110:       utf8_to_utf8 $uval
        !           111:     } $u2u
        !           112:   }
        !           113: 
        !           114: }
        !           115: 
        !           116: do_test badutf2-4.2 {
        !           117:   sqlite3_finalize $S
        !           118: } {SQLITE_OK}
        !           119: 
        !           120: 
        !           121: finish_test