Megatest

Check-in [cf42fc1304]
Login
Overview
Comment:Corrected issue due to inconsistent output from pathname-directory, expected . but was getting #f
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | development | v1.5407
Files: files | file ages | folders
SHA1: cf42fc1304163e86cfa3ea1d0cda2918bf4b8a5b
User & Date: mrwellan on 2013-04-11 09:39:05
Other Links: branch diff | manifest | tags
Context
2013-04-11
21:38
Fixed bug in auto-regen of top level summary html files check-in: 68511fe827 user: matt tags: development, v1.5409
16:26
Configurable storage of path to test via link tree or direct. Partial edits to get iterated test results rollup working properly Closed-Leaf check-in: f1ce492c36 user: mrwellan tags: testdir-vs-linksdir
09:39
Corrected issue due to inconsistent output from pathname-directory, expected . but was getting #f check-in: cf42fc1304 user: mrwellan tags: development, v1.5407
00:20
Made daemonize optional, tweaked parameters on launch speed test check-in: 02222dad8f user: matt tags: development
Changes

Modified configf.scm from [2c0a56a812] to [24769c8a78].

150
151
152
153
154
155
156



157

158
159
160
161
162
163
164
150
151
152
153
154
155
156
157
158
159

160
161
162
163
164
165
166
167







+
+
+
-
+







	       inl 
	       (configf:comment-rx _                  (loop (configf:read-line inp res allow-system) curr-section-name #f #f))
	       (configf:blank-l-rx _                  (loop (configf:read-line inp res allow-system) curr-section-name #f #f))
	       (configf:include-rx ( x include-file ) (let* ((curr-conf-dir (pathname-directory path))
							     (full-conf     (if (absolute-pathname? include-file)
										include-file
										(nice-path 
										 (conc (if curr-conf-dir
											   curr-conf-dir
											   ".")
										 (conc curr-conf-dir "/" include-file)))))
										       "/" include-file)))))
							(if (file-exists? full-conf)
							    (begin
							      ;; (push-directory conf-dir)
							      (read-config full-conf res allow-system environ-patt: environ-patt curr-section: curr-section-name sections: sections)
							      ;; (pop-directory)
							      (loop (configf:read-line inp res allow-system) curr-section-name #f #f))
							    (begin

Modified megatest.scm from [6be51f628a] to [6d5064c07e].

210
211
212
213
214
215
216

217
218
219
220
221
222
223
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224







+







		        "-xterm"
		        "-showkeys"
		        "-test-status"
			"-set-values"
			"-load-test-data"
			"-summarize-items"
		        "-gui"
			"-daemonize"
			;; misc
			"-archive"
			"-repl"
			"-lock"
			"-unlock"
			"-list-servers"
			;; mist queries