Warning reporting: Warning suppression system

[subdirmk.git] / tests / filter / update-expected

diff --git a/tests/filter/update-expected b/tests/filter/update-expected
index ff105423fa427ffe1d68836c36fe76735f4fb9f9..d21ea73374f4fa319ec61dd66f3f9eb9b59d54b7 100755 (executable)
--- a/tests/filter/update-expected
+++ b/tests/filter/update-expected
@@ -6,5 +6,13 @@
 #   selectively git-add the things that are right, after inspecting them
 
 set -e
-files=$(find tests/filter -name \*.tmp)
-for f in $files; do cp $f ${f%.tmp}.expected; done
+files=$(find tests/filter -name \*.expected.tmp)
+for f in $files; do
+       perl -pe '
+               (s/\n//, $stripnl=0) if $stripnl;
+               next unless /^# doctests start/../^# doctests end/;
+               $_="";
+               $stripnl=1;
+       ' \
+               <${f%.expected.tmp}.tmp >${f%.tmp}
+done