1 files changed, 33 insertions, 0 deletions
diff --git a/test/xemacs-test-wrapper.el b/test/xemacs-test-wrapper.el
new file mode 100644
index 0000000..dd83a07
--- /dev/null
+++ b/test/xemacs-test-wrapper.el
@@ -0,0 +1,33 @@
+;; Copyright 2024 Gentoo Authors
+;; Distributed under the terms of the GNU General Public License v2 or later
+
+;; Quick and dirty hack to make the tests work with XEmacs, where ERT
+;; is not available. It defines some macros (just the few that we need;
+;; this is far from being complete) in terms of the XEmacs test suite
+;; harness.
+
+;; Run the tests:
+;; xemacs -batch -q --no-site-file -eval "(add-to-list 'load-path nil)" \
+;; -l test/xemacs-test-wrapper -f batch-test-emacs test/mytest.el
+
+(require 'test-harness)
+(provide 'ert)				; pretend that ERT is present
+
+(defmacro ert-deftest (_name _args &rest body)
+  `(progn ,@body))
+
+(defmacro should (assertion)
+  (let ((args (ignore-errors
+		(destructuring-bind (s1 (s2 form) (s3 (err msg)))
+		    assertion
+		  (list (list s1 s2 s3) err msg form)))))
+    ;; handle (should (equal (should-error ...) '(error ...)))
+    (if (equal (car args) '(equal should-error quote))
+	`(Check-Error-Message ,@(cdr args))
+      `(Assert ,assertion))))
+
+(defmacro should-not (assertion)
+  `(Assert (not ,assertion)))
+
+(defmacro should-error (form)
+  `(Check-Error 'error ,form))