Retropikzel
/
r7rs-tests
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Making the reports work

This commit is contained in:
retropikzel 2024-10-05 13:34:10 +03:00
parent e0675aa11e
commit 3221d82396
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
report.scm
View File

@ -35,8 +35,7 @@
(newline out) (newline out)
(for-each (for-each
(lambda (test) (lambda (test)
(let ((test-name (cdr (assoc 'name test))) (let ((test-name (cdr (assoc 'name test))))
(name (symbol->string (cdr (assoc 'name implementation)))))
(display (string-append "<tr>") out) (display (string-append "<tr>") out)
(newline out) (newline out)
(display (string-append "<td>" test-name "</td>") out) (display (string-append "<td>" test-name "</td>") out)
@ -46,7 +45,7 @@
(letrec* ((name (cdr (assoc 'name implementation))) (letrec* ((name (cdr (assoc 'name implementation)))
(command (cdr (assoc 'command implementation))) (command (cdr (assoc 'command implementation)))
(logfile (string-append "reports/" (logfile (string-append "reports/"
name (cdr (assoc 'name implementation))
"-" "-"
test-name test-name
".log")) ".log"))