From 9caf9ca7207ecebed3499432828833187436940d Mon Sep 17 00:00:00 2001 Message-ID: <9caf9ca7207ecebed3499432828833187436940d.1692189593.git.yantar92@posteo.net> From: Ihor Radchenko Date: Wed, 16 Aug 2023 13:59:49 +0300 Subject: [PATCH] * testing/lisp/test-org-version.el: New test library (test-org-version/provide): Test for all the versioned features to be provided according to current Org version. --- testing/lisp/test-org-version.el | 54 ++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100644 testing/lisp/test-org-version.el diff --git a/testing/lisp/test-org-version.el b/testing/lisp/test-org-version.el new file mode 100644 index 000000000..3c12c8d46 --- /dev/null +++ b/testing/lisp/test-org-version.el @@ -0,0 +1,54 @@ +;;; test-org-version.el --- Test Org version consistency -*- lexical-binding: t; -*- + +;; Copyright (C) 2023 Ihor Radchenko + +;; Author: Ihor Radchenko +;; Keywords: internal + +;; 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 of the License, 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 this program. If not, see . + +;;; Commentary: + +;; This file implements internal checks for Org versioning. + +;;; Code: + +(require 'org-version) + +(ert-deftest test-org-version/provide () + "Test versioned `provide' calls in Org libraries." + (let* (org-library) + (dolist (org-library-file + (directory-files + (expand-file-name + (concat org-test-dir "../lisp")) + t "\\.el$")) + (setq org-library + (file-name-nondirectory + (file-name-sans-extension org-library-file))) + (unless (member org-library '("org-loaddefs" "org-version")) + (with-temp-buffer + (insert-file-contents org-library-file) + (goto-char (point-max)) + (should (re-search-backward + (rx-to-string + `(seq + bol (0+ space) + "(provide" (0+ space) + "'" ,(concat org-library "-" (org-release)) + (0+ space) ")")) + nil t))))))) + +(provide 'test-org-version) +;;; test-org-version.el ends here -- 2.41.0