Overview
Comment: | Placeholder for remove-runs |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
cf78fcded0ade20647c94873330c532e |
User & Date: | matt on 2011-05-04 08:22:29 |
Other Links: | manifest | tags |
Context
2011-05-04
| ||
23:48 | Added pattern selectors for use with -list-runs check-in: c4edfbcd13 user: mrwellan tags: trunk | |
08:22 | Placeholder for remove-runs check-in: cf78fcded0 user: matt tags: trunk | |
2011-05-03
| ||
10:00 | Bumping the megatest version to 1.0.1 check-in: 40c71a6d65 user: mrwellan tags: trunk | |
Changes
Modified megatest.scm from [c2c2ba6e88] to [af51a420cc].
1 2 3 4 5 6 7 8 9 10 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | - + - + + - + - + - - | ;; Copyright 2006-2011, Matthew Welland. ;; ;; This program is made available under the GNU GPL version 2.0 or ;; greater. See the accompanying file COPYING for details. ;; ;; This program is distributed WITHOUT ANY WARRANTY; without even the ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. (include "common.scm") |
︙ | |||
69 70 71 72 73 74 75 76 77 78 79 80 81 82 | 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 | + | ":runname" ":state" ":status" "-list-runs" "-setlog" "-runstep" "-logpro" "-remove-run" ) (list "-h" "-force" "-xterm" "-showkeys" "-test-status" "-gui" |
︙ | |||
244 245 246 247 248 249 250 251 252 253 254 255 256 257 | 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (print "ERROR: Attempted to run a test but run area config file not found") (exit 1)) ;; put test parameters into convenient variables (let* ((test-names (string-split (args:get-arg "-runtests") ","))) (run-tests db test-names))) ;; run-waiting-tests db) (sqlite3:finalize! db) (run-waiting-tests #f) (set! *didsomething* #t)))) (if (args:get-arg "-runtests") (runtests)) ;;====================================================================== ;; Remove old run(s) ;;====================================================================== (define (remove-runs) (if (not (args:get-arg ":runname")) (begin (print "ERROR: Missing required parameter for -remove-run, you must specify the run name with :runname runname") (exit 2)) (let ((db #f)) (if (not (setup-for-run)) (begin (print "Failed to setup, exiting") (exit 1))) (set! db (open-db)) (if (not (car *configinfo*)) (begin (print "ERROR: Attempted to remove a test but run area config file not found") (exit 1)) ;; put test parameters into convenient variables (let* ((test-names (string-split (args:get-arg "-remove-tests") ","))) (run-tests db test-names))) ;; run-waiting-tests db) (sqlite3:finalize! db) (run-waiting-tests #f) (set! *didsomething* #t)))) (if (args:get-arg "-runtests") (runtests)) ;;====================================================================== |
︙ |