aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
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)))