Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-custom-menu |
| Files: | files | file ages | folders |
| SHA1: |
d05d52e7504b851b0932af9d52fbef30 |
| User & Date: | bjbarcla on 2018-02-13 18:10:09 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-02-13
| ||
| 23:10 | wip check-in: 915e74bc33 user: bb tags: v1.65-custom-menu | |
| 18:10 | wip check-in: d05d52e750 user: bjbarcla tags: v1.65-custom-menu | |
| 16:57 | added filter for -generate-html-structure check-in: 1e9a20f13a user: pjhatwal tags: v1.65 | |
Changes
Modified dashboard.scm from [fca0a7ecf2] to [d7ea6a4a7b].
| ︙ | ︙ | |||
2475 2476 2477 2478 2479 2480 2481 |
(iup:menu-item
"Launch subrun dashboard"
#:action
(lambda (obj)
(subrun:launch-dashboard rundir)))
(iup:vbox)))
| | < | | 2475 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 |
(iup:menu-item
"Launch subrun dashboard"
#:action
(lambda (obj)
(subrun:launch-dashboard rundir)))
(iup:vbox)))
(let* ((run-menu-items
(list
(iup:menu-item
(conc "Rerun " testpatt)
#:action
(lambda (obj)
;; (print " run-id: " run-id " test-id: " test-id " target: " target " runname: " runname " test-name: " test-name " testpatt: " testpatt "item-path : " item-path)
(common:run-a-command
(conc "megatest -run -target " target
|
| ︙ | ︙ | |||
2524 2525 2526 2527 2528 2529 2530 |
#:action
(lambda (obj)
(common:run-a-command
(conc "megatest -remove-runs -target " target
" -runname " runname
" -testpatt % "
" -keep-records"))))))
| | < < | 2523 2524 2525 2526 2527 2528 2529 2530 2531 2532 2533 2534 2535 2536 2537 |
#:action
(lambda (obj)
(common:run-a-command
(conc "megatest -remove-runs -target " target
" -runname " runname
" -testpatt % "
" -keep-records"))))))
(test-menu-items
(iup:menu-item
(conc "Rerun " item-test-path)
#:action
(lambda (obj)
(common:run-a-command
(conc "megatest -set-state-status NOT_STARTED,n/a -run -target " target
" -runname " runname
|
| ︙ | ︙ | |||
2585 2586 2587 2588 2589 2590 2591 | (get-environment-variable "VISUAL") (get-environment-variable "EDITOR") "vi")) (tconfig (conc (hash-table-ref all-tests test-name) "/testconfig")) (cmd (conc (if (string-search editor-rx editor) (conc "xterm -e " editor) editor) " " tconfig " &"))) | | > > > > > > > > > > > > > > | 2582 2583 2584 2585 2586 2587 2588 2589 2590 2591 2592 2593 2594 2595 2596 2597 2598 2599 2600 2601 2602 2603 2604 2605 2606 2607 2608 2609 2610 |
(get-environment-variable "VISUAL")
(get-environment-variable "EDITOR") "vi"))
(tconfig (conc (hash-table-ref all-tests test-name) "/testconfig"))
(cmd (conc (if (string-search editor-rx editor)
(conc "xterm -e " editor)
editor)
" " tconfig " &")))
(system cmd)))))
(custom-menu-items (dashboard:get-custom-menu-items *configdat*))
)
(iup:menu-item
"Run"
(apply iup:menu run-menu-items))
(iup:menu-item
"Test"
(apply iup:menu test-menu-items))
)
))))
(define (make-dashboard-buttons commondat) ;; runs-sum-dat new-view-dat)
(let* ((stats-dat (dboard:tabdat-make-data))
|
| ︙ | ︙ |
Added scratch.org version [78eb448d8d].
> > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | * template variables - run-id - test-id - item-test-path - runname - test-name - target * launch-type - in an xterm (common:run-a-command ... ) * insertion [custom-context-menu-items] item1=Test/netbatch_diagnose:$MT_RUN_AREA_HOME/../bin/nbdiag -test-id %test-id -test-path %item-test-path item2=netbatch_diagnose:$MT_RUN_AREA_HOME/../bin/nbdiag -test-id %test-id -test-path %item-test-path |