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
;; 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 (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")))








|
|







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 (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")))