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:16:48 +03:00
parent b5ae900ed6
commit b6017b24ed
4 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Jenkinsfile vendored
View File

@ -68,7 +68,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh 'chibi-scheme -I ./snow/chibi r7rs-tests.scm> r7rs-test.log' sh 'chibi-scheme -I ./snow/chibi r7rs-tests.scm> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/chibi-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/chibi-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -101,7 +101,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh ' ls && cp snow/chibi/term/ansi.sld snow.chibi.term.ansi.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.term.ansi.sld && cp snow/chibi/optional.sld snow.chibi.optional.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.optional.sld && cp snow/chibi/diff.sld snow.chibi.diff.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.diff.sld && cp snow/chibi/test.sld snow.chibi.test.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.test.sld' sh ' ls && cp snow/chibi/term/ansi.sld snow.chibi.term.ansi.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.term.ansi.sld && cp snow/chibi/optional.sld snow.chibi.optional.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.optional.sld && cp snow/chibi/diff.sld snow.chibi.diff.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.diff.sld && cp snow/chibi/test.sld snow.chibi.test.sld && csc -include-path ./snow/chibi -include-path ./snow/chibi/term -X r7rs -R r7rs -s -J snow.chibi.test.sld'
sh 'csc -include-path ./snow/chibi -X r7rs -R r7rs r7rs-tests.scm && ./r7rs-test && rm r7rs-test> r7rs-test.log' sh 'csc -include-path ./snow/chibi -X r7rs -R r7rs r7rs-tests.scm && ./r7rs-test && rm r7rs-test> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/chicken-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/chicken-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -134,7 +134,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh ' ls && cyclone -A . snow/chibi/term/ansi.sld && cyclone -A . snow/chibi/optional.sld && cyclone -A . snow/chibi/diff.sld && cyclone -A . snow/chibi/test.sld' sh ' ls && cyclone -A . snow/chibi/term/ansi.sld && cyclone -A . snow/chibi/optional.sld && cyclone -A . snow/chibi/diff.sld && cyclone -A . snow/chibi/test.sld'
sh 'cyclone -A . r7rs-tests.scm && ./r7rs-test && rm r7rs-test> r7rs-test.log' sh 'cyclone -A . r7rs-tests.scm && ./r7rs-test && rm r7rs-test> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/cyclone-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/cyclone-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -167,7 +167,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh ' ls && gsc . snow/chibi/term/ansi && gsc . snow/chibi/optional && gsc . snow/chibi/diff && gsc . snow/chibi/test' sh ' ls && gsc . snow/chibi/term/ansi && gsc . snow/chibi/optional && gsc . snow/chibi/diff && gsc . snow/chibi/test'
sh 'gsc -exe . -nopreload r7rs-tests.scm && ./r7rs-test && rm r7rs-test> r7rs-test.log' sh 'gsc -exe . -nopreload r7rs-tests.scm && ./r7rs-test && rm r7rs-test> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/gambit-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/gambit-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -200,7 +200,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh 'gosh -r7 -A ./snow r7rs-tests.scm> r7rs-test.log' sh 'gosh -r7 -A ./snow r7rs-tests.scm> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/gauche-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/gauche-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -233,7 +233,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh 'guile --fresh-auto-compile --r7rs -L . -L ./snow r7rs-tests.scm> r7rs-test.log' sh 'guile --fresh-auto-compile --r7rs -L . -L ./snow r7rs-tests.scm> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/guile-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/guile-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -266,7 +266,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh 'kawa --r7rs -Dkawa.import.path=./snow/chibi/*.sld:./snow/srfi/*.sld r7rs-tests.scm> r7rs-test.log' sh 'kawa --r7rs -Dkawa.import.path=./snow/chibi/*.sld:./snow/srfi/*.sld r7rs-tests.scm> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/kawa-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/kawa-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -299,7 +299,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh ' ls && ls snow/chibi/term/ansi.sld && ls snow/chibi/optional.sld && ls snow/chibi/diff.sld && ls snow/chibi/test.sld' sh ' ls && ls snow/chibi/term/ansi.sld && ls snow/chibi/optional.sld && ls snow/chibi/diff.sld && ls snow/chibi/test.sld'
sh 'LOKO_LIBRARY_PATH=./snow loko -std=r7rs --compile r7rs-tests.scm && ./r7rs-test && rm r7rs-test> r7rs-test.log' sh 'LOKO_LIBRARY_PATH=./snow loko -std=r7rs --compile r7rs-tests.scm && ./r7rs-test && rm r7rs-test> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/loko-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/loko-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -332,7 +332,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh 'mit-scheme --load r7rs-tests.scm> r7rs-test.log' sh 'mit-scheme --load r7rs-tests.scm> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/mit-scheme-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/mit-scheme-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -365,7 +365,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh 'sash -r7 -L ./snow r7rs-tests.scm > r7rs-test.log && cat r7rs-test.log> r7rs-test.log' sh 'sash -r7 -L ./snow r7rs-tests.scm > r7rs-test.log && cat r7rs-test.log> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/sagittarius-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/sagittarius-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -398,7 +398,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh 'stklos -I ./snow r7rs-tests.scm> r7rs-test.log' sh 'stklos -I ./snow r7rs-tests.scm> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/stklos-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/stklos-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -431,7 +431,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh 'skint --program r7rs-tests.scm> r7rs-test.log' sh 'skint --program r7rs-tests.scm> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/skint-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/skint-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'
@ -464,7 +464,7 @@ pipeline {
sh 'find . -name "*.o" -delete' sh 'find . -name "*.o" -delete'
sh 'tr7i r7rs-tests.scm> r7rs-test.log' sh 'tr7i r7rs-tests.scm> r7rs-test.log'
sh 'cat *.log' sh 'cat r7rs-test.log'
sh 'for f in *.log; do cp -- "$f" "reports/tr7-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/tr7-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'

12
build.scm
View File

@ -77,11 +77,13 @@
(string-append "schemers/" name)))) out) (string-append "schemers/" name)))) out)
(for-each (for-each
(lambda (test) (lambda (test)
(execute jenkinsfile-job (let ((test-name (cdr (assoc 'name test))))
`((command . ,(string-append (full-command implementation test) (execute jenkinsfile-job
"> " (cdr (assoc 'name test)) ".log")) `((command . ,(string-append (full-command implementation test)
(library-command . ,(full-library-command implementation test))) "> " test-name ".log"))
out)) (log-command . ,(string-append "cat " test-name ".log"))
(library-command . ,(full-library-command implementation test)))
out)))
tests) tests)
(execute jenkinsfile-job-bottom `((name . ,(cdr (assoc 'name implementation)))) out) (execute jenkinsfile-job-bottom `((name . ,(cdr (assoc 'name implementation)))) out)
(newline out))) (newline out)))

1
templates/Jenkinsfile-job
View File

@ -1,2 +1,3 @@
{{#library-command}}sh '{{{library-command}}}'{{/library-command}} {{#library-command}}sh '{{{library-command}}}'{{/library-command}}
sh '{{{command}}}' sh '{{{command}}}'
sh '{{{log-command}}}'

1
templates/Jenkinsfile-job-bottom
View File

@ -1,4 +1,3 @@
sh 'cat *.log'
sh 'for f in *.log; do cp -- "$f" "reports/{{name}}-$f"; done' sh 'for f in *.log; do cp -- "$f" "reports/{{name}}-$f"; done'
sh 'ls reports' sh 'ls reports'
stash name: 'reports', includes: 'reports/*' stash name: 'reports', includes: 'reports/*'