Megatest

Check-in [3c167a3ae4]
Login
Overview
Comment:Added check for symbolic link to creation logic
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.44
Files: files | file ages | folders
SHA1: 3c167a3ae4c81be151390efb336d672f14e6234e
User & Date: mrwellan on 2012-09-14 13:43:05
Other Links: branch diff | manifest | tags
Context
2012-12-03
10:35
Cherrypicked dashboard stretch fix into v1.44 check-in: 98473423aa user: mrwellan tags: v1.44, v1.4404
2012-09-14
14:17
Merged in fix for symlink crash check-in: e6642c0f2d user: mrwellan tags: trunk
13:43
Added check for symbolic link to creation logic check-in: 3c167a3ae4 user: mrwellan tags: v1.44
2012-07-15
23:53
Bumped version to v1.4403 check-in: f4356f57f3 user: mrwellan tags: v1.44, v1.4403
Changes

Modified launch.scm from [9233896a79] to [228baa4ee9].

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")