SQLite
Check-in [d2e7dfca5a]
Not logged in
Overview
SHA1 Hash:d2e7dfca5a92074a7984032deb6a4e3681389c72
Date: 2013-02-26 05:44:33
User: mistachkin
Comment:Prevent Tcl file encoding issues in the tests for the unicode() and char() functions.
Tags And Properties
Changes
hide diffs unified diffs patch

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