Return to capi3e.test CVS log

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

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

1.1     ! misho       1: # 2010 Novemeber 18
        !             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
        !            12: # focus of this script testing the callback-free C/C++ API.
        !            13: #
        !            14: # $Id: capi3e.test,v 1.70 2009/01/09 02:49:32 drh Exp $
        !            15: #
        !            16: 
        !            17: set testdir [file dirname $argv0]
        !            18: source $testdir/tester.tcl
        !            19: 
        !            20: # Make sure the system encoding is utf-8. Otherwise, if the system encoding
        !            21: # is other than utf-8, [file isfile $x] may not refer to the same file
        !            22: # as [sqlite3 db $x].
        !            23: encoding system utf-8
        !            24: 
        !            25: # Do not use a codec for tests in this file, as the database file is
        !            26: # manipulated directly using tcl scripts (using the [hexio_write] command).
        !            27: #
        !            28: do_not_use_codec
        !            29: 
        !            30: # Return the UTF-16 representation of the supplied UTF-8 string $str.
        !            31: # If $nt is true, append two 0x00 bytes as a nul terminator.
        !            32: proc utf16 {str {nt 1}} {
        !            33:   set r [encoding convertto unicode $str]
        !            34:   if {$nt} {
        !            35:     append r "\x00\x00"
        !            36:   }
        !            37:   return $r
        !            38: }
        !            39: 
        !            40: # Return the UTF-8 representation of the supplied UTF-16 string $str. 
        !            41: proc utf8 {str} {
        !            42:   # If $str ends in two 0x00 0x00 bytes, knock these off before
        !            43:   # converting to UTF-8 using TCL.
        !            44:   binary scan $str \c* vals
        !            45:   if {[lindex $vals end]==0 && [lindex $vals end-1]==0} {
        !            46:     set str [binary format \c* [lrange $vals 0 end-2]]
        !            47:   }
        !            48: 
        !            49:   set r [encoding convertfrom unicode $str]
        !            50:   return $r
        !            51: }
        !            52: 
        !            53: # These tests complement those in capi2.test. They are organized
        !            54: # as follows:
        !            55: #
        !            56: # capi3e-1.*: Test sqlite3_open with various UTF8 filenames
        !            57: # capi3e-2.*: Test sqlite3_open16 with various UTF8 filenames
        !            58: # capi3e-3.*: Test ATTACH with various UTF8 filenames
        !            59: 
        !            60: db close
        !            61: 
        !            62: # here's the list of file names we're testing
        !            63: set names {t 1 t. 1. t.d 1.d t-1 1-1 t.db ä.db ë.db ö.db ü.db ÿ.db}
        !            64: 
        !            65: set i 0
        !            66: foreach name $names {
        !            67:   incr i
        !            68:   do_test capi3e-1.1.$i {
        !            69:     set db2 [sqlite3_open $name {}]
        !            70:     sqlite3_errcode $db2
        !            71:   } {SQLITE_OK}
        !            72:   do_test capi3e-1.2.$i {
        !            73:     sqlite3_close $db2
        !            74:   } {SQLITE_OK}
        !            75:   do_test capi3e-1.3.$i {
        !            76:     file isfile $name
        !            77:   } {1}
        !            78: }
        !            79: 
        !            80: ifcapable {utf16} {
        !            81:   set i 0
        !            82:   foreach name $names {
        !            83:     incr i
        !            84:     do_test capi3e-2.1.$i {
        !            85:       set db2 [sqlite3_open16 [utf16 $name] {}]
        !            86:       sqlite3_errcode $db2
        !            87:     } {SQLITE_OK}
        !            88:     do_test capi3e-2.2.$i {
        !            89:       sqlite3_close $db2
        !            90:     } {SQLITE_OK}
        !            91:     do_test capi3e-2.3.$i {
        !            92:       file isfile $name
        !            93:     } {1}
        !            94:   }
        !            95: }
        !            96: 
        !            97: ifcapable attach {
        !            98:   do_test capi3e-3.1 {
        !            99:     sqlite3 db2 base.db
        !           100:   } {}
        !           101:   set i 0
        !           102:   foreach name $names {
        !           103:     incr i
        !           104:     do_test capi3e-3.2.$i {
        !           105:       db2 eval "ATTACH DATABASE '$name' AS db$i;"
        !           106:     } {}
        !           107:     do_test capi3e-3.3.$i {
        !           108:       db2 eval "DETACH DATABASE db$i;"
        !           109:     } {}
        !           110:   }
        !           111:   do_test capi3e-3.4 {
        !           112:     db2 close
        !           113:   } {}
        !           114: }
        !           115: 
        !           116: # clean up
        !           117: forcedelete base.db
        !           118: foreach name $names {
        !           119:   forcedelete $name
        !           120: }
        !           121: 
        !           122: finish_test