Index: http-transport-inc.scm ================================================================== --- http-transport-inc.scm +++ http-transport-inc.scm @@ -14,14 +14,10 @@ ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see . -;; Configurations for server -;; (tcp-buffer-size 2048) -;; (max-connections 2048) - (define (http-transport:make-server-url hostport) (if (not hostport) #f (conc "http://" (car hostport) ":" (cadr hostport)))) @@ -35,10 +31,13 @@ ;; (define *db:process-queue-mutex* (make-mutex)) (define (http-transport:run hostn) + ;; Configurations for server + (tcp-buffer-size 2048) + (max-connections 2048) (debug:print 2 *default-log-port* "Attempting to start the server ...") (let* ((db #f) ;; (open-db)) ;; we don't want the server to be opening and closing the db unnecesarily (hostname (get-host-name)) (ipaddrstr (let ((ipstr (if (string=? "-" hostn) ;; (string-intersperse (map number->string (u8vector->list (hostname->ip hostname))) ".") Index: js-path.scm ================================================================== --- js-path.scm +++ js-path.scm @@ -13,6 +13,8 @@ ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see . ;; + +;; created init-java-script-lib in tests-inc.scm - do we still need this? (define *java-script-lib* (conc (common:get-install-area) "/share/js/jquery-3.1.0.slim.min.js")) Index: megamod.scm ================================================================== --- megamod.scm +++ megamod.scm @@ -194,10 +194,10 @@ (include "subrun-inc.scm") (include "tasks-inc.scm") (include "tdb-inc.scm") (include "tests-inc.scm") (include "vg-inc.scm") -(include "js-path.scm") ;; load last as it sets a global +;; (include "js-path.scm") ;; moved into init procedure in tests-inc.scm ) ;; http-transport:server-dat definition moved to common_records.scm ;; bunch of small functions factored out of send-receive to make debug easier Index: tests-inc.scm ================================================================== --- tests-inc.scm +++ tests-inc.scm @@ -20,10 +20,15 @@ ;;====================================================================== ;; Tests ;;====================================================================== +(define *java-script-lib* #f) + +(define (init-java-script-lib) + (set! *java-script-lib* (conc (common:get-install-area) "/share/js/jquery-3.1.0.slim.min.js")) + ) ;; Call this one to do all the work and get a standardized list of tests ;; gets paths from configs and finds valid tests ;; returns hash of testname --> fullpath ;;