From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sun, 1 Oct 2017 17:22:39 +0000 (-0700)
Subject: devops: Check version in mit-scheme-pucked.desktop.
X-Git-Tag: mit-scheme-pucked-9.2.12~47
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d81a713ce321beda4e9971d999a92ff7d59d77ac;p=mit-scheme.git

devops: Check version in mit-scheme-pucked.desktop.
---

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)