Index: db.scm ================================================================== --- db.scm +++ db.scm @@ -126,10 +126,12 @@ units TEXT, comment TEXT DEFAULT '', status TEXT DEFAULT 'n/a', type TEXT DEFAULT '', CONSTRAINT test_data UNIQUE (test_id,category,variable));") + ;; (sqlite3:execute db "CREATE TABLE IF NOT EXISTS task_calls (id INTEGER PRIMARY KEY, + ;; Must do this *after* running patch db !! No more. (db:set-var db "MEGATEST_VERSION" megatest-version) )) db)) Index: launch.scm ================================================================== --- launch.scm +++ launch.scm @@ -290,14 +290,15 @@ (bestsize 0)) (if disks (for-each (lambda (disk-num) (let* ((dirpath (cadr (assoc disk-num disks))) - (freespc (if (directory? dirpath) + (freespc (if (and (directory? dirpath) + (file-write-access? dirpath)) (get-df dirpath) (begin - (debug:print 0 "WARNING: path " dirpath " in [disks] section not valid") + (debug:print 0 "WARNING: path " dirpath " in [disks] section not valid or writable") 0)))) (if (> freespc bestsize) (begin (set! best dirpath) (set! bestsize freespc))))) Index: tests/runconfigs.config ================================================================== --- tests/runconfigs.config +++ tests/runconfigs.config @@ -7,5 +7,6 @@ [ubuntu/nfs/none] CURRENT /tmp/nada [default] +FOOBARBAZZZZ not a useful value