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)

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 (file)
index 0000000..12d7345
--- /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 (file)
index 0000000..6f98150
--- /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 f6da801eb0ce0477d53e8d020d37c7452f4d79ac..7ecffa79e776bb645d13bcf01c04dfcbe8185683 100644 (file)
--- 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")