Megatest

Check-in [78fc9c5443]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Fixed get-target
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80
Files: files | file ages | folders
SHA1: 78fc9c544341dca44f7044639a6839640e65a843
User & Date: matt on 2023-02-23 11:53:49
Other Links: branch diff | manifest | tags
Context
2023-02-27
10:54
Added suicide mode to db:with-db for development. It has been very hard to isolate threaded crashes under the tcp-server. check-in: 3b54f22608 user: mrwellan tags: v1.80
2023-02-23
11:53
Fixed get-target check-in: 78fc9c5443 user: matt tags: v1.80
08:46
configf ext-tests fixed. check-in: 5cb7bf9076 user: matt tags: v1.80
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified api.scm from [aacd193276] to [edf4eba965].

︙
63
64
65
66
67
68
69
70
71


72
73
74
75
76
77
78

63
64
65
66
67
68
69


70
71
72
73
74
75
76
77
78








-
-
+
+








    get-prereqs-not-met
    get-count-tests-running-for-run-id
    get-run-info
    get-run-status
    get-run-state
    get-run-stats
    get-run-times
    get-targets
    get-target
    get-target
    get-targets
    ;; register-run
    get-tests-tags
    get-test-times
    get-tests-for-run
    get-tests-for-run-state-status
    get-test-id
    get-tests-for-runs-mindata
︙

Modified db.scm from [4ae5518584] to [ba30cc2cdc].

︙
4759
4760
4761
4762
4763
4764
4765
4766


4767
4768
4769
4770
4771
4772
4773

4759
4760
4761
4762
4763
4764
4765

4766
4767
4768
4769
4770
4771
4772
4773
4774








-
+
+








					  (sqlite3:finalize! db #t)
					  ;; (vector-set! *task-db* 0 #f)
					  (set! *task-db* #f)))))
			      (if (and *no-sync-db*
				       (sqlite3:database? *no-sync-db*))
				  (sqlite3:finalize! *no-sync-db* #t))
			      (if (and (not (args:get-arg "-server"))
				       *runremote*)
				       *runremote*
				       (eq? (rmt:transport-mode) 'http))
				  (begin
				    (debug:print-info 0 *default-log-port* "Closing all client connections...")
				    (http-transport:close-connections *runremote*)
				    #;(http-client#close-all-connections!)))
                              ;; (if (and *runremote*
                              ;;          (remote-conndat *runremote*))
                              ;;     (begin
︙

Modified rmt.scm from [24dfb2a0ed] to [6a03756866].

︙
500
501
502
503
504
505
506
507

508
509
510
511
512
513
514

500
501
502
503
504
505
506

507
508
509
510
511
512
513
514








-
+








        res)))

(define (rmt:get-targets)
  (rmt:send-receive 'get-targets #f '()))

(define (rmt:get-target run-id)
  (assert (number? run-id) "FATAL: Run id required.")
  (rmt:send-receive 'get-target run-id (list run-id)))
  (rmt:send-receive 'get-target #f (list run-id)))

(define (rmt:get-run-times runpatt targetpatt)
  (rmt:send-receive 'get-run-times #f (list runpatt targetpatt ))) 


;;======================================================================
;;  T E S T S
︙

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