From a361299203cb2e6f18affe0bffe1d318ec79dbbf Mon Sep 17 00:00:00 2001
From: Roi Martin <jroi.martin@gmail.com>
Date: Sun, 20 Apr 2025 08:05:56 +0200
Subject: [PATCH] Add baseline pass/fail tests for `ert-test-erts-file'

* test/lisp/emacs-lisp/ert-tests.el (ert-test-erts-pass)
(ert-test-erts-fail): Add tests to verify that the
`ert-test-erts-file' function can detect both passing a failing
test cases.
* test/lisp/emacs-lisp/ert-resources/erts-fail.erts:
* test/lisp/emacs-lisp/ert-resources/erts-pass.erts:
Add test data.  (Bug#78552)

(cherry picked from commit 9c00f55265a108b91189b6d8290a906749a45e8d)
---
 test/lisp/emacs-lisp/ert-resources/erts-fail.erts |  7 +++++++
 test/lisp/emacs-lisp/ert-resources/erts-pass.erts |  7 +++++++
 test/lisp/emacs-lisp/ert-tests.el                 | 11 +++++++++++
 3 files changed, 25 insertions(+)
 create mode 100644 test/lisp/emacs-lisp/ert-resources/erts-fail.erts
 create mode 100644 test/lisp/emacs-lisp/ert-resources/erts-pass.erts

diff --git a/test/lisp/emacs-lisp/ert-resources/erts-fail.erts b/test/lisp/emacs-lisp/ert-resources/erts-fail.erts
new file mode 100644
index 00000000000..12d73454f7b
--- /dev/null
+++ b/test/lisp/emacs-lisp/ert-resources/erts-fail.erts
@@ -0,0 +1,7 @@
+Name: fail
+
+=-=
+FOO
+=-=
+BAR
+=-=-=
diff --git a/test/lisp/emacs-lisp/ert-resources/erts-pass.erts b/test/lisp/emacs-lisp/ert-resources/erts-pass.erts
new file mode 100644
index 00000000000..6f98150d4d9
--- /dev/null
+++ b/test/lisp/emacs-lisp/ert-resources/erts-pass.erts
@@ -0,0 +1,7 @@
+Name: pass
+
+=-=
+FOO
+=-=
+FOO
+=-=-=
diff --git a/test/lisp/emacs-lisp/ert-tests.el b/test/lisp/emacs-lisp/ert-tests.el
index f6da801eb0c..7ecffa79e77 100644
--- a/test/lisp/emacs-lisp/ert-tests.el
+++ b/test/lisp/emacs-lisp/ert-tests.el
@@ -1030,6 +1030,17 @@ F failing-test
                  (ert-with-test-buffer (:name "foo" :selected t)
                    (buffer-name)))))
 
+(ert-deftest ert-test-erts-pass ()
+  "Test that `ert-test-erts-file' reports test case passed."
+  (ert-test-erts-file (ert-resource-file "erts-pass.erts")
+                      (lambda () ())))
+
+(ert-deftest ert-test-erts-fail ()
+  "Test that `ert-test-erts-file' reports test case failed."
+  (should-error (ert-test-erts-file (ert-resource-file "erts-fail.erts")
+                                    (lambda () ()))
+                :type 'ert-test-failed))
+
 (ert-deftest ert-test-erts-skip-one ()
   "Test that Skip does not affect subsequent test cases (Bug#76839)."
   (should-error (ert-test-erts-file (ert-resource-file "erts-skip-one.erts")
-- 
2.39.5