From 971260526fd00dadc5f5f41ea5174b32b7e83ea8 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Thu, 11 Dec 2025 17:14:39 +0200
Subject: [PATCH] Fix testing

---
 Jenkinsfile | 27 +++++++++++++++++++++++----
 1 file changed, 23 insertions(+), 4 deletions(-)

diff --git a/Jenkinsfile b/Jenkinsfile
index 724c6bf..1af04f1 100644
--- a/Jenkinsfile
+++ b/Jenkinsfile
@@ -18,18 +18,37 @@ pipeline {
     }
 
     stages {
-        stage('Tests') {
+        stage('R6RS tests') {
             steps {
                 script {
-                    def implementations = sh(script: 'compile-scheme --list-r7rs-schemes', returnStdout: true).split()
-
+                    def implementations = sh(script: 'compile-scheme --list-r6rs-except larceny', returnStdout: true).split()
                     params.LIBRARIES.split().each { LIBRARY ->
                         stage("${LIBRARY}") {
                             parallel implementations.collectEntries { SCHEME ->
                                 [(SCHEME): {
                                     stage("${SCHEME}") {
                                         catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') {
-                                            sh "make SCHEME=${SCHEME} clean test-docker"
+                                            sh "make SCHEME=${SCHEME} test-r7rs-docker"
+                                        }
+                                    }
+                                }]
+                            }
+                        }
+                    }
+                }
+            }
+        }
+        stage('R7RS tests') {
+            steps {
+                script {
+                    def implementations = sh(script: 'compile-scheme --list-r7rs except', returnStdout: true).split()
+                    params.LIBRARIES.split().each { LIBRARY ->
+                        stage("${LIBRARY}") {
+                            parallel implementations.collectEntries { SCHEME ->
+                                [(SCHEME): {
+                                    stage("${SCHEME}") {
+                                        catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') {
+                                            sh "make SCHEME=${SCHEME} test-r7rs-docker"
                                         }
                                     }
                                 }]