Overview
| Comment: | Fix to remove test_dat info |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 | v1.6514 |
| Files: | files | file ages | folders |
| SHA1: |
38764bf86da93d5795e40d18947e4c6a |
| User & Date: | jmoon18 on 2018-08-27 17:01:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-08-31
| ||
| 11:46 | ensure logpro stdout in ezsteps does not go to job launcher console check-in: be6116e971 user: bjbarcla tags: v1.65 | |
|
2018-08-27
| ||
| 17:01 | Fix to remove test_dat info check-in: 38764bf86d user: jmoon18 tags: v1.65, v1.6514 | |
| 16:48 | Updated version file and made it so that cleanup-db will get rid of old test_dat items check-in: 566569e56f user: jmoon18 tags: v1.65, v1.6514 | |
Changes
Modified db.scm from [9cc4752702] to [b49a2db6be].
| ︙ | ︙ | |||
1740 1741 1742 1743 1744 1745 1746 | ;; delete all tests that have no run (conc "DELETE FROM tests WHERE run_id NOT IN (SELECT DISTINCT id FROM runs) and last_update < " keep-record-age "; ") ;; delete all runs that are state='deleted' (conc "DELETE FROM runs WHERE state='deleted' and last_update < " keep-record-age ";") ;; delete empty runs (conc "DELETE FROM runs WHERE id NOT IN (SELECT DISTINCT r.id FROM runs AS r INNER JOIN tests AS t ON t.run_id=r.id) and last_update < " keep-record-age ";") ;; remove orphaned test_rundat entries | | | | | | 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 |
;; delete all tests that have no run
(conc "DELETE FROM tests WHERE run_id NOT IN (SELECT DISTINCT id FROM runs) and last_update < " keep-record-age "; ")
;; delete all runs that are state='deleted'
(conc "DELETE FROM runs WHERE state='deleted' and last_update < " keep-record-age ";")
;; delete empty runs
(conc "DELETE FROM runs WHERE id NOT IN (SELECT DISTINCT r.id FROM runs AS r INNER JOIN tests AS t ON t.run_id=r.id) and last_update < " keep-record-age ";")
;; remove orphaned test_rundat entries
(conc "DELETE FROM test_rundat where test_id NOT IN (SELECT id FROM tests);")
;; remove orphaned test_steps entries
(conc "DELETE FROM test_steps WHERE test_id NOT IN (SELECT id FROM tests);")
;; remove orphaned test_dat entries
(conc "DELETE FROM test_data WHERE test_id NOT IN (SELECT id FROM tests);")
))))
;; (db:delay-if-busy dbdat)
;(debug:print-info 0 *default-log-port* statements)
(sqlite3:with-transaction
db
(lambda ()
|
| ︙ | ︙ |