[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#45948] [PATCH 6/5] build: test-driver.scm: Allow running as a stand
From: |
Maxim Cournoyer |
Subject: |
[bug#45948] [PATCH 6/5] build: test-driver.scm: Allow running as a standalone script. |
Date: |
Mon, 18 Jan 2021 09:42:01 -0500 |
* build-aux/test-driver.scm: Add an exec-based shebang and set the script
executable bit.
(main): Insert a newline after the version string is printed with --version.
---
build-aux/test-driver.scm | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
mode change 100644 => 100755 build-aux/test-driver.scm
diff --git a/build-aux/test-driver.scm b/build-aux/test-driver.scm
old mode 100644
new mode 100755
index aa34e669ff..2d0649ef37
--- a/build-aux/test-driver.scm
+++ b/build-aux/test-driver.scm
@@ -1,6 +1,9 @@
+#!/bin/sh
+exec guile --no-auto-compile -e main -s "$0" "$@"
+!#
;;;; test-driver.scm - Guile test driver for Automake testsuite harness
-(define script-version "2021-01-18.06") ;UTC
+(define script-version "2021-01-18.14") ;UTC
;;; Copyright ?? 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright ?? 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
@@ -201,7 +204,7 @@ cases based on their names."
(option (cut option-ref opts <> <>)))
(cond
((option 'help #f) (show-help))
- ((option 'version #f) (format #t "test-driver.scm ~A" script-version))
+ ((option 'version #f) (format #t "test-driver.scm ~A~%" script-version))
(else
(let* ((log (and=> (option 'log-file #f) (cut open-file <> "w0")))
(trs (and=> (option 'trs-file #f) (cut open-file <> "wl")))
--
2.29.2
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bug#45948] [PATCH 6/5] build: test-driver.scm: Allow running as a standalone script.,
Maxim Cournoyer <=