Overview
Comment: | Merged in changes from private branch |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
52120b21407e4686cf28b3fd8cfaf914 |
User & Date: | mrwellan on 2011-10-19 21:16:42 |
Other Links: | manifest | tags |
Context
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 | |
2011-10-15
| ||
16:18 | Added install (to local bin) and adding to PATH to enable using mt_* scripts without additional setup check-in: dbdd37c3c4 user: matt tags: trunk | |
Changes
Modified db.scm from [2cd8ae0df0] to [b15049b461].
︙ | |||
71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 | + - - - + + + - - - - - - - - - - - - + - + | run_id INTEGER, testname TEXT, host TEXT DEFAULT 'n/a', cpuload REAL DEFAULT -1, diskfree INTEGER DEFAULT -1, uname TEXT DEFAULT 'n/a', rundir TEXT DEFAULT 'n/a', shortdir TEXT DEFAULT '', item_path TEXT DEFAULT '', state TEXT DEFAULT 'NOT_STARTED', status TEXT DEFAULT 'FAIL', attemptnum INTEGER DEFAULT 0, final_logf TEXT DEFAULT 'logs/final.log', logdat BLOB, run_duration INTEGER DEFAULT 0, comment TEXT DEFAULT '', event_time TIMESTAMP, fail_count INTEGER DEFAULT 0, pass_count INTEGER DEFAULT 0, |
︙ | |||
203 204 205 206 207 208 209 | 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 | - + + + + + + | category TEXT DEFAULT '', variable TEXT, value REAL, expected REAL, tol REAL, units TEXT, comment TEXT DEFAULT '', |
︙ |
Modified launch.scm from [c038dc8f96] to [881857aea9].
︙ | |||
157 158 159 160 161 162 163 | 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 | - + - + | (set! script (conc script "source .ezsteps/" prevstep ".sh"))) ;; call the command using mt_ezstep (set! script (conc script "mt_ezstep " stepname " " stepcmd "\n")) (debug:print 4 "script: " script) |
︙ |
Modified megatest-version.scm from [13d5db31c5] to [d71a892788].
1 2 3 4 5 | 1 2 3 4 5 6 7 | - + + | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) |
Modified megatest.scm from [3eccf8bbd1] to [d64eb95b04].
︙ | |||
403 404 405 406 407 408 409 | 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 | - + + - + | (test-name (assoc/default 'test-name cmdinfo)) (runscript (assoc/default 'runscript cmdinfo)) (db-host (assoc/default 'db-host cmdinfo)) (run-id (assoc/default 'run-id cmdinfo)) (itemdat (assoc/default 'itemdat cmdinfo)) (db #f) (state (args:get-arg ":state")) |
︙ | |||
474 475 476 477 478 479 480 | 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 | - + | (redir (case (string->symbol shell) ((tcsh csh ksh) ">&") ((zsh bash sh ash) "2>&1 >"))) (fullcmd (conc "(" (string-intersperse (cons cmd params) " ") ") " redir " " logfile))) ;; mark the start of the test |
︙ | |||
496 497 498 499 500 501 502 | 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 | - + | (cmd (string-intersperse (list "logpro" logprofile htmllogfile "<" logfile ">" (conc stepname "_logpro.log")) " "))) (debug:print 2 "INFO: running \"" cmd "\"") (change-directory startingdir) (set! exitstat (system cmd)) (set! *globalexitstatus* exitstat) ;; no necessary (change-directory testpath) (test-set-log! db run-id test-name itemdat htmllogfile))) |
︙ |
Modified runs.scm from [a3e8fc209f] to [2722d9b41e].
︙ | |||
396 397 398 399 400 401 402 | 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 | - + + - - + + | (let ((valid-values (let ((s (config-lookup *configdat* "validvalues" class))) (if s (string-split s) #f)))) (if valid-values (if (member item valid-values) item #f) item))) |
︙ |