@@ -31,11 +31,11 @@ (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") (include "megatest-fossil-hash.scm") -;; (use trace) +;; (use trace dot-locking) ;; (trace ;; thread-sleep! ;; sqlite3:execute ;; sqlite3:for-each-row ;; open-run-close @@ -46,10 +46,15 @@ ;; db:teststep-set-status! ;; tests:test-set-status! ;; cdb:test-set-status-state ;; cdb:client-call ;; tests:check-waiver-eligibility +;; tests:summarize-items +;; db:test-get-logfile-info +;; obtain-dot-lock +;; change-directory +;; cdb:remote-run ;; ) (define help (conc " Megatest, documentation at http://www.kiatoa.com/fossils/megatest