Megatest

Check-in [b6d97c539d]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:keep-running issue addressed
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64-runs-deepdive
Files: files | file ages | folders
SHA1: b6d97c539d5928e897b11444694807596be16a29
User & Date: bjbarcla on 2017-09-14 15:31:37
Other Links: branch diff | manifest | tags
Context
2017-09-14
17:10
fixed issue where item gets stuck in keep_waiting status when prerequisite item failed check-in: 23745b4302 user: bjbarcla tags: v1.6431, v1.64-keep-running-fix
15:31
keep-running issue addressed Leaf check-in: b6d97c539d user: bjbarcla tags: v1.64-runs-deepdive
2017-09-13
22:00
reverted use of dbstruct to db as it is inside a transaction, must access the db directly and not invoke all the magically machinery that will dynamically open up new database handles. check-in: fbc6ca10e6 user: matt tags: v1.64-runs-deepdive
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

cgisetup/cgi-bin/models became a regular file with contents [39c07627cc].

cgisetup/cgi-bin/pages became a regular file with contents [e2b5ed002d].

Modified db.scm from [5779ba7201] to [879c965cf5].

︙
3497
3498
3499
3500
3501
3502
3503
3504


3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516




3517
3518
3519
3520
3521
3522
3523
3524
3525
3526





3527
3528
3529
3530
3531
3532
3533

3497
3498
3499
3500
3501
3502
3503

3504
3505
3506
3507
3508
3509
3510
3511
3512
3513




3514
3515
3516
3517










3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529








-
+
+








-
-
-
-
+
+
+
+
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+








						       all-curr-states))
			    (preq-fails        (filter (lambda (x)
							 (equal? x "PREQ_FAIL"))
						       all-curr-statuses))
                            (num-non-completes (length non-completes))
                            (newstate          (cond
						((> running 0)           "RUNNING")            ;; anything running, call the situation running
                                                ;;((> (length preq-fails) 0)                                                ;; "NOT_STARTED")
                                                ((> (length preq-fails) 0)
                                                 "NOT_STARTED")
						((> bad-not-started 0)   "COMPLETED")          ;; we have an ugly situation, it is completed in the sense we cannot do more.
						((> 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))))
                            ;; (newstatus         (cond
                            ;;                     ;;((> (length preq-fails) 0)
                            ;;                     ;; "PREQ_FAIL")
                            ;;                     ((or (> bad-not-started 0)
                            (newstatus         (cond
                                                ((> (length preq-fails) 0)
                                                 "PREQ_FAIL")
                                                ((or (> bad-not-started 0)
                            ;;                          (and (equal? newstate "NOT_STARTED")
                            ;;                               (> num-non-completes 0)))
                            ;;                      "STARTED")
                            ;;                     (else
                            ;;                      (car all-curr-statuses)))))
                            (newstatus         (if (or (> bad-not-started 0)
                                                       (and (equal? newstate "NOT_STARTED")
                                                            (> num-non-completes 0)))
                                                   "STARTED"
                                                   (car all-curr-statuses))))
                                                     (and (equal? newstate "NOT_STARTED")
                                                          (> num-non-completes 0)))
                                                 "STARTED")
                                                (else
                                                 (car all-curr-statuses)))))

                       ;; (print "bad-not-supported: " bad-not-support " all-curr-states: " all-curr-states " all-curr-statuses: " all-curr-states)
                       ;;      " newstate: " newstate " newstatus: " newstatus)
                       ;; NB// Pass the db so it is part of the transaction
                       (debug:print 4 *default-log-port* "BB> tl-test-id="tl-test-id" ; "test-name":"item-path"> bad-not-started="bad-not-started" newstate="newstate" newstatus="newstatus" num-non-completes="num-non-completes" non-completes="non-completes "len(sscs)="(length state-status-counts)  " state-status-counts: "
                                    (apply conc
                                           (map (lambda (x)
︙

This page was generated in about 0.113s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00