Megatest

Check-in [e1b6d511c2]
Login
Overview
Comment:Added info print to help resolve links vs. run area
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e1b6d511c28330a57d51c8824eb3cad92e39cb85
User & Date: mrwellan on 2012-04-02 01:47:58
Other Links: manifest | tags
Context
2012-04-02
09:09
Merged in debug improvement, debug is now passed on to the test execution check-in: ef011a974f user: mrwellan tags: trunk
01:47
Added info print to help resolve links vs. run area check-in: e1b6d511c2 user: mrwellan tags: trunk
01:40
Restructured runs dir and links check-in: c661cee49c user: mrwellan tags: trunk
Changes

Modified launch.scm from [c5891929fb] to [8808c31a38].

525
526
527
528
529
530
531
532


533
534
535
536
537
538
539
525
526
527
528
529
530
531

532
533
534
535
536
537
538
539
540







-
+
+







    (set! mt-bindir-path (pathname-directory remote-megatest))
    (if launcher (set! launcher (string-split launcher)))
    ;; set up the run work area for this test
    (set! diskpath (get-best-disk *configdat*))
    (if diskpath
	(let ((dat  (create-work-area db run-id test-path diskpath test-name itemdat)))
	  (set! work-area (car dat))
	  (set! toptest-work-area (cadr dat)))
	  (set! toptest-work-area (cadr dat))
	  (debug:print 2 "INFO: Using work area " work-area))
	(begin
	  (set! work-area (conc test-path "/tmp_run"))
	  (create-directory work-area #t)
	  (debug:print 0 "WARNING: No disk work area specified - running in the test directory under tmp_run")))
    (set! cmdparms (base64:base64-encode (with-output-to-string
				    (lambda () ;; (list 'hosts     hosts)
				      (write (list (list 'testpath  test-path)