Overview
| Comment: | Added checking of writability for disk areas |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d14109d5246a4f54747a139e511546aa |
| User & Date: | mrwellan on 2011-10-21 16:30:20 |
| Other Links: | manifest | tags |
Context
|
2011-10-22
| ||
| 00:22 | Initial (and completely untested) framework for monitor based running check-in: 5be1cf4b7c user: matt tags: trunk | |
|
2011-10-21
| ||
| 16:30 | Added checking of writability for disk areas check-in: d14109d524 user: mrwellan tags: trunk | |
|
2011-10-19
| ||
| 21:16 | Merged in changes from private branch check-in: 52120b2140 user: mrwellan tags: trunk | |
Changes
Modified db.scm from [b15049b461] to [583ee571f3].
| ︙ | ︙ | |||
124 125 126 127 128 129 130 131 132 133 134 135 136 137 |
expected REAL,
tol REAL,
units TEXT,
comment TEXT DEFAULT '',
status TEXT DEFAULT 'n/a',
type TEXT DEFAULT '',
CONSTRAINT test_data UNIQUE (test_id,category,variable));")
;; Must do this *after* running patch db !! No more.
(db:set-var db "MEGATEST_VERSION" megatest-version)
))
db))
;;======================================================================
;; TODO:
| > > | 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 |
expected REAL,
tol REAL,
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))
;;======================================================================
;; TODO:
|
| ︙ | ︙ |
Modified launch.scm from [881857aea9] to [9df8e123db].
| ︙ | ︙ | |||
288 289 290 291 292 293 294 |
(let* ((disks (hash-table-ref/default confdat "disks" #f))
(best #f)
(bestsize 0))
(if disks
(for-each
(lambda (disk-num)
(let* ((dirpath (cadr (assoc disk-num disks)))
| | > | | 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 |
(let* ((disks (hash-table-ref/default confdat "disks" #f))
(best #f)
(bestsize 0))
(if disks
(for-each
(lambda (disk-num)
(let* ((dirpath (cadr (assoc disk-num disks)))
(freespc (if (and (directory? dirpath)
(file-write-access? dirpath))
(get-df dirpath)
(begin
(debug:print 0 "WARNING: path " dirpath " in [disks] section not valid or writable")
0))))
(if (> freespc bestsize)
(begin
(set! best dirpath)
(set! bestsize freespc)))))
(map car disks)))
(if best
|
| ︙ | ︙ |
Modified tests/runconfigs.config from [c494d9b2b2] to [939e5a467b].
1 2 3 4 5 6 7 8 9 10 11 | [/tmp/mrwellan/env/ubuntu/afs] BOGOUS Bob [default/ubuntu/nfs] CURRENT /blah [ubuntu/nfs/none] CURRENT /tmp/nada [default] | > | 1 2 3 4 5 6 7 8 9 10 11 12 | [/tmp/mrwellan/env/ubuntu/afs] BOGOUS Bob [default/ubuntu/nfs] CURRENT /blah [ubuntu/nfs/none] CURRENT /tmp/nada [default] FOOBARBAZZZZ not a useful value |