Overview
| Comment: | Fixed delete-test-step-records call |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
bd17b9e233c5df2a17a4a7b0a851a2a1 |
| User & Date: | matt on 2014-11-16 00:11:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-11-16
| ||
| 07:49 | Added print-call-chain to exception handler of open-db. Fixed typo. Switched back to not requiring server in self QA check-in: 7fe971f6e5 user: matt tags: v1.60 | |
| 00:11 | Fixed delete-test-step-records call check-in: bd17b9e233 user: matt tags: v1.60 | |
|
2014-11-15
| ||
| 23:36 | Added required switch for servers check-in: 2b2f579cc4 user: matt tags: v1.60 | |
Changes
Modified db.scm from [1747e0bbd4] to [e22b875bd7].
| ︙ | ︙ | |||
1678 1679 1680 1681 1682 1683 1684 |
(db:get-all-run-ids dbstruct)))
res))
;; Convert calling routines to get list of run-ids and loop, do not use the get-tests-for-runs
;;
(define (db:delete-test-records dbstruct run-id test-id)
| | > | | | 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 |
(db:get-all-run-ids dbstruct)))
res))
;; Convert calling routines to get list of run-ids and loop, do not use the get-tests-for-runs
;;
(define (db:delete-test-records dbstruct run-id test-id)
(let* ((dbdat (db:get-db dbstruct run-id))
(db (db:dbdat-get-db dbdat)))
(db:general-call dbdat 'delete-test-step-records (list test-id))
;; (db:delay-if-busy)
(db:general-call dbdat 'delete-test-data-records (list test-id))
(sqlite3:execute db "UPDATE tests SET state='DELETED',status='n/a',comment='' WHERE id=?;" test-id)))
(define (db:delete-old-deleted-test-records dbstruct)
(let ((run-ids (db:get-all-run-ids dbstruct))
(targtime (- (current-seconds)(* 30 24 60 60)))) ;; one month in the past
(for-each
(lambda (run-id)
|
| ︙ | ︙ |