Overview
| Comment: | Merged in fix for symlink crash |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e6642c0f2da1dbd1b4c6dfb2fb0d92ce |
| User & Date: | mrwellan on 2012-09-14 14:17:33 |
| Other Links: | manifest | tags |
Context
|
2012-10-07
| ||
| 12:14 | merged to trunk while sitting next to a creek in Prescott wilderness check-in: 30895dfd86 user: user tags: trunk, test4-clean | |
|
2012-09-14
| ||
| 14:18 | Brought up to date with latest from trunk check-in: 191987e384 user: mrwellan tags: test-specific-db | |
| 14:17 | Merged in fix for symlink crash check-in: e6642c0f2d user: mrwellan tags: trunk | |
| 14:16 | Merged in v1.4403 changes to trunk check-in: e0a7e24c94 user: mrwellan tags: trunk | |
| 13:43 | Added check for symbolic link to creation logic check-in: 3c167a3ae4 user: mrwellan tags: v1.44 | |
Changes
Modified launch.scm from [9233896a79] to [228baa4ee9].
| ︙ | ︙ | |||
466 467 468 469 470 471 472 |
;; if the test is iterated it is necessary to create the parent path
;; to the iteration. use pathname-directory to trim the path by one
;; level
(if (not not-iterated) ;; i.e. iterated
(let ((iterated-parent (pathname-directory (conc lnkpath "/" item-path))))
(debug:print 2 "INFO: Creating iterated parent " iterated-parent)
(create-directory iterated-parent #t)))
| | > | 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 |
;; if the test is iterated it is necessary to create the parent path
;; to the iteration. use pathname-directory to trim the path by one
;; level
(if (not not-iterated) ;; i.e. iterated
(let ((iterated-parent (pathname-directory (conc lnkpath "/" item-path))))
(debug:print 2 "INFO: Creating iterated parent " iterated-parent)
(create-directory iterated-parent #t)))
(if (not (or (file-exists? lnkpath)
(symbolic-link? lnkpath)))
(create-symbolic-link toptest-path lnkpath))
;; The toptest path has been created, the link to the test in the linktree has
;; been created. Now, if this is an iterated test the real test dir must be created
(if (not not-iterated) ;; this is an iterated test
(let ((lnktarget (conc lnkpath "/" item-path)))
(debug:print 2 "Setting up sub test run area")
|
| ︙ | ︙ |