Megatest

Check-in [b179f07578]
Login
Overview
Comment:Converted a couple of open-run-close calls to cdb:remote-run
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | dev
Files: files | file ages | folders
SHA1: b179f07578cf7d6248aa2e18cb9e0d5835442840
User & Date: mrwellan on 2013-06-06 23:22:09
Other Links: branch diff | manifest | tags
Context
2013-06-06
23:22
Added checks to couple runs table queries for DELETED check-in: a8753b0784 user: mrwellan tags: dev
23:22
Converted a couple of open-run-close calls to cdb:remote-run check-in: b179f07578 user: mrwellan tags: dev
23:20
Added back accidentally removed repl code check-in: 8238ea996e user: mrwellan tags: dev
Changes

Modified runs.scm from [bb443b061f] to [366e8472b0].

449
450
451
452
453
454
455
456

457
458
459
460
461

462
463
464
465
466
467
468
449
450
451
452
453
454
455

456
457
458
459
460

461
462
463
464
465
466
467
468







-
+




-
+







	    ;; NOPE: Cannot! Don't know yet which disk area will be assigned....
	    ;; (system (conc "mkdir -p " new-test-path))
	    ;;
	    ;; (open-run-close tests:register-test db run-id test-name item-path)
	    ;;
	    ;; NB// for the above line. I want the test to be registered long before this routine gets called!
	    ;;
	    (set! test-id (open-run-close db:get-test-id db run-id test-name item-path))
	    (set! test-id (cdb:remote-run db:get-test-id #f run-id test-name item-path))
	    (if (not test-id)
		(begin
		  (debug:print 2 "WARN: Test not pre-created? test-name=" test-name ", item-path=" item-path ", run-id=" run-id)
		  (cdb:tests-register-test *runremote* run-id test-name item-path)
		  (set! test-id (open-run-close db:get-test-id db run-id test-name item-path))))
		  (set! test-id (cdb:remote-run db:get-test-id #f run-id test-name item-path))))
	    (debug:print-info 4 "test-id=" test-id ", run-id=" run-id ", test-name=" test-name ", item-path=\"" item-path "\"")
	    (set! testdat (cdb:get-test-info-by-id *runremote* test-id))))
      (if (not testdat) ;; should NOT happen
	  (debug:print 0 "ERROR: failed to get test record for test-id " test-id))
      (set! test-id (db:test-get-id testdat))
      (change-directory test-path)
      (case (if force ;; (args:get-arg "-force")