[elpa] externals/relint 2ebd33d 04/12: Disable tests requiring Emacs 27 for the time being (bug #7)

[Mattias Engdegård]

branch: externals/relint
commit 2ebd33daa65678c666c1eda9ed2d5f497c2c3306
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    Disable tests requiring Emacs 27 for the time being (bug #7)
    
    It's unnecessarily restrictive to require an unreleased Emacs version
    just in order to hack relint. When Emacs 27 has been released, these
    changes can be reverted.
---
 test/3.elisp    |  9 ++++++---
 test/3.expected |  3 ---
 test/4.elisp    | 12 ++++++------
 test/4.expected |  3 ---
 4 files changed, 12 insertions(+), 15 deletions(-)

diff --git a/test/3.elisp b/test/3.elisp
index dfe8599..69191c5 100644
--- a/test/3.elisp
+++ b/test/3.elisp
@@ -166,6 +166,9 @@
      (and (compare-strings "abc" 0 2 "ABC" 0 2 t)
           "[AA]"))))
 
-(defun test-eval-flatten-tree ()
-  (looking-at
-   (apply #'concat (flatten-tree '("$" ((("a") "b") ("c")))))))   ; "$abc"
+;;; `flatten-tree' appeared in 27.1; disable this part until that Emacs
+;;; version has been released.
+;;;
+;;;(defun test-eval-flatten-tree ()
+;;;  (looking-at
+;;;   (apply #'concat (flatten-tree '("$" ((("a") "b") ("c")))))))   ; "$abc"
diff --git a/test/3.expected b/test/3.expected
index bee21d2..a72d52f 100644
--- a/test/3.expected
+++ b/test/3.expected
@@ -43,6 +43,3 @@
 3.elisp:164:4: In call to looking-at: Duplicated `A' inside character 
alternative (pos 2)
   "[AA]"
    ..^
-3.elisp:171:4: In call to looking-at: Unescaped literal `$' (pos 0)
-  "$abc"
-   ^
diff --git a/test/4.elisp b/test/4.elisp
index 9213b8c..d5f864c 100644
--- a/test/4.elisp
+++ b/test/4.elisp
@@ -28,12 +28,12 @@
 ;; Test rx
 (defvar my-sub-rx '(one-or-more nonl))
 
-(defun test-rx ()
-  (looking-at (concat (rx (eval my-sub-rx)
-                          (literal (string ?a ?b))
-                          (regexp (concat "c" "+"))
-                          (regex (string ?d)))
-                      "^")))
+;;;(defun test-rx ()    ; Emacs 27-specific test; disable until it's out.
+;;;  (looking-at (concat (rx (eval my-sub-rx)
+;;;                          (literal (string ?a ?b))
+;;;                          (regexp (concat "c" "+"))
+;;;                          (regex (string ?d)))
+;;;                      "^")))
 
 ;; Test macro expansion
 (defmacro my-macro (x)
diff --git a/test/4.expected b/test/4.expected
index 8a6c403..fc3ca31 100644
--- a/test/4.expected
+++ b/test/4.expected
@@ -31,9 +31,6 @@
 4.elisp:26:15: In call to looking-at: Unescaped literal `+' (pos 0)
   "+c"
    ^
-4.elisp:32:15: In call to looking-at: Unescaped literal `^' (pos 13)
-  ".+ab\\(?:c+\\)d^"
-   ...............^
 4.elisp:43:15: In call to looking-at: Unescaped literal `^' (pos 1)
   "a^"
    .^