Megatest

Check-in [dc0c36c096]
Login
Overview
Comment:Clone always for fossil sensing. Need additional logic otherwise
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: dc0c36c0969c1a58196422f1f854e4914bda1bf9
User & Date: matt on 2017-03-27 00:59:46
Other Links: branch diff | manifest | tags
Context
2017-03-27
12:05
Improvements to exclusive mode (but it still isn't working quite right). Factored clean-cache into a reusable function and called it also in -rerun*. Reduced number of server files to analyze. This may reduce the probability of a runaway server situation. check-in: 0f50a21b44 user: matt tags: v1.64
00:59
Clone always for fossil sensing. Need additional logic otherwise check-in: dc0c36c096 user: matt tags: v1.64
00:42
First attempt at the exclusive mode. Not working yet but leaving the code on the v1.64 branch in anticipation of fixing it. check-in: 3269b1925d user: matt tags: v1.64
Changes

Modified mtut.scm from [a315b155fe] to [3c13ebe524].

671
672
673
674
675
676
677
678
679


680
681
682
683
684
685
686
671
672
673
674
675
676
677


678
679
680
681
682
683
684
685
686







-
-
+
+







		       (lambda (fspec)
			 (print "fspec: " fspec)
			 (let* ((url         (symbol->string (car fspec))) ;; THIS COULD BE TROUBLE. Add option to reading line to return as string.
				(branch      (cdr fspec))
				(url-is-file (string-match "^(/|file:).*$" url))
				(fname       (conc (common:get-signature url) ".fossil"))
				(fdir        (conc "/tmp/" (current-user-name) "/mtutil_cache")))
			   (if (not url-is-file) ;; need to sync first
			       (fossil:clone-or-sync url fname fdir))
			   ;; (if (not url-is-file) ;; need to sync first --- for now, clone 'em all.
			   (fossil:clone-or-sync url fname fdir) ;; )
			   (let-values (((datetime node)
					 (fossil:last-change-node-and-time fdir fname branch)))
			     (if (null? starttimes)
				 (push-run-spec torun contour runkey
						`((message . ,(conc "fossil:" branch "-neverrun"))
						  (runname . ,(conc runname "-" node))
						  (runtrans . ,runtrans)