Megatest

Changes On Branch 60be4f31eec2f1fa
Login

Changes In Branch v1.6029a Through [60be4f31ee] Excluding Merge-Ins

This is equivalent to a diff from 3aa6e44158 to 60be4f31ee

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-13
14:40
updatess to spublish check-in: f252549946 user: pjhatwal tags: v1.60
2016-01-11
16:58
Bump version to v1.6029 check-in: 3aa6e44158 user: icfadm tags: v1.60, v1.6029
11:22
Minor tweak to help check-in: ba8dfaa7fe user: mrwellan tags: v1.60

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)