diff --git a/Jenkinsfile b/Jenkinsfile index 4f13f08..112c03d 100644 --- a/Jenkinsfile +++ b/Jenkinsfile @@ -32,6 +32,33 @@ pipeline { } } } + stage('sagittarius') { + agent { + docker { + image 'schemers/sagittarius:head' + args '--user=root' + } + } + steps { + script { + stage('init') { + catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') { + sh 'apt-get update && apt-get install -y git ca-certificates gcc make libffi-dev' + sh 'git clone https://github.com/ashinn/chibi-scheme.git --depth=1' + sh 'make -j8 -C chibi-scheme' + sh 'make -j8 -C chibi-scheme install' + sh 'snow-chibi install retropikzel.compile-r7rs' + } + } + stage('tap') { + catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') { + sh 'COMPILE_R7RS=sagittarius compile-r7rs -o tap-test-program retropikzel/tap/test.scm' + sh './tap-test-program' + } + } + } + } + } } post { always { diff --git a/makings.scm b/makings.scm index b81b60a..61a635e 100644 --- a/makings.scm +++ b/makings.scm @@ -12,10 +12,10 @@ " compile-r7rs -o tap-test-program retropikzel/tap/test.scm") "./tap-test-program")))) - (map (lambda (scheme) - `(makings ((name ,scheme) - (image ,(string-append "schemers/" scheme ":head")) - (stages - (init ,@init) - (tap ,@(tap scheme)))))) - '("chibi" "sagittarius"))) + `((makings ,@(map (lambda (scheme) + `((name ,scheme) + (image ,(string-append "schemers/" scheme ":head")) + (stages + (init ,@init) + (tap ,@(tap scheme))))) + '("chibi" "sagittarius")))))