Megatest

Check-in [bd17b9e233]
Login
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: bd17b9e233c5df2a17a4a7b0a851a2a11be46a18
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
1685
1686



1687
1688

1689
1690
1691
1692
1693
1694
1695
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 ((db (db:get-db dbstruct run-id)))
    (db:general-call db 'delete-test-step-records (list 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 db 'delete-test-data-records (list test-id))
    (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)