Overview
| SHA1 Hash: | c9c2b82c86fff457a0b32d5be84ec66639065ae1 |
|---|---|
| Date: | 2013-03-01 23:13:37 |
| User: | mistachkin |
| Comment: | Prevent Tcl file encoding issues in the tests for the unicode() and char() functions. |
Tags And Properties
- branch=trunk inherited from [704b122e53]
- sym-trunk inherited from [704b122e53]
Changes
Changes to test/func.test
1287 do_test func-29.6 { 1287 do_test func-29.6 { 1288 set x [lindex [sqlite3_db_status db CACHE_MISS 1] 1] 1288 set x [lindex [sqlite3_db_status db CACHE_MISS 1] 1] 1289 if {$x<5} {set x 1} 1289 if {$x<5} {set x 1} 1290 set x 1290 set x 1291 } {1} 1291 } {1} 1292 1292 1293 do_execsql_test func-30.1 {SELECT unicode('$');} 36 1293 do_execsql_test func-30.1 {SELECT unicode('$');} 36 1294 do_execsql_test func-30.2 {SELECT unicode('¢');} 162 | 1294 do_execsql_test func-30.2 [subst {SELECT unicode('\u00A2');}] 162 1295 do_execsql_test func-30.3 {SELECT unicode('€');} 8364 | 1295 do_execsql_test func-30.3 [subst {SELECT unicode('\u20AC');}] 8364 1296 do_execsql_test func-30.4 {SELECT char(36,162,8364);} {$¢€} | 1296 do_execsql_test func-30.4 {SELECT char(36,162,8364);} [subst {$\u00A2\u20AC}] 1297 1297 1298 for {set i 1} {$i<0xd800} {incr i 13} { 1298 for {set i 1} {$i<0xd800} {incr i 13} { 1299 do_execsql_test func-30.5.$i {SELECT unicode(char($i))} $i 1299 do_execsql_test func-30.5.$i {SELECT unicode(char($i))} $i 1300 } 1300 } 1301 for {set i 57344} {$i<=0xfffd} {incr i 17} { 1301 for {set i 57344} {$i<=0xfffd} {incr i 17} { 1302 if {$i==0xfeff} continue 1302 if {$i==0xfeff} continue 1303 do_execsql_test func-30.5.$i {SELECT unicode(char($i))} $i 1303 do_execsql_test func-30.5.$i {SELECT unicode(char($i))} $i 1304 } 1304 } 1305 for {set i 65536} {$i<=0x10ffff} {incr i 139} { 1305 for {set i 65536} {$i<=0x10ffff} {incr i 139} { 1306 do_execsql_test func-30.5.$i {SELECT unicode(char($i))} $i 1306 do_execsql_test func-30.5.$i {SELECT unicode(char($i))} $i 1307 } 1307 } 1308 1308 1309 finish_test 1309 finish_test