Overview
| Comment: | Removed messages from usage of -items. Bumped version |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | v1.503 |
| Files: | files | file ages | folders |
| SHA1: |
b3d2bfeeb75df44ce4c66c273ab18c01 |
| User & Date: | mrwellan on 2012-10-17 11:14:11 |
| Other Links: | manifest | tags |
Context
|
2012-10-17
| ||
| 14:19 | Better emulation of old -itempatt behaviour check-in: ed14608d1b user: mrwellan tags: trunk, v1.504 | |
| 11:14 | Removed messages from usage of -items. Bumped version check-in: b3d2bfeeb7 user: mrwellan tags: trunk, v1.503 | |
|
2012-10-16
| ||
| 23:59 | Added missing logging switch, added corrected support to make file, increased logging sqlite timeout check-in: 7ab21a4d6d user: matt tags: trunk | |
Changes
Modified megatest-version.scm from [1efe3268ae] to [0064296ffd].
1 2 3 4 5 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 1 2 3 4 5 6 7 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) (define megatest-version 1.503) |
Modified megatest.scm from [190d75abaf] to [5c07bda9ca].
| ︙ | ︙ | |||
222 223 224 225 226 227 228 |
(if (> *verbosity* 3) ;; we are obviously debugging
(set! open-run-close open-run-close-no-exception-handling))
;; to try and not burden Kim too much...
(if (args:get-arg "-itempatt")
(let ((old-testpatt (args:get-arg "-testpatt")))
| | > | | | | 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 |
(if (> *verbosity* 3) ;; we are obviously debugging
(set! open-run-close open-run-close-no-exception-handling))
;; to try and not burden Kim too much...
(if (args:get-arg "-itempatt")
(let ((old-testpatt (args:get-arg "-testpatt")))
;; (debug:print 0 "ERROR: parameter \"-itempatt\" has been deprecated. For now I will tweak your -testpatt for you")
(if (args:get-arg "-testpatt")
(hash-table-set! args:arg-hash "-testpatt" (conc old-testpatt "/" (args:get-arg "-itempatt"))))
;; (debug:print 0 " old: " old-testpatt ", new: " (args:get-arg "-testpatt"))
(if (args:get-arg "-runtests")
(begin
;; (debug:print 0 "NOTE: Also modifying -runtests")
(hash-table-set! args:arg-hash "-runtests" (conc (args:get-arg "-runtests") "/"
(args:get-arg "-itempatt")))))
))
;;======================================================================
;; Misc general calls
;;======================================================================
|
| ︙ | ︙ |