Overview
| Comment: | Launch the remove-runs process in an xterm |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1849a06c5d512c9feb4088d83ea48d9e |
| User & Date: | matt on 2012-03-25 15:05:28 |
| Other Links: | manifest | tags |
Context
|
2012-03-25
| ||
| 15:15 | Added current dir to end of path so that on systems without . in the path the script will still be found check-in: ae5dd4f3a6 user: matt tags: trunk | |
| 15:05 | Launch the remove-runs process in an xterm check-in: 1849a06c5d user: matt tags: trunk | |
| 14:41 | Fixed updating of test run meta data check-in: 39b53fe321 user: matt tags: trunk | |
Changes
Modified dashboard-tests.scm from [92e6e75c72] to [a471ab5603].
| ︙ | ︙ | |||
340 341 342 343 344 345 346 | (command-text-box (iup:textbox #:expand "HORIZONTAL" #:font "Courier New, -10")) (command-launch-button (iup:button "Execute!" #:action (lambda (x) (let ((cmd (iup:attribute command-text-box "VALUE"))) (system (conc cmd " &")))))) (run-test (lambda (x) (iup:attribute-set! command-text-box "VALUE" | | | | | | 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 | (command-text-box (iup:textbox #:expand "HORIZONTAL" #:font "Courier New, -10")) (command-launch-button (iup:button "Execute!" #:action (lambda (x) (let ((cmd (iup:attribute command-text-box "VALUE"))) (system (conc cmd " &")))))) (run-test (lambda (x) (iup:attribute-set! command-text-box "VALUE" (conc "xterm -e \"megatest -runtests " testname " -target " keystring " :runname " runname " -itempatt " (if (equal? item-path "") "%" item-path) "\"")))) (remove-test (lambda (x) (iup:attribute-set! command-text-box "VALUE" (conc "xterm -e \"megatest -remove-runs -target " keystring " :runname " runname " -testpatt " testname " -itempatt " (if (equal? item-path "") "%" item-path) " -v\""))))) (cond ((not testdat)(begin (print "ERROR: bad test info for " test-id)(exit 1))) ((not rundat)(begin (print "ERROR: found test info but there is a problem with the run info for " run-id)(exit 1))) (else ;; (test-set-status! db run-id test-name state status itemdat) (set! self ; (iup:dialog #:close_cb (lambda (a)(exit)) ; #:expand "YES" |
| ︙ | ︙ |
Modified tests/Makefile from [1e23804995] to [293e5d6255].
1 2 3 4 5 6 7 | # run some tests BINPATH=$(shell realpath ../bin) MEGATEST=$(BINPATH)/megatest PATH := $(BINPATH):$(PATH) RUNNAME := $(shell date +w%V.%u.%H) IPADDR := "-" | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | # run some tests BINPATH=$(shell realpath ../bin) MEGATEST=$(BINPATH)/megatest PATH := $(BINPATH):$(PATH) RUNNAME := $(shell date +w%V.%u.%H) IPADDR := "-" # Set SERVER to "-server -" SERVER := "" runall : test1 test2 test1 : cleanprep $(MEGATEST) -runtests ez_pass -target ubuntu/nfs/none :runname $(RUNNAME)_a $(SERVER) |
| ︙ | ︙ |