diff options
| author | 2025-03-06 18:33:57 -0500 | |
|---|---|---|
| committer | 2025-03-06 18:33:57 -0500 | |
| commit | 9f785bbb10cc53fe3b7ef6e0df52b411b43bb3e4 (patch) | |
| tree | f55dd7dd0af0a13e1280aa1a52e8111961215e5b /tests/shim.sld | |
| parent | better flags handling (diff) | |
Diffstat (limited to 'tests/shim.sld')
| -rw-r--r-- | tests/shim.sld | 33 |
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)) |
