Posted to tcl by colin at Sat Apr 03 00:37:31 GMT 2010view raw
- # 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