[elpa] externals/assess 5aee8d7500 81/95: Mark some tests as failed on earlier emacs

[ELPA Syncer]

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

    Mark some tests as failed on earlier emacs
    
    Emacs before 24.3 does not support advice, therefore, mark tests requiring
    this as failing. Likewise, one test also depends on python fontification 
which
    is only active after 24.2
---
 test/assess-call-test.el | 14 ++++++++++++++
 test/assess-test.el      | 13 +++++++++++--
 2 files changed, 25 insertions(+), 2 deletions(-)

diff --git a/test/assess-call-test.el b/test/assess-call-test.el
index 66da692039..10b48e793a 100644
--- a/test/assess-call-test.el
+++ b/test/assess-call-test.el
@@ -29,6 +29,15 @@
 (require 'assess)
 (require 'assess-call)
 
+(defun assess-call-no-advice ()
+  ;; Check by version number
+  (if (and
+       (= emacs-major-version 24)
+       (or (= emacs-minor-version 3)
+           (= emacs-minor-version 2)
+           (= emacs-minor-version 1)))
+      :failed :passed))
+
 (defun assess-call-return-car (&rest args)
   (car args))
 
@@ -36,6 +45,7 @@
   (apply #'assess-call-return-car args))
 
 (ert-deftest call-capture ()
+  :expected-result (assess-call-no-advice)
   (should
    (equal
     '(((10 11 12) . 10))
@@ -45,6 +55,7 @@
        (assess-call-return-car 10 11 12))))))
 
 (ert-deftest call-capture-deep ()
+  :expected-result (assess-call-no-advice)
   (should
    (equal
     '(((20 21 22) . 20))
@@ -57,6 +68,7 @@
   (* a b))
 
 (ert-deftest call-capture-twice ()
+  :expected-result (assess-call-no-advice)
   (should
    (equal
     '(((3 4) . 12) ((1 2) . 2))
@@ -77,6 +89,7 @@
     retn))
 
 (ert-deftest assess-call-test-capture-fail ()
+  :expected-result (assess-call-no-advice)
   (should-not
    (assess-call-adviced-p 'assess-call-capture-multiply))
   (should
@@ -144,6 +157,7 @@
 The form that we are capturing should return the same value that
 it would were it not instrumented, which was not true with
 earlier versions of this library."
+  :expected-result (assess-call-no-advice)
   (should
    (= 4
       (let ((rtn-from-form))
diff --git a/test/assess-test.el b/test/assess-test.el
index 79b1e6e84d..ecd4fb2dcf 100644
--- a/test/assess-test.el
+++ b/test/assess-test.el
@@ -27,8 +27,10 @@
 ;; #+begin_src emacs-lisp
 (require 'load-relative)
 (require 'assess)
-(require 'cl-lib)
-
+(unless (require 'cl-lib nil t)
+  (require 'cl)
+  (defalias 'cl-cdadr 'cdadr)
+  (defalias 'cl-loop 'loop))
 ;; #+end_src
 
 ;; ** Test Extraction
@@ -517,6 +519,13 @@ This also tests the advice on string=."
 ;; https://github.com/phillord/assess/issues/4
 (ert-deftest issue-4-has-type-face ()
   "Test that no faces are present at point."
+  :expected-result
+  ;; Emacs 24.2 just does not do this.
+  (if (and
+       (= emacs-major-version 24)
+       (or (= emacs-minor-version 2)
+           (= emacs-minor-version 1)))
+      :failed :passed)
   (should-not
    (assess-face-at= "foo bar" 'fundamental-mode
                     "bar" 'font-lock-type-face))