Overview
Comment: | corrected number of run dbs and used num-run-dbs parameter |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.80 |
Files: | files | file ages | folders |
SHA1: |
5fcf2ed73e82847a393c5930ca5b7394 |
User & Date: | mmgraham on 2023-07-25 17:02:45 |
Other Links: | branch diff | manifest | tags |
Context
2023-07-25
| ||
17:05 | changed megatest version to 1.8016 check-in: 3b2c602eba user: mmgraham tags: v1.80 | |
17:02 | corrected number of run dbs and used num-run-dbs parameter check-in: 5fcf2ed73e user: mmgraham tags: v1.80 | |
2023-07-21
| ||
18:45 | added code to remove logs/server and .servinfo files when stop-the-train is found check-in: de8d1d67ff user: mmgraham tags: v1.80, v1.8015 | |
Changes
Modified db.scm from [4c9ebfbfd4] to [d424f2ae6d].
︙ | |||
4045 4046 4047 4048 4049 4050 4051 | 4045 4046 4047 4048 4049 4050 4051 4052 4053 4054 4055 4056 4057 4058 4059 4060 4061 4062 4063 4064 4065 4066 4067 4068 4069 4070 4071 4072 4073 4074 4075 4076 | - + - + | ;; Retrieves record IDs from the database based on the timestamp of their last update. ;; The function takes two arguments: dbstruct, which represents the database structure, and since-time, which is a timestamp indicating the time of the last update. ;; The function first defines a few helper functions, including backcons, which takes a list and an item and adds the item to the front of the list. ;; It then initializes several variables to empty lists: all_tests, all_test_steps, all_test_data, all_run_ids, and all_test_ids. ;; The function then retrieves a list of IDs for runs that have been changed since since-time using the db:get-changed-run-ids function. |
︙ |
Modified tasks.scm from [bd3500d741] to [4adbc308eb].
︙ | |||
1056 1057 1058 1059 1060 1061 1062 | 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 | - + | (string->number (args:get-arg "-since")) (vector-ref area-info 3)))) (smallest-last-update-time (make-hash-table)) (run-ids (if (and target run-name) (rmt:get-run-record-ids target run-name (rmt:get-keys)) (rmt:get-changed-record-run-ids last-sync-time))) (all-run-ids (if (and target run-name) '() (rmt:get-all-runids))) (changed-run-dbs (if (and target run-name) '() (db:get-changed-run-ids last-sync-time))) |
︙ |