872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
|
(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
(z3:encode-buffer
(with-output-to-string
(lambda () ;; (list 'hosts hosts)
(write (list (list 'testpath test-path)
(list 'transport (conc (megatest:area-transport area-dat))) ;;; *transport-type*))
;; (list 'serverinf *server-info*)
(list 'toppath toppath)
(list 'work-area work-area)
(list 'test-name test-name)
(list 'runscript runscript)
(list 'run-id run-id )
(list 'test-id test-id )
|
|
|
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
|
(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
(z3:encode-buffer
(with-output-to-string
(lambda () ;; (list 'hosts hosts)
(write (list (list 'testpath test-path)
(list 'transport (conc (megatest:area-transport area-dat))) ;;
;; (list 'serverinf *server-info*)
(list 'toppath toppath)
(list 'work-area work-area)
(list 'test-name test-name)
(list 'runscript runscript)
(list 'run-id run-id )
(list 'test-id test-id )
|