Megatest

Check-in [2513a8d303]
Login
Overview
Comment:Don't do threaded registration
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 2513a8d30320d0c294ff2cd00122ee7e7aca06de
User & Date: matt on 2014-10-28 23:08:43
Other Links: branch diff | manifest | tags
Context
2014-10-29
13:57
Merged Tal's nbfake fix to v1.60 check-in: 02d61b3703 user: mrwellan tags: v1.60
11:47
Update nbfake to write output to stderr, and append to logfile. Update nbfake variables, but fall back to old TARGETHOST vars check-in: 712f18e24b user: tyardeni tags: v1.60-nbfake-stderr
2014-10-28
23:08
Don't do threaded registration check-in: 2513a8d303 user: matt tags: v1.60
00:18
change default for server-query-threshold to -1, forcing always a server to start Added test for vars with . check-in: cf47596912 user: matt tags: v1.60
Changes

Modified runs.scm from [87b2bf35e9] to [e52279daef].

666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
		reruns)
	  #f))
     
     ;; Register tests 
     ;;
     ((not (hash-table-ref/default test-registry (runs:make-full-test-name test-name item-path) #f))
      (debug:print-info 4 "Pre-registering test " test-name "/" item-path " to create placeholder" )
      (if (eq? *transport-type* 'fs) ;; no point in parallel registration if use fs
	  (begin
	    (rmt:general-call 'register-test run-id run-id test-name item-path)
	    (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'done))
	  (let ((th (make-thread (lambda ()
				   (mutex-lock! registry-mutex)
				   (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'start)
				   (mutex-unlock! registry-mutex)







|







666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
		reruns)
	  #f))
     
     ;; Register tests 
     ;;
     ((not (hash-table-ref/default test-registry (runs:make-full-test-name test-name item-path) #f))
      (debug:print-info 4 "Pre-registering test " test-name "/" item-path " to create placeholder" )
      (if #t ;; always do firm registration now in v1.60 and greater ;; (eq? *transport-type* 'fs) ;; no point in parallel registration if use fs
	  (begin
	    (rmt:general-call 'register-test run-id run-id test-name item-path)
	    (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'done))
	  (let ((th (make-thread (lambda ()
				   (mutex-lock! registry-mutex)
				   (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'start)
				   (mutex-unlock! registry-mutex)