Megatest

Differences From Artifact [0531aaf20e]:

• File common.scm — part of check-in [a5c316f836] at 2019-06-07 17:54:57 on branch v1.65-ezsteps-tcp — fixed step colors and first pass attempt to fix ezsteps chaining improperly in test control panel from "run one step" (user: bjbarcla, size: 123080) [annotate] [blame] [check-ins using]

To Artifact [138bd97b84]:

• File common.scm — part of check-in [2a78655184] at 2019-06-07 18:11:37 on branch v1.65-ezsteps-tcp — fixed some problems; some problems remain (eg. item variables missing, steps are repeated for some reason with "restart from here" step button (user: bjbarcla, size: 123091) [annotate] [blame] [check-ins using]

253
254
255
256
257
258
259
260
261
262
263
264
265
266
267

(define (common:steps-can-proceed-given-status-sym status-sym)
  (if (member status-sym '(warn waived pass))
      #t
      #f))

(define (status-sym->string status-sym)
  (case
      ((pass) "PASS")
    ((fail) "FAIL")
    ((warn) "WARN")
    ((check) "CHECK")
    ((waived) "WAIVED")
    ((abort) "ABORT")
    ((skip) "SKIP")

|

253
254
255
256
257
258
259
260
261
262
263
264
265
266
267

(define (common:steps-can-proceed-given-status-sym status-sym)
  (if (member status-sym '(warn waived pass))
      #t
      #f))

(define (status-sym->string status-sym)
  (case status-sym
      ((pass) "PASS")
    ((fail) "FAIL")
    ((warn) "WARN")
    ((check) "CHECK")
    ((waived) "WAIVED")
    ((abort) "ABORT")
    ((skip) "SKIP")