From 9686675c0587f3083027897345afc1a069f95857 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 3 Oct 2023 22:32:15 +0200
Subject: Got formats test.scm to run again.

Note that it however fails.
---
 tests/formats/test.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/tests/formats/test.scm b/tests/formats/test.scm
index dfa04f22..48c6bb76 100755
--- a/tests/formats/test.scm
+++ b/tests/formats/test.scm
@@ -3,9 +3,10 @@
 
 here=$(dirname $(realpath $0))
 export here
-. "$(dirname $(dirname "$here"))/env"
+root="$(dirname "$(dirname "$here")")"
+eval $(env __PRINT_ENVIRONMENT=1 "${root}/calp")
 
-exec $GUILE -s "$0" "$@"
+exec "$GUILE" -s "$0" "$@"
 !#
 
 (use-modules (srfi srfi-64)
@@ -19,7 +20,7 @@ exec $GUILE -s "$0" "$@"
 
 
 (verbose? #t)
-(test-runner-factory construct-test-runner)
+(test-runner-factory (construct-test-runner display))
 
 (define component
   (vcomponent
-- 
cgit v1.2.3