466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
|
;; 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 (file-exists? 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")
|
|
>
|
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")
|