Overview
| Comment: | Added print-call-chain to exception handler of open-db. Fixed typo. Switched back to not requiring server in self QA |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
7fe971f6e550150ea9c9e3ea22661400 |
| User & Date: | matt on 2014-11-16 07:49:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-11-16
| ||
| 08:30 | Handle errors in data transmission (e.g. corruption in flight). check-in: 7ca86d7e47 user: matt tags: v1.60 | |
| 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 | |
Changes
Modified launch.scm from [490135a0e7] to [3011b582fa].
| ︙ | ︙ | |||
663 664 665 666 667 668 669 | " - creating link from: " test-path "\n" " to: " lnktarget) ;; If there is already a symlink delete it and recreate it. (handle-exceptions exn (begin | | | 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 |
" - creating link from: " test-path "\n"
" to: " lnktarget)
;; If there is already a symlink delete it and recreate it.
(handle-exceptions
exn
(begin
(debug:print 0 "ERROR: Failed to re-create link " lnktarget ((condition-property-accessor 'exn 'message) exn) ", exiting")
(exit))
(if (symbolic-link? lnktarget) (delete-file lnktarget))
(if (not (file-exists? lnktarget)) (create-symbolic-link test-path lnktarget)))))
(if (not (directory? test-path))
(create-directory test-path #t)) ;; this is a hack, I don't know why out of the blue this path does not exist sometimes
|
| ︙ | ︙ |
Modified tasks.scm from [4f9a9d9b04] to [c9b5a9471c].
| ︙ | ︙ | |||
65 66 67 68 69 70 71 72 73 74 75 76 77 78 |
(define (tasks:open-db #!key (numretries 4))
(if *task-db*
*task-db*
(handle-exceptions
exn
(if (> numretries 0)
(begin
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(print "exn=" (condition->list exn))
(thread-sleep! 1)
(tasks:open-db numretries (- numretries 1)))
(begin
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(print "exn=" (condition->list exn))))
| > | 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
(define (tasks:open-db #!key (numretries 4))
(if *task-db*
*task-db*
(handle-exceptions
exn
(if (> numretries 0)
(begin
(print-call-chain)
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(print "exn=" (condition->list exn))
(thread-sleep! 1)
(tasks:open-db numretries (- numretries 1)))
(begin
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(print "exn=" (condition->list exn))))
|
| ︙ | ︙ |
Modified tests/fullrun/megatest.config from [c8ab3440c4] to [658d5685c6].
| ︙ | ︙ | |||
133 134 135 136 137 138 139 | # This server will keep running this number of hours after last access. # Three minutes is 0.05 hours # timeout 0.025 timeout 0.01 # Server is required - slower but more resistant to Sqlite issues. | | | 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 |
# This server will keep running this number of hours after last access.
# Three minutes is 0.05 hours
# timeout 0.025
timeout 0.01
# Server is required - slower but more resistant to Sqlite issues.
# required yes
# daemonize yes
# hostname #{scheme (get-host-name)}
## disks are:
## name host:/path/to/area
## -or-
|
| ︙ | ︙ |