Posted to tcl by mjanssen at Wed Aug 29 09:27:44 GMT 2007view raw
- package require sqlite3
- sqlite3 db c:/temp/db.sql
- db eval {create table test(i integer, t blob)}
- for {set i 0} {$i < 10000} {incr i} {append in [binary format c [expr {int(rand() * 256)}]]}
- db eval {INSERT INTO test VALUES(1,$in)}
- db eval {INSERT INTO test VALUES(1,@in)}
- string length $in ; # fill stringrep
- db eval {INSERT INTO test VALUES(1,$in)}
- db eval {select t from test} {} {puts [string equal $t $in]}