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