103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
(logfile (conc (db:test-get-rundir test) "/" (db:test-get-final_logf test)))
(viewlog (lambda (x)
(if (file-exists? logfile)
(system (conc "firefox " logfile "&"))
(message-window (conc "File " logfile " not found")))))
(xterm (lambda (x)
(if (directory-exists? rundir)
(system (conc "cd " rundir ";xterm -T " (string-translate testfullname "()" " ") "&"))
(message-window (conc "Directory " rundir " not found")))))
(newstatus currstatus)
(newstate currstate)
(self #f))
;; (test-set-status! db run-id test-name state status itemdat)
(set! self
|
>
>
>
|
>
|
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
(logfile (conc (db:test-get-rundir test) "/" (db:test-get-final_logf test)))
(viewlog (lambda (x)
(if (file-exists? logfile)
(system (conc "firefox " logfile "&"))
(message-window (conc "File " logfile " not found")))))
(xterm (lambda (x)
(if (directory-exists? rundir)
(let ((shell (if (get-environment-variable "SHELL")
(conc "-e " (get-environment-variable "SHELL"))
"")))
(system (conc "cd " rundir
";xterm -T \"" (string-translate testfullname "()" " ") "\" " shell "&")))
(message-window (conc "Directory " rundir " not found")))))
(newstatus currstatus)
(newstate currstate)
(self #f))
;; (test-set-status! db run-id test-name state status itemdat)
(set! self
|