Megatest

Check-in [60bea8540c]
Login
Overview
Comment:Replace the possibly extraneous sleep with a rmt call to ensure server available.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-nosleep
Files: files | file ages | folders
SHA1: 60bea8540cfbb553dfe268a613149b812b912976
User & Date: mrwellan on 2019-03-13 12:23:19
Other Links: branch diff | manifest | tags
Context
2019-03-29
11:36
merged v1.65-nosleep Closed-Leaf check-in: 2ea9ce81b4 user: bjbarcla tags: v1.65-integ-19-03-29
2019-03-13
12:23
Replace the possibly extraneous sleep with a rmt call to ensure server available. Closed-Leaf check-in: 60bea8540c user: mrwellan tags: v1.65-nosleep
2019-03-12
18:26
removing chestertons fence check-in: 53ed616f9f user: bjbarcla tags: v1.65-nosleep
Changes

Modified tests.scm from [80d06aa554] to [3fce4840b2].

483
484
485
486
487
488
489



490
491
492
493
494
495
496
			   tol      ","
			   units    ","
			   dcomment ",," ;; extra comma for status
			   type     )))
	    ;; This was run remote, don't think that makes sense. Perhaps not, but that is the easiest path for the moment.
	    (rmt:csv->test-data run-id test-id
				dat)



            ;; BB - commentiong out arbitrary 10 second wait (thread-sleep! 10) ;; add 10 second delay before quit incase rmt needs time to start a server.
            )))
      
    ;; need to update the top test record if PASS or FAIL and this is a subtest
    ;;;;;; (if (not (equal? item-path ""))
    ;;;;;;     (rmt:set-state-status-and-roll-up-items run-id test-name item-path state status #f) ;;;;;)








>
>
>







483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
			   tol      ","
			   units    ","
			   dcomment ",," ;; extra comma for status
			   type     )))
	    ;; This was run remote, don't think that makes sense. Perhaps not, but that is the easiest path for the moment.
	    (rmt:csv->test-data run-id test-id
				dat)
	    ;; This was added in check-in a5adfa3f9a. Message was: "...added delay in set-values to allow for delayed write on server start"
	    ;; I'm inserting an arbitrary rmt: call to force/ensure that the server is available to (hopefully) prevent a communication issue.
	    (rmt:get-var "MEGATEST_VERSION") ;; this does NOTHING but ensure the server is reachable. This is almost certainly NOT needed :)
            ;; BB - commentiong out arbitrary 10 second wait (thread-sleep! 10) ;; add 10 second delay before quit incase rmt needs time to start a server.
            )))
      
    ;; need to update the top test record if PASS or FAIL and this is a subtest
    ;;;;;; (if (not (equal? item-path ""))
    ;;;;;;     (rmt:set-state-status-and-roll-up-items run-id test-name item-path state status #f) ;;;;;)