From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 29 Dec 2019 14:18:49 +0000 (+0000)
Subject: doctests: Allow parenthetical comments as an expansion RHS
X-Git-Tag: subdirmk/0.3~12
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?p=subdirmk.git;a=commitdiff_plain;h=80ebf1020232f0aa081f18b3b5fc432bd81a5544

doctests: Allow parenthetical comments as an expansion RHS

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/tests/filter/extract-doctests b/tests/filter/extract-doctests
index 707da89..4357bee 100755
--- a/tests/filter/extract-doctests
+++ b/tests/filter/extract-doctests
@@ -55,7 +55,7 @@ while (<>) {
 	    s{^or (\S+)$}{}) {
 	    $e->{OutTop} = $1 eq 'nothing' ? '' : $1;
 	} elsif (# parse: expect other wordish things to be comments
-		 m{^(?!or\b)\w{2,} }) {
+		 m{^(?!or\b)\(?\w{2,} }) {
 	} elsif (# adhoc: slightly special case for $(eval $(call
 		 m{^\$\{.*}) {
 	    $e->{Out} .= ' '.$&;