444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
|
(archive-internal-path (conc (common:get-testsuite-name) "-" run-id
"/latest/" test-partial-path)))
(if (and archive-path ;; no point in proceeding if there is no actual archive
(not toplevel/children))
(begin
(let* ((bup-restore-params (list "-d" archive-path "restore" "-C" (or destpath "data")
" " ;; What is the empty string for?
archive-internal-path)))
(debug:print-info 0 *default-log-port* "Restoring archived data to " (or destpath "data")
" from archive in " archive-path " ... " archive-internal-path)
(run-n-wait bup-exe params: bup-restore-params print-cmd: #t)))
(let ((new-rem-tests (filter (lambda (tdat)
(or (not (eq? (db:test-get-id tdat) test-id))
(not (eq? (db:test-get-run_id tdat) run-id))))
|
|
|
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
|
(archive-internal-path (conc (common:get-testsuite-name) "-" run-id
"/latest/" test-partial-path)))
(if (and archive-path ;; no point in proceeding if there is no actual archive
(not toplevel/children))
(begin
(let* ((bup-restore-params (list "-d" archive-path "restore" "-C" (or destpath "data")
;; " " ;; What is the empty string for?
archive-internal-path)))
(debug:print-info 0 *default-log-port* "Restoring archived data to " (or destpath "data")
" from archive in " archive-path " ... " archive-internal-path)
(run-n-wait bup-exe params: bup-restore-params print-cmd: #t)))
(let ((new-rem-tests (filter (lambda (tdat)
(or (not (eq? (db:test-get-id tdat) test-id))
(not (eq? (db:test-get-run_id tdat) run-id))))
|