commit fb1f9372a755bb3f023d97a9434376e7bfefd514
from: Sven M. Hallberg <pesco@khjk.org>
date: Sun Jul 20 13:42:45 2025 UTC

pass -v(v) on to test suites

commit - 4ccafa30cf5e4fedd836cd9ec1a4feb476113eaf
commit + fb1f9372a755bb3f023d97a9434376e7bfefd514
blob - 2b1bf087080c157f7c417e0c8ca9f9b2814b5df5
blob + 24910f8393b757b52c969b7ed1a3a5b45a66f664
--- exercise
+++ exercise
@@ -50,6 +50,9 @@ proc execute_test {job basedir path} {
     if {$suite} {
         # Pass stderr through when calling test suites.
         set errfile @stderr
+
+	# Pass -v(v) on to test suites.
+	if {$opts(-v) > 0} {set args "-[string repeat v $opts(-v)] $args"}
     } else {
         # Capture stderr in a temporary file.
         # Unfortunately, 'chan pipe' only appears in Tcl 8.6. :(
blob - 50021845f3755dc331e2e5b256937e228613dc42
blob + 67375a31ca9192a3298094d2896e134ff5c27eac
--- tests/exercise/flag/v.t
+++ tests/exercise/flag/v.t
@@ -37,4 +37,18 @@ export tst=$0.ts
     echo "run 2  ok 1  fail 0  error 0"
     echo "> test2"
     echo "run 2  ok 2  fail 0  error 0"
+    test "\$1" = "-v"
 EOF
+
+export tst=$0.ts
+./assert-exercise $0 \
+        "> $0.ts\n> > test1\n> > > hallo\nrun 1  ok 1  fail 0  error 0\n" \
+        '' \
+	-vv <<EOF
+#!/bin/sh
+    echo "run 1  ok 0  fail 0  error 0"
+    echo "> test1"
+    echo "> > hallo"
+    echo "run 1  ok 1  fail 0  error 0"
+    test "\$1" = "-vv"
+EOF