diff options
| -rw-r--r-- | Makefile | 2 | ||||
| -rw-r--r-- | 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))) |