75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
(define (subrun:remove-subrun test-run-dir new-test-dat test-name item-path test-state test-fulln toplevel-with-children test)
;; set state/status of test item
;; fork off megatest
;; set state/status of test item
;;
(BB> "Entered subrun:remove-subrun with "test-fulln)
(if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
(let* ((remove-result
(subrun:exec-sub-megatest test-run-dir "-remove-runs" "remove")))
(if remove-result
(begin
(subrun:set-subrun-removed test-run-dir)
#t)
|
|
|
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
(define (subrun:remove-subrun test-run-dir new-test-dat test-name item-path test-state test-fulln toplevel-with-children test)
;; set state/status of test item
;; fork off megatest
;; set state/status of test item
;;
;;(BB> "Entered subrun:remove-subrun with "test-fulln)
(if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
(let* ((remove-result
(subrun:exec-sub-megatest test-run-dir "-remove-runs" "remove")))
(if remove-result
(begin
(subrun:set-subrun-removed test-run-dir)
#t)
|