aboutsummaryrefslogtreecommitdiffstats
path: root/tests/shim.sld
diff options
context:
space:
mode:
authorGravatar Peter McGoron 2025-03-06 18:33:57 -0500
committerGravatar Peter McGoron 2025-03-06 18:33:57 -0500
commit9f785bbb10cc53fe3b7ef6e0df52b411b43bb3e4 (patch)
treef55dd7dd0af0a13e1280aa1a52e8111961215e5b /tests/shim.sld
parentbetter flags handling (diff)
split up tests into different librariesHEADmaster
Diffstat (limited to 'tests/shim.sld')
-rw-r--r--tests/shim.sld33
1 files changed, 33 insertions, 0 deletions
diff --git a/tests/shim.sld b/tests/shim.sld
new file mode 100644
index 0000000..1ac18a6
--- /dev/null
+++ b/tests/shim.sld
@@ -0,0 +1,33 @@
+#| Copyright 2025 Peter McGoron
+ |
+ | Licensed under the Apache License, Version 2.0 (the "License");
+ |
+ | you may not use this file except in compliance with the License.
+ | You may obtain a copy of the License at
+ |
+ | http://www.apache.org/licenses/LICENSE-2.0
+ |
+ | Unless required by applicable law or agreed to in writing, software
+ | distributed under the License is distributed on an "AS IS" BASIS,
+ | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ | See the License for the specific language governing permissions and
+ | limitations under the License.
+ |#
+
+(define-library (SAHP test shim)
+ (import (scheme base))
+ (cond-expand
+ (mcgoron-srfi-64
+ (begin
+ (import (mcgoron srfi 64)
+ (srfi 64))
+ (define (setup-runner)
+ (test-runner-factory factory)
+ (test-runner-current (test-runner-create))
+ (set-verbosity! '(fails group-stack)))))
+ (else
+ (begin
+ (import (srfi 64))
+ (define (setup-runner)
+ (test-runner-current (test-runner-create))))))
+ (export setup-runner))