From d81a713ce321beda4e9971d999a92ff7d59d77ac Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 1 Oct 2017 10:22:39 -0700 Subject: [PATCH] devops: Check version in mit-scheme-pucked.desktop. --- src/devops/devops.scm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/devops/devops.scm b/src/devops/devops.scm index 271af182e..a3b926e20 100644 --- a/src/devops/devops.scm +++ b/src/devops/devops.scm @@ -66,6 +66,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (dirt-lint dirt) (debian-version-lint version (debian-version ".")) (released-version-lint version (released-version (project-name)) changes) + (desktop-version-lint version) (if core-lint-hook (core-lint-hook version changes dirt) '())))) @@ -122,6 +123,14 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (else '()))) +(define (desktop-version-lint version) + (let ((line (find (lambda (l) (string-prefix? "Version=" l)) + (file-lines "debian/mit-scheme-pucked.desktop")))) + (cond ((not line) (list "File not found: debian/mit-scheme-pucked.desktop")) + ((not (string=? line (string "Version=" (version-string version)))) + (list "Version mismatch in debian/mit-scheme-pucked.desktop.")) + (else '())))) + (define (dirt-lint dirt) (if (pair? dirt) (cons "Uncommitted files:" dirt) -- 2.25.1