diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-13 00:01:28 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-13 00:01:28 +0200 |
| commit | a82b6c772089aa46e30c6c89ef48f514294df3cb (patch) | |
| tree | e25d9b6fd1fefe8b6ac293a5c0b53293872a8f54 /tests/run-tests.scm | |
| parent | Add basic documentation for lens. (diff) | |
| parent | Even more documentation. (diff) | |
| download | calp-a82b6c772089aa46e30c6c89ef48f514294df3cb.tar.gz calp-a82b6c772089aa46e30c6c89ef48f514294df3cb.tar.xz | |
Merge branch 'next' into datarewrite-structures
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 6c6ff95a..4b6d2773 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))) |