aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorArun Isaac2022-01-05 16:13:59 +0530
committerArun Isaac2022-01-05 16:26:05 +0530
commit40e52ca6e3ee1cabe563e8ad2bda3b606ea86e70 (patch)
treebc9802aa12256fa6663fd6e134ea79d2de0d04f9 /build-aux
parent68679bb6cab3b4480fa4f1b89d7a87ac1ddb3c64 (diff)
downloadkolam-40e52ca6e3ee1cabe563e8ad2bda3b606ea86e70.tar.gz
kolam-40e52ca6e3ee1cabe563e8ad2bda3b606ea86e70.tar.lz
kolam-40e52ca6e3ee1cabe563e8ad2bda3b606ea86e70.zip
build-aux: Check news during distcheck.
* Makefile (distcheck): Pass version to distcheck script. * build-aux/distcheck.scm (check-news): New function. Check news.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/distcheck.scm14
1 files changed, 12 insertions, 2 deletions
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)))