Megatest

Check-in [60be4f31ee]
Login
Overview
Comment:Fix for false ZERO_ITEMS scenario bug.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.6029a
Files: files | file ages | folders
SHA1: 60be4f31eec2f1fa0319b5da6aeda643f1fc5eca
User & Date: mrwellan on 2016-02-22 10:51:35
Other Links: branch diff | manifest | tags
Context
2017-05-02
23:05
v1.6029a with nanomsg dependency removed Leaf check-in: b23b245846 user: matt tags: v1.6029a
2016-02-22
10:52
Merged fix from v1.6029a check-in: 2a9656143f user: mrwellan tags: v1.60
10:51
Fix for false ZERO_ITEMS scenario bug. check-in: 60be4f31ee user: mrwellan tags: v1.6029a
2016-01-11
16:58
Bump version to v1.6029 check-in: 3aa6e44158 user: icfadm tags: v1.60, v1.6029
Changes

Modified runs.scm from [93791638c8] to [2c3d8a7934].

598
599
600
601
602
603
604
605



606
607
608
609
610
611
612
613
	(setenv "MT_TEST_NAME" test-name) ;; 
	(setenv "MT_RUNNAME"   runname)
	(runs:set-megatest-env-vars run-id inrunname: runname) ;; these may be needed by the launching process
	(let ((items-list (items:get-items-from-config tconfig)))
	  (if (list? items-list)
	      (begin
		(if (null? items-list)
		    (let ((test-id (rmt:get-test-id run-id test-name "")))



		      (if test-id (mt:test-set-state-status-by-id run-id test-id "NOT_STARTED" "ZERO_ITEMS" "Failed to run due to failed prerequisites"))))
		(tests:testqueue-set-items! test-record items-list)
		(list hed tal reg reruns))
	      (begin
		(debug:print 0 "ERROR: The proc from reading the items table did not yield a list - please report this")
		(exit 1))))))

     ((and (null? fails)







|
>
>
>
|







598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
	(setenv "MT_TEST_NAME" test-name) ;; 
	(setenv "MT_RUNNAME"   runname)
	(runs:set-megatest-env-vars run-id inrunname: runname) ;; these may be needed by the launching process
	(let ((items-list (items:get-items-from-config tconfig)))
	  (if (list? items-list)
	      (begin
		(if (null? items-list)
		    (let ((test-id   (rmt:get-test-id run-id test-name ""))
			  (num-items (rmt:test-toplevel-num-items run-id test-name)))
		      (if (and test-id
			       (not (> num-items 0)))
			  (mt:test-set-state-status-by-id run-id test-id "NOT_STARTED" "ZERO_ITEMS" "Failed to run due to failed prerequisites"))))
		(tests:testqueue-set-items! test-record items-list)
		(list hed tal reg reruns))
	      (begin
		(debug:print 0 "ERROR: The proc from reading the items table did not yield a list - please report this")
		(exit 1))))))

     ((and (null? fails)