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