Megatest

Check-in [af98582cf7]
Login
Overview
Comment:added hook for end-of-run checking
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-end-of-run
Files: files | file ages | folders
SHA1: af98582cf7abe594ce3bfe054bdb23b0fab1ea08
User & Date: bjbarcla on 2019-02-27 12:53:56
Other Links: branch diff | manifest | tags
Context
2019-03-11
17:55
added options for lock unlck via mtutil check-in: f36ee6d2df user: pjhatwal tags: v1.65-end-of-run
2019-02-27
12:53
added hook for end-of-run checking check-in: af98582cf7 user: bjbarcla tags: v1.65-end-of-run
2019-02-16
13:58
Merged in missing changes from intra-waiton check-in: 7b1e045169 user: matt tags: v1.65
Changes

Modified launch.scm from [6dd1993f7c] to [9077b3d3fc].

811
812
813
814
815
816
817




818
819
820
821
822





823
824
825
826
827
828
829
		    ))
	      ;; for automated creation of the rollup html file this is a good place...
	      (if (not (equal? item-path ""))
		  (tests:summarize-items run-id test-id test-name #f))
	      (tests:summarize-test run-id test-id)  ;; don't force - just update if no
	      (rmt:update-run-stats run-id (rmt:get-raw-run-stats run-id)))
	    (mutex-unlock! m)




	    (debug:print 2 *default-log-port* "Output from running " fullrunscript ", pid " (launch:einf-pid exit-info) " in work area " 
			 work-area ":\n====\n exit code " (launch:einf-exit-code exit-info) "\n" "====\n")
	    (if (not (launch:einf-exit-status exit-info))
		(exit 4))))
        )))






;; DO NOT USE - caching of configs is handled in launch:setup now.
;;
(define (launch:cache-config)
  ;; if we have a linktree and -runtests and -target and the directory exists dump the config
  ;; to megatest-(current-seconds).cfg and symlink it to megatest.cfg
  (if (and *configdat* 







>
>
>
>





>
>
>
>
>







811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
		    ))
	      ;; for automated creation of the rollup html file this is a good place...
	      (if (not (equal? item-path ""))
		  (tests:summarize-items run-id test-id test-name #f))
	      (tests:summarize-test run-id test-id)  ;; don't force - just update if no
	      (rmt:update-run-stats run-id (rmt:get-raw-run-stats run-id)))
	    (mutex-unlock! m)

            (launch:end-of-run-check run-id)

            
	    (debug:print 2 *default-log-port* "Output from running " fullrunscript ", pid " (launch:einf-pid exit-info) " in work area " 
			 work-area ":\n====\n exit code " (launch:einf-exit-code exit-info) "\n" "====\n")
	    (if (not (launch:einf-exit-status exit-info))
		(exit 4))))
        )))

(define (launch:end-of-run-check run-id)
  (debug:print 0 *default-log-port* "end-of-run-check would go here for run-id="run-id)
  #f)


;; DO NOT USE - caching of configs is handled in launch:setup now.
;;
(define (launch:cache-config)
  ;; if we have a linktree and -runtests and -target and the directory exists dump the config
  ;; to megatest-(current-seconds).cfg and symlink it to megatest.cfg
  (if (and *configdat*