Megatest

Check-in [cbc9328c04]
Login
Overview
Comment:Fixed typo
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.55
Files: files | file ages | folders
SHA1: cbc9328c04c5047ba509e44e3b4f73b15b95ac80
User & Date: matt on 2013-09-12 23:42:02
Other Links: branch diff | manifest | tags
Context
2013-09-13
18:17
Somewhat speculative and partial fix for the non updating state/status on test run with transport=fs check-in: 0b313f7218 user: mrwellan tags: v1.55
2013-09-12
23:42
Fixed typo check-in: cbc9328c04 user: matt tags: v1.55
23:38
Added exec to nbfake. Changed test4 to do launchwait. Added forced registration of top level tests as not having them is a path to possible escape on silent failure check-in: fd20d22153 user: matt tags: v1.55
Changes

Modified runs.scm from [0825d9ad63] to [076ca20ea8].

718
719
720
721
722
723
724
725

726
727
728


729
730
731
732
733
734
735
718
719
720
721
722
723
724

725
726


727
728
729
730
731
732
733
734
735







-
+

-
-
+
+







	     (item-path   (item-list->path itemdat))
	     (tfullname   (runs:make-full-test-name test-name item-path))
	     (newtal      (append tal (list hed)))
	     (regfull     (>= (length reg) reglen)))

	;; Ensure all top level tests get registered. This way they show up as "NOT_STARTED" on the dashboard
	;; and it is clear they *should* have run but did not.
	(if (not (hash-table-ref/default test-registry (runs:make-full-test-name hed "") #f))
	(if (not (hash-table-ref/default test-registry (runs:make-full-test-name test-name "") #f))
	    (begin
	      (cdb:tests-register-test *runremote* run-id hed "")
	      (hash-table-set! test-registry (runs:make-full-test-name hed "") 'done)))
	      (cdb:tests-register-test *runremote* run-id test-name "")
	      (hash-table-set! test-registry (runs:make-full-test-name test-name "") 'done)))
	
	;; Fast skip of tests that are already "COMPLETED" - NO! Cannot do that as the items may not have been expanded yet :(
	;;
	(if (member (hash-table-ref/default test-registry tfullname #f) 
		    '(DONOTRUN removed)) ;; *common:cant-run-states-sym*) ;; '(COMPLETED KILLED WAIVED UNKNOWN INCOMPLETE))
	    (begin
	      (debug:print-info 0 "Skipping test " tfullname " as it has been marked do not run due to being completed or not runnable")