Megatest

Check-in [de7e2cbe77]
Login
Overview
Comment:fixed some problems; some problems remain (eg. item variables missing, steps are repeated for some reason with "restart from here" step button
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-ezsteps-tcp
Files: files | file ages | folders
SHA1: de7e2cbe776b461a36900b19e5e87a2bab6332c9
User & Date: bjbarcla on 2019-06-07 18:11:57
Other Links: branch diff | manifest | tags
Context
2019-06-10
18:17
removed prevstep stuff; pushed chdir into mt_ezstep; fixed ezstep logic; added source of megatest.sh into mt_ezstep check-in: 4d4aaf1f36 user: bjbarcla tags: v1.65-ezsteps-tcp
2019-06-07
18:11
fixed some problems; some problems remain (eg. item variables missing, steps are repeated for some reason with "restart from here" step button check-in: de7e2cbe77 user: bjbarcla tags: v1.65-ezsteps-tcp
18:11
fixed some problems; some problems remain (eg. item variables missing, steps are repeated for some reason with "restart from here" step button check-in: 2a78655184 user: bjbarcla tags: v1.65-ezsteps-tcp
Changes

Modified ezsteps.scm from [cba943d803] to [612a4b6ce6].

36
37
38
39
40
41
42
43
44
45
46
47
48
49
50


;;(rmt:get-test-info-by-id run-id test-id) -> testdat



(define (ezsteps:run-from testdat start-step-name run-one)
  ;;# TODO - recapture item variables, debug repeated step eval
  (let* ((test-run-dir  ;; (filedb:get-path *fdb* 
	  (db:test-get-rundir testdat)) ;; )
	 (testconfig    (read-config (conc test-run-dir "/testconfig") #f #t environ-patt: "pre-launch-env-vars"))
	 (ezstepslst    (hash-table-ref/default testconfig "ezsteps" '()))
	 (run-mutex     (make-mutex))
	 (rollup-status 0)
         (rollup-status-string #f)







|







36
37
38
39
40
41
42
43
44
45
46
47
48
49
50


;;(rmt:get-test-info-by-id run-id test-id) -> testdat



(define (ezsteps:run-from testdat start-step-name run-one)
  ;;# TODO - recapture item variables, debug repeated step eval; regen logpro from test
  (let* ((test-run-dir  ;; (filedb:get-path *fdb* 
	  (db:test-get-rundir testdat)) ;; )
	 (testconfig    (read-config (conc test-run-dir "/testconfig") #f #t environ-patt: "pre-launch-env-vars"))
	 (ezstepslst    (hash-table-ref/default testconfig "ezsteps" '()))
	 (run-mutex     (make-mutex))
	 (rollup-status 0)
         (rollup-status-string #f)