emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/assess 46290f163d 37/95: Add tests for discover.


From: ELPA Syncer
Subject: [elpa] externals/assess 46290f163d 37/95: Add tests for discover.
Date: Tue, 19 Jul 2022 15:57:31 -0400 (EDT)

branch: externals/assess
commit 46290f163d4d0acc87f46bf63f5477a03c5efa0d
Author: Phillip Lord <phillip.lord@russet.org.uk>
Commit: Phillip Lord <phillip.lord@russet.org.uk>

    Add tests for discover.
---
 Makefile                       | 11 ++++++-----
 test/sisyphus-discover-test.el |  6 ++++++
 test/sisyphus-test.el          |  7 +++++++
 3 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/Makefile b/Makefile
index a97bb7f115..497a1990a1 100644
--- a/Makefile
+++ b/Makefile
@@ -8,19 +8,20 @@ export EMACS
 all: install test
 
 install:
-       cask install
+       EMACS=$(EMACS) cask install
 
 just-test:
-       cask exec ert-runner
+       EMACS=$(EMACS) cask exec ert-runner
 
 test: install just-test
 
 package:
-       cask package
+       EMACS-$(EMACS) cask package
 
 discover-test:
-       cask exec emacs --batch --load sisyphus.el --load sisyphus-discover.el \
-       -f sisyphus-discover-run-and-exit-batch
+       EMACS=$(EMACS) cask exec $(EMACS) --batch -l sisyphus.el -l 
sisyphus-discover.el -f sisyphus-discover-run-and-exit-batch
 
 .PHONY: test dist
 
+export:
+       export
diff --git a/test/sisyphus-discover-test.el b/test/sisyphus-discover-test.el
new file mode 100644
index 0000000000..b5e6904f06
--- /dev/null
+++ b/test/sisyphus-discover-test.el
@@ -0,0 +1,6 @@
+(ert-deftest sisyphus-discover-test-has-this-been-defined ()
+  "This test is here so that we can test elsewhere that is has
+actually been defined."
+    (should t))
+
+(provide 'sisyphus-discover-test)
diff --git a/test/sisyphus-test.el b/test/sisyphus-test.el
index 5f0710eb32..c5932d1b94 100644
--- a/test/sisyphus-test.el
+++ b/test/sisyphus-test.el
@@ -459,4 +459,11 @@ This also tests the advice on string=."
       (m-buffer-match buffer "defun"))
     'font-lock-keyword-face)))
 
+(ert-deftest sisyphus-discover-test ()
+  "Test to see if another test has been defined, which should be 
auto-discovered"
+  (should
+   (get 'sisyphus-discover-test-has-this-been-defined 'ert--test)))
+
+
+
 ;; #+end_src



reply via email to

[Prev in Thread] Current Thread [Next in Thread]