Megatest

Check-in [19d75f5d3d]
Login
Overview
Comment:first change for ABORT
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | add-abort-support
Files: files | file ages | folders
SHA1: 19d75f5d3ddf50ba0866cc1b40a97aac1c97cb41
User & Date: marasaia on 2014-01-09 11:06:09
Other Links: branch diff | manifest | tags
Context
2014-11-30
12:19
Merged ABORT changes check-in: 12a41bff5e user: matt tags: v1.60
2014-01-09
11:06
first change for ABORT Closed-Leaf check-in: 19d75f5d3d user: marasaia tags: add-abort-support
2014-01-06
15:36
tweak to mtgetfile but it is not completed ... check-in: 6014aa8df2 user: mrwellan tags: v1.55
Changes

Modified common.scm from [f48af6074c] to [9fa088cc1f].

97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
;; S T A T E S   A N D   S T A T U S E S
;;======================================================================

(define *common:std-states*   
  (list "COMPLETED" "NOT_STARTED" "RUNNING" "REMOTEHOSTSTART" "LAUNCHED" "KILLED" "KILLREQ" "STUCK"))

(define *common:std-statuses*
  (list  "PASS" "WARN" "FAIL" "CHECK" "n/a" "WAIVED" "SKIP" "DELETED" "STUCK/DEAD"))

;; These are stopping conditions that prevent a test from being run
(define *common:cant-run-states-sym* 
  '(COMPLETED KILLED WAIVED UNKNOWN INCOMPLETE))

;;======================================================================
;; D E B U G G I N G   S T U F F 







|







97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
;; S T A T E S   A N D   S T A T U S E S
;;======================================================================

(define *common:std-states*   
  (list "COMPLETED" "NOT_STARTED" "RUNNING" "REMOTEHOSTSTART" "LAUNCHED" "KILLED" "KILLREQ" "STUCK"))

(define *common:std-statuses*
  (list  "PASS" "WARN" "FAIL" "CHECK" "n/a" "WAIVED" "SKIP" "DELETED" "STUCK/DEAD" "ABORT"))

;; These are stopping conditions that prevent a test from being run
(define *common:cant-run-states-sym* 
  '(COMPLETED KILLED WAIVED UNKNOWN INCOMPLETE))

;;======================================================================
;; D E B U G G I N G   S T U F F 
424
425
426
427
428
429
430

431
  (cond
   ((equal? status "PASS")    "green")
   ((equal? status "FAIL")    "red")
   ((equal? status "WARN")    "orange")
   ((equal? status "KILLED")  "orange")
   ((equal? status "KILLREQ") "purple")
   ((equal? status "RUNNING") "blue")

   (else "black")))







>

424
425
426
427
428
429
430
431
432
  (cond
   ((equal? status "PASS")    "green")
   ((equal? status "FAIL")    "red")
   ((equal? status "WARN")    "orange")
   ((equal? status "KILLED")  "orange")
   ((equal? status "KILLREQ") "purple")
   ((equal? status "RUNNING") "blue")
   ((equal? status "ABORT")   "brown")
   (else "black")))