Megatest

Diff
Login

Differences From Artifact [33f393d42b]:

To Artifact [0e4c7cba39]:


443
444
445
446
447
448
449
450
451


452
453
454
455
456
457
458
443
444
445
446
447
448
449


450
451
452
453
454
455
456
457
458







-
-
+
+







			       #f))
		       (string<? (conc time-a)(conc time-b)))))))))

;;======================================================================
;;
;;======================================================================
(define (examine-test test-id) ;; run-id run-key origtest)
  (let* ((db-path       (conc *toppath* "/megatest.db"))
	 (db            (open-db))
  (let* ((db-path       (conc *toppath* "db/main.db"))
	 (db            (make-dbr:dbstruct path: *toppath*))
	 (tdb           (tdb:open-test-db-by-test-id-local test-id))
	 (testdat       (db:get-test-info-by-id db test-id))
	 (db-mod-time   0) ;; (file-modification-time db-path))
	 (last-update   0) ;; (current-seconds))
	 (request-update #t))
    (if (not testdat)
	(begin