path: root/tests/build-utils.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/build-utils.scm')
0 files changed, 0 insertions, 0 deletions
tle 'title language))) (channel-news-entry-title entry)) (for-each (match-lambda ((language . body) (validate-texinfo body 'body language))) (channel-news-entry-body entry)))) (lambda (key error . rest) (if (= GIT_ENOTFOUND (git-error-code error)) (leave (G_ "commit '~a' of entry '~a' does not exist~%") (channel-news-entry-commit entry) (channel-news-entry-title entry)) (apply throw key error rest))))) (let* ((this-directory (dirname (current-filename))) (top-directory (string-append this-directory "/..")) (entries (channel-news-entries (all-the-news top-directory)))) (with-repository top-directory repository (for-each (cut validate-news-entry repository <>) entries) (info (G_ "All ~a channel news entries are valid.~%") (length entries))))