From 40e52ca6e3ee1cabe563e8ad2bda3b606ea86e70 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 5 Jan 2022 16:13:59 +0530
Subject: build-aux: Check news during distcheck.

* Makefile (distcheck): Pass version to distcheck script.
* build-aux/distcheck.scm (check-news): New function.
Check news.
---
 Makefile                |  2 +-
 build-aux/distcheck.scm | 14 ++++++++++++--
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/Makefile b/Makefile
index 59bc559..b0106c8 100644
--- a/Makefile
+++ b/Makefile
@@ -58,7 +58,7 @@ $(dist_archive): .git/refs/heads/main
 	$(GPG) --detach-sign --armor $<
 
 distcheck: $(dist_archive)
-	$(GUILE) build-aux/distcheck.scm $<
+	$(GUILE) build-aux/distcheck.scm $(version) $<
 
 install: $(sources) $(objects)
 	install -D $(sources) --target-directory $(scmdir)
diff --git a/build-aux/distcheck.scm b/build-aux/distcheck.scm
index 83e3db3..0316170 100644
--- a/build-aux/distcheck.scm
+++ b/build-aux/distcheck.scm
@@ -62,6 +62,16 @@ arguments."
        (inherit (package-in-archive dist-archive))
        (source (local-file dist-archive))))))
 
+(define (check-news version dist-archive)
+  "Check if VERSION appears in the first 200 characters of the news
+file in DIST-ARCHIVE."
+  (call-with-archive-file dist-archive "NEWS.org"
+    (lambda (port)
+      (unless (string-contains (get-string-n port 200)
+                               version)
+        (error "NEWS.org does not mention current version:" version)))))
+
 (match (program-arguments)
-  ((_ dist-archive)
-   (check-build dist-archive)))
+  ((_ version dist-archive)
+   (check-build dist-archive)
+   (check-news version dist-archive)))
-- 
cgit v1.2.3