branch: externals/matlab-mode
commit c8bfd2d9434b52b45d9a061d3d997da823560597
Author: John Ciolfi <[email protected]>
Commit: John Ciolfi <[email protected]>
matlab-ts-mode: add version and test to validate all versions the same
---
matlab-ts-mode.el | 1 +
tests/test-package-version.el | 59 +++++++++++++++++++++++++++++++++++++++++++
2 files changed, 60 insertions(+)
diff --git a/matlab-ts-mode.el b/matlab-ts-mode.el
index a67628f619..7f049ec8be 100644
--- a/matlab-ts-mode.el
+++ b/matlab-ts-mode.el
@@ -2,6 +2,7 @@
;; Copyright 2025 Free Software Foundation, Inc.
;;
+;; Version: 7.0
;; URL: https://github.com/mathworks/Emacs-MATLAB-Mode
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
diff --git a/tests/test-package-version.el b/tests/test-package-version.el
new file mode 100644
index 0000000000..1dba16ed44
--- /dev/null
+++ b/tests/test-package-version.el
@@ -0,0 +1,59 @@
+;;; test-package-version.el --- -*- lexical-binding: t -*-
+;;
+;; Copyright 2025 Free Software Foundation, Inc.
+;;
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+(require 't-utils)
+(require 'matlab-ts-mode)
+
+(ert-deftest test-package-version ()
+ "Validate the package version numbers in ../*.el are the same.
+Emacs MATLAB mode package consists of several major and minor modes and
+for simplicity we require that the verisons of these be the same."
+
+ (let ((el-files (directory-files ".." t "\\.el\\'"))
+ (version-lines "")
+ (all-versions-consistent t)
+ first-ver)
+ (dolist (el-file el-files)
+ (with-temp-buffer
+ (insert-file-contents-literally el-file)
+ (goto-char (point-min))
+ (when (re-search-forward "^[ \t]*;;[ \t]*Version: \\([.0-9]+\\)" nil t)
+ (let ((ver (match-string 1))
+ (ver-line (format "%s:%d: %s\n"
+ el-file (line-number-at-pos)
+ (buffer-substring (line-beginning-position)
(line-end-position)))))
+ (setq version-lines (concat version-lines ver-line))
+ (if (not first-ver)
+ (setq first-ver ver)
+ (when (not (string= first-ver ver))
+ (setq all-versions-consistent nil)))))))
+
+ (when (not all-versions-consistent)
+ (message "Versions are not consistent:\n%s" version-lines))
+
+ (should (eq all-versions-consistent t))))
+
+
+(provide 'test-package-version)
+;;; test-package-version.el ends here
