Overview
| Comment: | Committing the working changes till now |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | popup_menu |
| Files: | files | file ages | folders |
| SHA1: |
2bf74c5d9c34dbc75008c8d1556c09c2 |
| User & Date: | ritikaag on 2016-07-22 18:18:33 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-08-01
| ||
| 14:18 | Added complete run check-in: b0afb95799 user: ritikaag tags: popup_menu | |
|
2016-07-28
| ||
| 11:18 | Merged popup_menu into v1.61 check-in: 2b8417a9ab user: mrwellan tags: v1.61 | |
|
2016-07-22
| ||
| 18:18 | Committing the working changes till now check-in: 2bf74c5d9c user: ritikaag tags: popup_menu | |
|
2016-07-20
| ||
| 17:50 | Updated right-click menu check-in: 86df3fd045 user: ritikaag tags: popup_menu | |
Changes
Modified dashboard-tests.scm from [f1c7f822ad] to [3a6a535f7d].
| ︙ | ︙ | |||
597 598 599 600 601 602 603 | ;; (debug:print-info 02 *default-log-port* "Running command: " fullcmd) ;; (common:without-vars fullcmd "MT_.*"))))) (kill-jobs (lambda (x) (iup:attribute-set! command-text-box "VALUE" (conc "megatest -target " keystring " -runname " runname " -set-state-status KILLREQ,n/a -testpatt %/% " | | | 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 | ;; (debug:print-info 02 *default-log-port* "Running command: " fullcmd) ;; (common:without-vars fullcmd "MT_.*"))))) (kill-jobs (lambda (x) (iup:attribute-set! command-text-box "VALUE" (conc "megatest -target " keystring " -runname " runname " -set-state-status KILLREQ,n/a -testpatt %/% " " -state RUNNING,REMOTEHOSTSTART,LAUNCHED")))) (run-test (lambda (x) (iup:attribute-set! command-text-box "VALUE" (conc "megatest -target " keystring " -runname " runname " -run -testpatt " (conc testname "/" (if (equal? item-path "") "%" item-path)) |
| ︙ | ︙ |
Modified dashboard.scm from [08552a595a] to [32b8141c09].
| ︙ | ︙ | |||
1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 |
" -runname " runname
" -testpatt " test-name
" -preclean -clean-cache"))))
(iup:menu-item
(conc "Kill " test-name)
#:action
(lambda (obj)
(common:run-a-command
(conc "megatest -set-state-status KILLREQ,n/a -target " target
" -runname " runname
" -testpatt " test-name
| > | > | | | 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 |
" -runname " runname
" -testpatt " test-name
" -preclean -clean-cache"))))
(iup:menu-item
(conc "Kill " test-name)
#:action
(lambda (obj)
;; (rmt:test-set-state-status-by-id run-id test-id "KILLREQ" #f #f)
(common:run-a-command
(conc "megatest -set-state-status KILLREQ,n/a -target " target
" -runname " runname
" -testpatt " test-name
" -state RUNNING,REMOTEHOSTSTART,LAUNCHED"))))
(iup:menu-item
(conc "Clean " test-name)
#:action
(lambda (obj)
(common:run-a-command
(conc "megatest -remove-runs -target " target
" -runname " runname
" -testpatt " test-name))))
(iup:menu-item
"Start xterm"
#:action
(lambda (obj)
(dcommon:examine-xterm run-id test-id)))
;;(let* ((cmd (conc (car (argv)) " -xterm " run-id "," test-id "&")))
;; (system cmd))))
(iup:menu-item
"Edit testconfig"
#:action
(lambda (obj)
(let* ((all-tests (tests:get-all))
(editor-rx (or (configf:lookup *configdat* "setup" "editor-regex")
"\\b(vim?|nano|pico)\\b"))
|
| ︙ | ︙ |