diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-11 00:30:49 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-11 19:58:54 +0200 |
| commit | 644ef0aa848c2cef6621e0ae6be8b14322b015d0 (patch) | |
| tree | cd7bbb442f735378e095ca3aba04756dd119c66f /tests/run-tests.scm | |
| parent | Add documentation for translation procedures. (diff) | |
| download | calp-644ef0aa848c2cef6621e0ae6be8b14322b015d0.tar.gz calp-644ef0aa848c2cef6621e0ae6be8b14322b015d0.tar.xz | |
Change how entry point is handled.
Replaces the old main sh bootstrap entry point to one written in C.
The reasons are in the C file, but in short, Guile's command line is
less than ideal.
Diffstat (limited to 'tests/run-tests.scm')
| -rwxr-xr-x | tests/run-tests.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm index ca8f9de4..4bb34ce8 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -1,9 +1,8 @@ #!/usr/bin/env bash # -*- mode: scheme; geiser-scheme-implementation: guile -*- -here=$(dirname $(realpath $0)) - -. "$(dirname "$here")/env" +root=$(dirname "$(dirname "$(realpath "$0")")") +eval "$(env __PRINT_ENVIRONMENT=1 ${root}/calp)" if [ "$DEBUG" = '' ]; then exec $GUILE -s "$0" "$@" @@ -12,6 +11,10 @@ else fi !# +(unless (getenv "CALP_TEST_ENVIRONMENT") + (format (current-error-port) "Not running in test environment, abandoning~%") + (exit 1)) + (format #t "current-filename = ~s~%" (current-filename)) (define here (dirname (current-filename))) |