Megatest

Check-in [a2a5172659]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:removed comments
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: a2a5172659f9ee72cee3d8a4b6fea6823d131348
User & Date: pjhatwal on 2020-07-29 17:05:48
Other Links: branch diff | manifest | tags
Context
2020-07-30
18:54
changed version to 1.6558 check-in: ea53e1b896 user: mmgraham tags: v1.65, v1.6558
2020-07-29
17:05
removed comments check-in: a2a5172659 user: pjhatwal tags: v1.65
16:36
fix to archive save-remove check-in: ad4842a081 user: pjhatwal tags: v1.65
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified archive.scm from [1acc296954] to [8417ecbb27]. 

307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324

307
308
309
310
311
312
313

314


315
316
317
318
319
320
321







-

-
-








		    run-dir: source-dir)))
	       (hash-table-ref test-groups test-base))))
	   ;; (mutex-unlock! bup-mutex)
	   (for-each
	    (lambda (test-dat)
	      (let ((test-id           (db:test-get-id        test-dat))
		    (run-id            (db:test-get-run_id    test-dat)))
                 (debug:print-info 0 *default-log-port* "|"archive-command"|")
		(rmt:test-set-archive-block-id run-id test-id archive-id)
                (debug:print-info 0 *default-log-port* "|"archive-command"|" (member (symbol->string archive-command) '("save-remove")) (string? archive-command))

		(if (member (symbol->string archive-command) '("save-remove"))
                    (begin 
                     (debug:print-info 0 *default-log-port* "remove testdat")
		    (runs:remove-test-directory test-dat 'archive-remove)))))
	    (hash-table-ref test-groups test-base)))))
       (hash-table-keys disk-groups))
    #t))

This page was generated in about 0.096s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00