Overview
| Comment: | Added checking on -debug for non-numbers |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | test-specific-db | v1.4608 |
| Files: | files | file ages | folders |
| SHA1: |
1ad597218ed79c52f963eac8a694710c |
| User & Date: | matt on 2012-10-01 23:11:01 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-10-02
| ||
| 18:16 | More conversion to rpc check-in: 58b53eb970 user: mrwellan tags: test-specific-db | |
|
2012-10-01
| ||
| 23:11 | Added checking on -debug for non-numbers check-in: 1ad597218e user: matt tags: test-specific-db, v1.4608 | |
| 21:48 | Added correct exit back for non-server mode check-in: 4111a3bf40 user: matt tags: test-specific-db | |
Changes
Modified dashboard.scm from [d1f6d7963a] to [a90a2876e4].
| ︙ | ︙ | |||
113 114 115 116 117 118 119 | (define *db-file-path* (conc *toppath* "/megatest.db")) (define *tests-sort-reverse* #f) (define *hide-empty-runs* #f) (define *verbosity* (cond | | > > > > > | 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 |
(define *db-file-path* (conc *toppath* "/megatest.db"))
(define *tests-sort-reverse* #f)
(define *hide-empty-runs* #f)
(define *verbosity* (cond
((string? (args:get-arg "-debug"))(string->number (args:get-arg "-debug")))
((args:get-arg "-v") 2)
((args:get-arg "-q") 0)
(else 1)))
(if (not (number? *verbosity*))
(begin
(print "ERROR: Invalid debug value " (args:get-arg "-debug"))
(exit)))
(define uidat #f)
(define-inline (dboard:uidat-get-keycol vec)(vector-ref vec 0))
(define-inline (dboard:uidat-get-lftcol vec)(vector-ref vec 1))
(define-inline (dboard:uidat-get-header vec)(vector-ref vec 2))
(define-inline (dboard:uidat-get-runsvec vec)(vector-ref vec 3))
|
| ︙ | ︙ |
Modified megatest-version.scm from [90dae11f70] to [f8bdc239bc].
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.4608) |
Modified megatest.scm from [ba111cbf36] to [9e9d0ce49a].
| ︙ | ︙ | |||
204 205 206 207 208 209 210 | (define *didsomething* #f) ;;====================================================================== ;; Misc setup stuff ;;====================================================================== (set! *verbosity* (cond | | > > > > > | 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 |
(define *didsomething* #f)
;;======================================================================
;; Misc setup stuff
;;======================================================================
(set! *verbosity* (cond
((string? (args:get-arg "-debug"))(string->number (args:get-arg "-debug")))
((args:get-arg "-v") 2)
((args:get-arg "-q") 0)
(else 1)))
(if (not (number? *verbosity*))
(begin
(print "ERROR: Invalid debug value " (args:get-arg "-debug"))
(exit)))
;;======================================================================
;; Misc general calls
;;======================================================================
(if (args:get-arg "-env2file")
(begin
|
| ︙ | ︙ |