diff options
| author | Arun Isaac | 2022-01-05 16:13:59 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-01-05 16:26:05 +0530 |
| commit | 40e52ca6e3ee1cabe563e8ad2bda3b606ea86e70 (patch) | |
| tree | bc9802aa12256fa6663fd6e134ea79d2de0d04f9 /build-aux/distcheck.scm | |
| parent | 68679bb6cab3b4480fa4f1b89d7a87ac1ddb3c64 (diff) | |
| download | kolam-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/distcheck.scm')
| -rw-r--r-- | build-aux/distcheck.scm | 14 |
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))) |