Differences From Artifact [0f9b5e65bf]:
- File megatest.scm — part of check-in [1303bd53c2] at 2012-10-12 17:22:22 on branch trunk — Compact test pattern specification now working for all features (user: matt, size: 30667) [annotate] [blame] [check-ins using]
To Artifact [d7e905f635]:
- File megatest.scm — part of check-in [dddbf29c8f] at 2012-10-13 08:19:55 on branch trunk — Fixed typos, turn off error handling when debugging > 3, added error for wrong specification of state/status in -set-state-status, improved test2 (user: matt, size: 30784) [annotate] [blame] [check-ins using]
| ︙ | |||
214 215 216 217 218 219 220 221 222 223 224 225 226 227 | 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 | + + + |
(else 1)))
(if (not (number? *verbosity*))
(begin
(print "ERROR: Invalid debug value " (args:get-arg "-debug"))
(exit)))
(if (> *verbosity* 3) ;; we are obviously debugging
(set! open-run-close open-run-close-no-exception-handling))
;;======================================================================
;; Misc general calls
;;======================================================================
(if (args:get-arg "-env2file")
(begin
(save-environment-as-files (args:get-arg "-env2file"))
|
| ︙ |