/ Check-in [d2e7dfca]
Login

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

Overview
Comment:Prevent Tcl file encoding issues in the tests for the unicode() and char() functions.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | funcTestEncoding
Files: files | file ages | folders
SHA1: d2e7dfca5a92074a7984032deb6a4e3681389c72
User & Date: mistachkin 2013-02-26 05:44:33
Context
2013-03-01
23:13
Prevent Tcl file encoding issues in the tests for the unicode() and char() functions. check-in: c9c2b82c user: mistachkin tags: trunk
2013-02-26
05:44
Prevent Tcl file encoding issues in the tests for the unicode() and char() functions. Closed-Leaf check-in: d2e7dfca user: mistachkin tags: funcTestEncoding
05:42
Remove extra use of the sqlite3_value_int64() function. check-in: 6d797352 user: mistachkin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/func.test.

  1287   1287   do_test func-29.6 {
  1288   1288     set x [lindex [sqlite3_db_status db CACHE_MISS 1] 1]
  1289   1289     if {$x<5} {set x 1}
  1290   1290     set x
  1291   1291   } {1}
  1292   1292   
  1293   1293   do_execsql_test func-30.1 {SELECT unicode('$');} 36
  1294         -do_execsql_test func-30.2 {SELECT unicode('¢');} 162
  1295         -do_execsql_test func-30.3 {SELECT unicode('€');} 8364
  1296         -do_execsql_test func-30.4 {SELECT char(36,162,8364);} {$¢€}
         1294  +do_execsql_test func-30.2 [subst {SELECT unicode('\u00A2');}] 162
         1295  +do_execsql_test func-30.3 [subst {SELECT unicode('\u20AC');}] 8364
         1296  +do_execsql_test func-30.4 {SELECT char(36,162,8364);} [subst {$\u00A2\u20AC}]
  1297   1297   
  1298   1298   for {set i 1} {$i<0xd800} {incr i 13} {
  1299   1299     do_execsql_test func-30.5.$i {SELECT unicode(char($i))} $i
  1300   1300   }
  1301   1301   for {set i 57344} {$i<=0xfffd} {incr i 17} {
  1302   1302     if {$i==0xfeff} continue
  1303   1303     do_execsql_test func-30.5.$i {SELECT unicode(char($i))} $i
  1304   1304   }
  1305   1305   for {set i 65536} {$i<=0x10ffff} {incr i 139} {
  1306   1306     do_execsql_test func-30.5.$i {SELECT unicode(char($i))} $i
  1307   1307   }
  1308   1308   
  1309   1309   finish_test