/ Check-in [6c51bad0]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Adjust a couple of test scripts so that they work with OMIT_UTF16 builds.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 6c51bad0a306558d2725463b5675c3799fabcb9d
User & Date: dan 2011-07-04 06:52:15
Context
2011-07-06
09:36
Expose the value of compile time symbol SQLITE_MAX_DEFAULT_PAGE_SIZE to test scripts. check-in: 33573663 user: dan tags: trunk
2011-07-04
06:52
Adjust a couple of test scripts so that they work with OMIT_UTF16 builds. check-in: 6c51bad0 user: dan tags: trunk
2011-07-02
19:12
Add a testcase macro to ensure testing a boundary case in DISTINCT processing. check-in: ff9fc722 user: drh tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/func3.test.

    13     13   # with functions created using sqlite3_create_function_v2() is 
    14     14   # correctly invoked.
    15     15   #
    16     16   set testdir [file dirname $argv0]
    17     17   source $testdir/tester.tcl
    18     18   
    19     19   
    20         -do_test func3-1.1 {
    21         -  set destroyed 0
    22         -  proc destroy {} { set ::destroyed 1 }
    23         -  sqlite3_create_function_v2 db f2 -1 any -func f2 -destroy destroy
    24         -  set destroyed
    25         -} 0
    26         -do_test func3-1.2 {
    27         -  sqlite3_create_function_v2 db f2 -1 utf8 -func f2
    28         -  set destroyed
    29         -} 0
    30         -do_test func3-1.3 {
    31         -  sqlite3_create_function_v2 db f2 -1 utf16le -func f2
    32         -  set destroyed
    33         -} 0
    34         -do_test func3-1.4 {
    35         -  sqlite3_create_function_v2 db f2 -1 utf16be -func f2
    36         -  set destroyed
    37         -} 1
           20  +ifcapable utf16 {
           21  +  do_test func3-1.1 {
           22  +    set destroyed 0
           23  +    proc destroy {} { set ::destroyed 1 }
           24  +    sqlite3_create_function_v2 db f2 -1 any -func f2 -destroy destroy
           25  +    set destroyed
           26  +  } 0
           27  +  do_test func3-1.2 {
           28  +    sqlite3_create_function_v2 db f2 -1 utf8 -func f2
           29  +    set destroyed
           30  +  } 0
           31  +  do_test func3-1.3 {
           32  +    sqlite3_create_function_v2 db f2 -1 utf16le -func f2
           33  +    set destroyed
           34  +  } 0
           35  +  do_test func3-1.4 {
           36  +    sqlite3_create_function_v2 db f2 -1 utf16be -func f2
           37  +    set destroyed
           38  +  } 1
           39  +}
    38     40   
    39     41   do_test func3-2.1 {
    40     42     set destroyed 0
    41     43     proc destroy {} { set ::destroyed 1 }
    42     44     sqlite3_create_function_v2 db f3 -1 utf8 -func f3 -destroy destroy
    43     45     set destroyed
    44     46   } 0

Changes to test/sqllimits1.test.

   315    315   } {SQLITE_TOOBIG}
   316    316   do_test sqllimits1-5.14.4 {
   317    317     set np1 [expr {$SQLITE_LIMIT_LENGTH + 1}]
   318    318     set ::str1 [string repeat A $np1]
   319    319     catch {sqlite3_bind_text $::STMT 1 $::str1 -1} res
   320    320     set res
   321    321   } {SQLITE_TOOBIG}
   322         -do_test sqllimits1-5.14.5 {
   323         -  catch {sqlite3_bind_text16 $::STMT 1 $::str1 -1} res
   324         -  set res
   325         -} {SQLITE_TOOBIG}
          322  +ifcapable utf16 {
          323  +  do_test sqllimits1-5.14.5 {
          324  +    catch {sqlite3_bind_text16 $::STMT 1 $::str1 -1} res
          325  +    set res
          326  +  } {SQLITE_TOOBIG}
          327  +}
   326    328   do_test sqllimits1-5.14.6 {
   327    329     catch {sqlite3_bind_text $::STMT 1 $::str1 $np1} res
   328    330     set res
   329    331   } {SQLITE_TOOBIG}
   330         -do_test sqllimits1-5.14.7 {
   331         -  catch {sqlite3_bind_text16 $::STMT 1 $::str1 $np1} res
   332         -  set res
   333         -} {SQLITE_TOOBIG}
          332  +ifcapable utf16 {
          333  +  do_test sqllimits1-5.14.7 {
          334  +    catch {sqlite3_bind_text16 $::STMT 1 $::str1 $np1} res
          335  +    set res
          336  +  } {SQLITE_TOOBIG}
          337  +}
   334    338   do_test sqllimits1-5.14.8 {
   335    339     set n [expr {$np1-1}]
   336    340     catch {sqlite3_bind_text $::STMT 1 $::str1 $n} res
   337    341     set res
   338    342   } {}
   339    343   do_test sqllimits1-5.14.9 {
   340    344     catch {sqlite3_bind_text16 $::STMT 1 $::str1 $n} res