Overview
| Comment: | Fixed typo in exception handling message - found this when trying to create links on a full disk |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
0e8689805c771e0d5782b814a86c0751 |
| User & Date: | mrwellan on 2013-10-18 09:50:00 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-10-19
| ||
| 22:26 | Added mechanism to set defunct tests to INCOMPLETE every five minutes check-in: f7c3e6325e user: matt tags: v1.55 | |
|
2013-10-18
| ||
| 09:50 | Fixed typo in exception handling message - found this when trying to create links on a full disk check-in: 0e8689805c user: mrwellan tags: v1.55 | |
|
2013-10-17
| ||
| 08:36 | Added protection to the opening of borked testdat.db files check-in: 45737fefdf user: mrwellan tags: v1.55 | |
Changes
Modified launch.scm from [a6e72c516e] to [2263c6bed7].
| ︙ | ︙ | |||
565 566 567 568 569 570 571 | " - creating link from: " test-path "\n" " to: " lnktarget) ;; If there is already a symlink delete it and recreate it. (handle-exceptions exn (begin | | | 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 |
" - 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)))))
;; I suspect this section was deleting test directories under some
;; wierd sitations? This doesn't make sense - reenabling the rm -f
;; I honestly don't remember *why* this chunk was needed...
|
| ︙ | ︙ |