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