631
632
633
634
635
636
637
|
;; (if (null? (glob (conc runpath "/*")))
;; (begin
;; (debug:print 1 "Removing run dir " runpath)
;; (system (conc "rmdir -p " runpath))))
))))
))
runs)))
|
>
>
>
>
>
>
>
>
>
>
>
>
>
|
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
|
;; (if (null? (glob (conc runpath "/*")))
;; (begin
;; (debug:print 1 "Removing run dir " runpath)
;; (system (conc "rmdir -p " runpath))))
))))
))
runs)))
;;======================================================================
;; Routines for manipulating runs
;;======================================================================
(define (runs:rollup-run db keys n)
(let* ((new-run-id (register-run db keys))
(similar-runs (db:get-similar-runs db keys))
(tests-n-days (db:get-tests-n-days db similar-runs)))
(for-each
(lambda (test-id)
(db:rollup-test db run-id test-id))
tests-n-days)))
|