Posted to tcl by colin at Sat Apr 03 00:37:31 GMT 2010view pretty
# test Sql domain set sqltestfile testsql.db if {![file exists $sqltestfile]} { package require sqlite3 sqlite3 db_test $sqltestfile db_test eval {CREATE TABLE sources(name text, size int, modify text, fgroup text, owner text, permissions int)} foreach fn [glob *.tcl] { foreach {n v} [file attributes $fn] { set [string trim $n -] $v } set name [file tail [file normalize $fn]] set size [file size $fn] set modify [file mtime $fn] db_test eval {INSERT INTO sources VALUES($name, $size, $modify, $group, $owner, $permissions)} } db_test close } package require Sql Debug on Sql 10 Nub domain /sql/ Sql file $sqltestfile