95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
(itempath (db:test-get-item-path test))
(testfullname (runs:test-get-full-path test))
(currstatus (db:test-get-status test))
(currstate (db:test-get-state test))
(currcomment (db:test-get-comment test))
(host (db:test-get-host test))
(cpuload (db:test-get-cpuload test))
(runtime (db:test-get-run)duration test)
(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)
|
|
|
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
(itempath (db:test-get-item-path test))
(testfullname (runs:test-get-full-path test))
(currstatus (db:test-get-status test))
(currstate (db:test-get-state test))
(currcomment (db:test-get-comment test))
(host (db:test-get-host test))
(cpuload (db:test-get-cpuload test))
(runtime (db:test-get-run_duration test))
(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)
|