Megatest

Check-in [106d429710]
Login
Overview
Comment:Change archiving ERROR's to WARNING's
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 106d429710cf09c6bcc1dd6897eeaaf1f29a4a89
User & Date: mrwellan on 2015-07-15 09:28:07
Other Links: branch diff | manifest | tags
Context
2015-07-15
10:31
Replaced call to read-symbolic-link with common:real-path. read-symbolic-link doesn't do what I thought it did check-in: 6ba991c430 user: mrwellan tags: v1.60
09:28
Change archiving ERROR's to WARNING's check-in: 106d429710 user: mrwellan tags: v1.60
2015-07-14
15:21
Improved feedback when archiving is blocked for some reason check-in: e05e127ba0 user: mrwellan tags: v1.60
Changes

Modified archive.scm from [8c7a48b5ff] to [30e973d73a].

145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
				     (substring test-physical-path
						0
						partial-path-index)
				     #f)))
	 
 	 (cond
	  (toplevel/children
	   (debug:print 0 "ERROR: cannot archive " test-name " with id " test-id " as it is a toplevel test with children"))
	  ((not (file-exists? test-path))
	   (debug:print 0 "ERROR: Cannot archive " test-name "/" item-path " as path " test-path " does not exist"))
	  (else
	   (debug:print 0
			"From test-dat=" test-dat " derived the following:\n"
			"test-partial-path  = " test-partial-path "\n"
			"test-path          = " test-path "\n"
			"test-physical-path = " test-physical-path "\n"
			"partial-path-index = " partial-path-index "\n"







|

|







145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
				     (substring test-physical-path
						0
						partial-path-index)
				     #f)))
	 
 	 (cond
	  (toplevel/children
	   (debug:print 0 "WARNING: cannot archive " test-name " with id " test-id " as it is a toplevel test with children"))
	  ((not (file-exists? test-path))
	   (debug:print 0 "WARNING: Cannot archive " test-name "/" item-path " as path " test-path " does not exist"))
	  (else
	   (debug:print 0
			"From test-dat=" test-dat " derived the following:\n"
			"test-partial-path  = " test-partial-path "\n"
			"test-path          = " test-path "\n"
			"test-physical-path = " test-physical-path "\n"
			"partial-path-index = " partial-path-index "\n"