Megatest

Artifact ba8fec938ca32dd3c0447361fc84a6cffae31653:

• File megatest.scm — part of check-in [c91bfc7aa6] at 2024-11-07 05:22:48 on branch v1.90 — pgdb import was the problem, makes no sense

  sped up megatest startup and fully modularized. This branch is a good candidate for migrating to chicken 5. NOTE: There are some important changes on v1.81 that should be manually patched in. (user: matt, size: 3108) [annotate] [blame] [check-ins using]

;; Copyright 2006-2017, Matthew Welland.
;; 
;; This file is part of Megatest.
;; 
;;     Megatest is free software: you can redistribute it and/or modify
;;     it under the terms of the GNU General Public License as published by
;;     the Free Software Foundation, either version 3 of the License, or
;;     (at your option) any later version.
;; 
;;     Megatest is distributed in the hope that it will be useful,
;;     but WITHOUT ANY WARRANTY; without even the implied warranty of
;;     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;     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 <http://www.gnu.org/licenses/>.
;;

;; (include "common.scm")
;; (include "megatest-version.scm")

;; (declare (uses common))
;; (declare (uses megatest-version))
;; (declare (uses margs))
(declare (uses mtargs))
(declare (uses mtargs.import))
(declare (uses debugprint))
(declare (uses debugprint.import))
(declare (uses cookie))
(declare (uses cookie.import))
(declare (uses stml2))
(declare (uses stml2.import))
(declare (uses commonmod))
(declare (uses commonmod.import))
(declare (uses processmod))
(declare (uses processmod.import))
(declare (uses configfmod))
(declare (uses configfmod.import))
(declare (uses pgdb))
;; candidate
(declare (uses pgdb.import))
(declare (uses mtmod))
;; candidate
;; (declare (uses mtmod.import))
(declare (uses servermod))
;; candidate
;; (declare (uses servermod.import))
(declare (uses dbfile))
;; candidate
;; (declare (uses dbfile.import))
(declare (uses dbmod))
;; candidate
;; (declare (uses dbmod.import))
(declare (uses portlogger))
;; candidate
;; (declare (uses portlogger.import))
(declare (uses tcp-transportmod))
;; candidate
;; (declare (uses tcp-transportmod.import))
(declare (uses fsmod))
;; candidate
;; (declare (uses fsmod.import))
(declare (uses megatestmod))
;; candidate
;; (declare (uses megatestmod.import))
(declare (uses apimod))
;; candidate
;; (declare (uses apimod.import))
(declare (uses rmtmod))
;; candidate
;; (declare (uses rmtmod.import))
(declare (uses tasksmod))
;; candidate
;; (declare (uses tasksmod.import))
(declare (uses testsmod))
;; candidate
;; (declare (uses testsmod.import))
(declare (uses subrunmod))
;; candidate
;; (declare (uses subrunmod.import))
(declare (uses archivemod))
;; candidate
;; (declare (uses archivemod.import))
(declare (uses runsmod))
;; candidate
;; (declare (uses runsmod.import))
(declare (uses cpumod))
;; candidate
;; (declare (uses cpumod.import))
(declare (uses runsmod))
(declare (uses ezstepsmod))
(declare (uses launchmod))

(declare (uses tdb))
(declare (uses env))
(declare (uses diff-report))
(declare (uses server))
(declare (uses genexample))
(declare (uses mtbody))

(import csi)
;; fake out readline usage of toplevel-command
(set! toplevel-command (lambda (a b) #f))

;; required for chicken 4
(use srfi-69
     call-with-environment-variables
     csv
     regex
     regex-case
     sparse-vectors
     format
     fmt
     )

(import mtbody)

(main)