From f52334abf79af4ead3ad1a101a104db61ab07162 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Fri, 27 Dec 2019 18:26:11 +0000 Subject: [PATCH] doctests: Rename `desc' etc. in extract-doctest from `rubric' This isn't a rubric, it is a description of a particular test entry. Signed-off-by: Ian Jackson --- tests/filter/extract-doctest | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/tests/filter/extract-doctest b/tests/filter/extract-doctest index 40cf4f5..35870ce 100755 --- a/tests/filter/extract-doctest +++ b/tests/filter/extract-doctest @@ -106,20 +106,20 @@ sub write_permode ($$$$$;$$) { oh "${senl}# ----- $what starts -----\n"; foreach my $e (@exp) { next unless $filter->($e); - my $rubric = $e->{In}; - $rubric =~ s/\&/AMP /g; - $rubric =~ s/\$/DOLLAR /g; - $rubric =~ s/NEWQUOTE/NEW_QUOTE /g; - my ($f,$prubric) = $rubric =~ m/^(.*)\n/ + my $desc = $e->{In}; + $desc =~ s/\&/AMP /g; + $desc =~ s/\$/DOLLAR /g; + $desc =~ s/NEWQUOTE/NEW_QUOTE /g; + my ($f,$pdesc) = $desc =~ m/^(.*)\n/ ? ("\n# %s:\n%s\n\n", $1) - : ("%-30s: %s .\n", $rubric); + : ("%-30s: %s .\n", $desc); my $o; $o = $e->{OutTop} if $dir_prefix eq ''; $o //= $e->{Out}; $o =~ s{/sub/dir}{} if $dir_prefix eq '' && !defined $e->{OutTop}; $o = $omap->($o, $e); - oi sprintf $f, $prubric, $e->{In}; - oo sprintf $f, $prubric, $o; + oi sprintf $f, $pdesc, $e->{In}; + oo sprintf $f, $pdesc, $o; } oi $end; oh "${senl}# ----- $what ends -----\n"; -- 2.30.2