Megatest

Check-in [ba09a8a79c]
Login
Overview
Comment:Fixed ticket 5174514d73. Crash on bad use of -setvars
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: ba09a8a79c9656c3a77f35b474182dab0da166db
User & Date: matt on 2015-07-07 23:36:56
Other Links: branch diff | manifest | tags
Context
2015-07-08
21:35
Several additons to manual check-in: a8d122521d user: matt tags: v1.60
08:21
Handle toplevel with children tests better in archiving check-in: efc02c437a user: mrwellan tags: v1.60, v1.6019
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
Changes

Modified megatest.scm from [5bdead879c] to [2a5ebc4b47].

307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
		 0))

(if (and (not (null? remargs))
	 (not (or
	       (args:get-arg "-runstep"))
	      ;; add more args that use remargs here
	      ))
    (debug:print 0 "ERROR: Unrecognised arguments: " (string-intersperse remargs " ")))

;; The watchdog is to keep an eye on things like db sync etc.
;;
(define *time-zero* (current-seconds))
(define *watchdog*
  (make-thread 
   (lambda ()







|







307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
		 0))

(if (and (not (null? remargs))
	 (not (or
	       (args:get-arg "-runstep"))
	      ;; add more args that use remargs here
	      ))
    (debug:print 0 "ERROR: Unrecognised arguments: " (string-intersperse (if (list? remargs) remargs (argv))  " ")))

;; The watchdog is to keep an eye on things like db sync etc.
;;
(define *time-zero* (current-seconds))
(define *watchdog*
  (make-thread 
   (lambda ()