Megatest

Check-in [59532cc2c4]
Login
Overview
Comment:fixed typo
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 59532cc2c4241b0d171d6e482b9e1d6d744f8a54
User & Date: mrwellan on 2015-07-07 18:23:41
Other Links: branch diff | manifest | tags
Context
2015-07-07
23:36
Fixed ticket 5174514d73. Crash on bad use of -setvars check-in: ba09a8a79c user: matt tags: v1.60
18:23
fixed typo check-in: 59532cc2c4 user: mrwellan tags: v1.60
15:07
Cleaned up archiving check-in: 26c7e70d1c user: mrwellan tags: v1.60, v1.6019
Changes

Modified archive.scm from [340ad26128] to [d53c0bfed5].

233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
					   #f)) ;; no archive found?
	      (archive-internal-path   (conc (common:get-testsuite-name) "-" run-id "/latest/" test-partial-path)))
	 
	 ;; some sanity checks, move an existing path out of the way
	 ;;
	 (if (and prev-test-physical-path
		  (file-exists? prev-test-physical-path)) ;; what to do? abort or clean up or link it in?
	     (let ((base (pathname-directory prev-test-physical-path))
		   (dirn (pathname-file      prev-test-physical-path))
		   (newn (conc base "/." dirn)))
	       (debug:print 0 "ERROR: the old directory " prev-test-physical-path ", still exists! Moving it to " newn)
	       (file-move prev-test-physical-path newn)))

	 (if archive-path ;; no point in proceeding if there is no actual archive
	     (begin
	       ;; CREATE WORK AREA
	       ;; test-src-path == #f     ==> don't copy in data from tests directory







|
|
|







233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
					   #f)) ;; no archive found?
	      (archive-internal-path   (conc (common:get-testsuite-name) "-" run-id "/latest/" test-partial-path)))
	 
	 ;; some sanity checks, move an existing path out of the way
	 ;;
	 (if (and prev-test-physical-path
		  (file-exists? prev-test-physical-path)) ;; what to do? abort or clean up or link it in?
	     (let* ((base (pathname-directory prev-test-physical-path))
		    (dirn (pathname-file      prev-test-physical-path))
		    (newn (conc base "/." dirn)))
	       (debug:print 0 "ERROR: the old directory " prev-test-physical-path ", still exists! Moving it to " newn)
	       (file-move prev-test-physical-path newn)))

	 (if archive-path ;; no point in proceeding if there is no actual archive
	     (begin
	       ;; CREATE WORK AREA
	       ;; test-src-path == #f     ==> don't copy in data from tests directory