Megatest

Check-in [d1aca6ab74]
Login
Overview
Comment:fixed deleted rollup issue
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64 | v1.6412
Files: files | file ages | folders
SHA1: d1aca6ab7423037b4eab9908b8bd34aa1d0f3c0a
User & Date: bjbarcla on 2017-05-10 11:25:27
Other Links: branch diff | manifest | tags
Context
2017-05-11
11:15
Change some exn= debug messages to be proper debug:print calls and moved to level 5 check-in: 0a7ab47eca user: mrwellan tags: v1.64
2017-05-10
11:25
fixed deleted rollup issue check-in: d1aca6ab74 user: bjbarcla tags: v1.64, v1.6412
09:17
Added table of MT_ variables available to triggers. check-in: 2e6d8833d7 user: mrwellan tags: v1.64
Changes

Modified db.scm from [519099c9a1] to [b7bdf7cceb].

3291
3292
3293
3294
3295
3296
3297

3298


3299
3300
3301

3302


3303
3304
3305
3306
3307

3308
3309
3310
3311
3312
3313
3314

3315
3316
3317
3318
3319
3320
3321
3291
3292
3293
3294
3295
3296
3297
3298

3299
3300
3301
3302
3303
3304

3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327







+
-
+
+



+
-
+
+





+







+







                                                                                      *common:not-started-ok-statuses*))))
								  state-status-counts)))
                            ;; (non-completes        (filter (lambda (x)
                            ;;                                 (not (equal? (dbr:counts-state x) "COMPLETED")))
                            ;;                               state-status-counts))
                            (all-curr-states      (common:special-sort  ;; worst -> best (sort of)
                                                   (delete-duplicates
                                                    (if (not (equal? state "DELETED"))
                                                    (cons state (map dbr:counts-state state-status-counts)))
                                                        (cons state (map dbr:counts-state state-status-counts))
                                                        (map dbr:counts-state state-status-counts)))
                                                   *common:std-states* >))
                            (all-curr-statuses    (common:special-sort  ;; worst -> best
                                                   (delete-duplicates
                                                    (if (not (equal? state "DELETED"))
                                                    (cons status (map dbr:counts-status state-status-counts)))
                                                        (cons status (map dbr:counts-status state-status-counts))
                                                        (map dbr:counts-status state-status-counts)))
                                                   *common:std-statuses* >))
			    (non-completes     (filter (lambda (x)
							 (not (equal? x "COMPLETED")))
						       all-curr-states))
			    (num-non-completes (length non-completes))
                            
                            (newstate          (cond
						((> running 0)
						 "RUNNING") ;; anything running, call the situation running
						((> bad-not-started 0)  ;; we have an ugly situation, it is completed in the sense we cannot do more.
						 "COMPLETED") 
						((> num-non-completes 0) ;;
						 (car non-completes))  ;;  (remove (lambda (x)(equal? "COMPLETED" x)) all-curr-states)))
                                                ;; only rollup DELETED if all DELETED
						(else
						 (car all-curr-states))))
			                       ;; (if (> running 0)
                                               ;;     "RUNNING"
                                               ;;     (if (> bad-not-started 0)
                                               ;;         "COMPLETED"
                                               ;;         (car all-curr-states))))

Modified megatest-version.scm from [906a613536] to [bacb854dae].

1
2
3
4
5
6

7
1
2
3
4
5

6
7





-
+

;; Always use two or four digit decimal
;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00..

(declare (unit megatest-version))

(define megatest-version 1.6411)
(define megatest-version 1.6412)