Megatest

Check-in [02787730a2]
Login
Overview
Comment:removed reference to open-run-close-no-exception-handling since it was removed in db.scm. This fixes -debug 3 and higher.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 02787730a2e6787aeb1dc8cbd2d20e43925b9272
User & Date: mmgraham on 2019-12-03 22:50:56
Other Links: branch diff | manifest | tags
Context
2019-12-09
15:42
added note NEED to reprocess testconfig here... check-in: 16da8558ed user: mmgraham tags: v1.65
2019-12-08
16:46
Merged long-running v1.65 branch to trunk check-in: a11b626717 user: matt tags: trunk
2019-12-03
22:50
removed reference to open-run-close-no-exception-handling since it was removed in db.scm. This fixes -debug 3 and higher. check-in: 02787730a2 user: mmgraham tags: v1.65
2019-11-25
10:56
Eliminate the testing of multi-glob check-in: bce20f2af9 user: mrwellan tags: v1.65
Changes

Modified megatest.scm from [86d6f690da] to [7e6fcbd15f].

610
611
612
613
614
615
616
617
618


619
620
621
622
623
624
625
610
611
612
613
614
615
616


617
618
619
620
621
622
623
624
625







-
-
+
+







;; Misc setup stuff
;;======================================================================

(debug:setup)

(if (args:get-arg "-logging")(set! *logging* #t))

(if (debug:debug-mode 3) ;; we are obviously debugging
    (set! open-run-close open-run-close-no-exception-handling))
;;(if (debug:debug-mode 3) ;; we are obviously debugging
;;    (set! open-run-close open-run-close-no-exception-handling))

(if (args:get-arg "-itempatt")
    (let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt"))))
      (debug:print 0 *default-log-port* "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval)
      (hash-table-set! args:arg-hash "-testpatt" newval)
      (hash-table-delete! args:arg-hash "-itempatt")))