Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -317,11 +317,12 @@
 			    (loop (car tal) (cdr tal) stepname))
 			(debug:print 4 *default-log-port* "WARNING: step " (car ezstep) " failed. Stopping")))
 		  (debug:print 4 *default-log-port* "WARNING: a prior step failed, stopping at " ezstep)))))))
 
 (define (launch:monitor-job run-id test-id item-path fullrunscript ezsteps test-name tconfigreg exit-info m work-area runtlim misc-flags)
-  (let* ((start-seconds (current-seconds))
+  (let* ((update-period (string->number (or (configf:lookup *configdat* "setup" "test-stats-update-period") "30")))
+         (start-seconds (current-seconds))
 	 (calc-minutes  (lambda ()
 			  (inexact->exact 
 			   (round 
 			    (- 
 			     (current-seconds) 
@@ -332,22 +333,25 @@
     (tests:set-full-meta-info #f test-id run-id (calc-minutes) work-area 10)
     (let loop ((minutes   (calc-minutes))
 	       (cpu-load  (alist-ref 'adj-core-load (common:get-normalized-cpu-load #f)))
 	       (disk-free (get-df (current-directory)))
                (last-sync (current-seconds)))
-      (let* ((new-cpu-load (let* ((load  (alist-ref 'adj-core-load (common:get-normalized-cpu-load #f)))
-                                  (delta (abs (- load cpu-load))))
-                             (if (> delta 0.1) ;; don't bother updating with small changes
-                                 load
-                                 #f)))
-             (new-disk-free (let* ((df    (get-df (current-directory)))
+      (let* ((over-time     (> (current-seconds) (+ last-sync update-period)))
+             (new-cpu-load  (let* ((load  (alist-ref 'adj-core-load (common:get-normalized-cpu-load #f)))
+                                   (delta (abs (- load cpu-load))))
+                              (if (> delta 0.1) ;; don't bother updating with small changes
+                                  load
+                                  #f)))
+             (new-disk-free (let* ((df    (if over-time ;; only get df every 30 seconds
+                                              (get-df (current-directory))
+                                              disk-free))
                                    (delta (abs (- df disk-free))))
                               (if (and (> df 0)
                                        (> (/ delta df) 0.1)) ;; (> delta 200) ;; ignore changes under 200 Meg
                                   df
                                   #f)))
-             (do-sync       (or new-cpu-load new-disk-free (> (current-seconds) (+ last-sync 30)))))
+             (do-sync       (or new-cpu-load new-disk-free over-time)))
         (debug:print 4 *default-log-port* "cpu: " new-cpu-load " disk: " new-disk-free " last-sync: " last-sync " do-sync: " do-sync)
 	(set! kill-job? (or (test-get-kill-request run-id test-id) ;; run-id test-name itemdat))
 			    (and runtlim (let* ((run-seconds   (- (current-seconds) start-seconds))
 						(time-exceeded (> run-seconds runtlim)))
 					   (if time-exceeded

Index: tests/unittests/all-rmt.scm
==================================================================
--- tests/unittests/all-rmt.scm
+++ tests/unittests/all-rmt.scm
@@ -26,16 +26,10 @@
 (test #f #t (string? (server:check-if-running ".")))
 ;; DEF (test #f #f (rmt:send-receive-no-auto-client-setup *runremote* 'get-keys #f '()))
 ;; DEF (rmt:kill-server run-id)
 ;; DEF (rmt:start-server run-id)
 (test #f '(#t "successful login")(rmt:login #f))
-
-(test-batch rmt:login
-            "rmt:login"
-            (list (list "good" (list #t "successful login") #f)
-                  (list "bad"  (list #f "login failed")     #t)))
-
 ;; DEF (rmt:login-no-auto-client-setup connection-info)
 (test #f #t (pair? (rmt:get-latest-host-load (get-host-name))))
 
 ;; get-latest-host-load does a lookup in the db, it won't return a useful value unless
 ;; a test ran recently on host
@@ -112,11 +106,11 @@
               "rmt:get-runs-by-patt"
               (list (list "t=0" #t keys rnp tpt #f #f #f 0)
                     (list "t=current" #f keys rnp tpt #f #f #f (+ 100 (current-seconds))) ;; should be no records from the future
                     )
               post-proc: (lambda (res)
-                           (print "rmt:get-runs-by-patt returned: " res)
+                           ;; (print "rmt:get-runs-by-patt returned: " res)
                            (and (vector? res)
                                 (let ((rows (vector-ref res 1)))
                                   (> (length rows) 0))))))
 
 ;; (rmt:find-and-mark-incomplete run-id ovr-deadtime)