Megatest

Check-in [cf2e7841b3]
Login
Overview
Comment:Added check for ruletype
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: cf2e7841b3aee68b1ab6b30ae98b4168cd26f050
User & Date: mrwellan on 2017-02-23 15:33:03
Other Links: branch diff | manifest | tags
Context
2017-02-23
19:11
Brought v1.64 up to date with v1.63 check-in: 995f56ced6 user: matt tags: v1.64
15:33
Added check for ruletype check-in: cf2e7841b3 user: mrwellan tags: v1.64
2017-02-22
21:44
Added skeleton for resurected waivers mechanism check-in: d403b4bf87 user: matt tags: v1.64
Changes

Modified mtut.scm from [19f0b18e13] to [d1c899006f].

378
379
380
381
382
383
384
385


386
387
388
389
390
391
392
378
379
380
381
382
383
384

385
386
387
388
389
390
391
392
393







-
+
+







			(lambda (a b)(equal? (car a)(car b))))) ;; remove duplicates by target
		      )
		 ;; look in runstarts for matching runs by target and contour
		 ;; get the timestamp for when that run started and pass it
		 ;; to the rule logic here where "ruletype" will be applied
		 ;; if it comes back "changed" then proceed to register the runs
		 
		 (case (string->symbol ruletype)
		 (case (string->symbol (or ruletype "no-such-rule"))
                   ((no-such-rule) (print "ERROR: no such rule for " sense))
		   ((scheduled)
		    (if (not (alist-ref 'cron val-alist)) ;; gotta have cron spec
			(print "ERROR: bad sense spec \"" (string-intersperse sense " ") "\" params: " val-alist)
			(let* ((run-name (alist-ref 'run-name val-alist))
			       (crontab  (alist-ref 'cron     val-alist))
			       (action   (alist-ref 'action   val-alist))
			       (last-run (if (null? starttimes) ;; never run