From 532cecb20e4544194b46948db7cfcd3b4400737a Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sat, 26 Oct 2024 18:42:15 +0200 Subject: [PATCH] ; Remove some outdated Flymake tests --- test/lisp/progmodes/flymake-tests.el | 63 ---------------------------- 1 file changed, 63 deletions(-) diff --git a/test/lisp/progmodes/flymake-tests.el b/test/lisp/progmodes/flymake-tests.el index 93bc9028031..d2f0d45197a 100644 --- a/test/lisp/progmodes/flymake-tests.el +++ b/test/lisp/progmodes/flymake-tests.el @@ -90,25 +90,6 @@ SEVERITY-PREDICATE is used to setup (debug (sexp &rest form))) `(flymake-tests--call-with-fixture (lambda () ,@body) ,file ,@args)) -(ert-deftest warning-predicate-rx-gcc () - "Test GCC warning via regexp predicate." - (skip-unless (and (executable-find "gcc") (executable-find "make"))) - (flymake-tests--with-flymake - ("test.c" :severity-predicate "^[Ww]arning") - (flymake-goto-next-error) - (should (eq 'flymake-warning - (face-at-point))))) - -(ert-deftest warning-predicate-function-gcc () - "Test GCC warning via function predicate." - (skip-unless (and (executable-find "gcc") (executable-find "make"))) - (flymake-tests--with-flymake - ("test.c" :severity-predicate - (lambda (msg) (string-match "^[Ww]arning" msg))) - (flymake-goto-next-error) - (should (eq 'flymake-warning - (face-at-point))))) - (ert-deftest perl-backend () "Test the perl backend." (skip-unless (executable-find "perl")) @@ -119,7 +100,6 @@ SEVERITY-PREDICATE is used to setup (flymake-goto-prev-error) (should (eq 'flymake-error (face-at-point))))) -(defvar ruby-mode-hook) (ert-deftest ruby-backend () "Test the ruby backend." (skip-unless (executable-find "ruby")) @@ -140,49 +120,6 @@ SEVERITY-PREDICATE is used to setup (flymake-goto-next-error) (should (eq 'flymake-error (face-at-point))))))) -(ert-deftest different-diagnostic-types () - "Test GCC warning via function predicate." - (skip-unless (and (executable-find "gcc") - (not (ert-gcc-is-clang-p)) - (version<= - "5" (string-trim - (shell-command-to-string "gcc -dumpversion"))) - (executable-find "make"))) - (let ((flymake-wrap-around nil)) - (flymake-tests--with-flymake - ("errors-and-warnings.c") - (flymake-goto-next-error) - (should (eq 'flymake-error (face-at-point))) - (flymake-goto-next-error) - (should (eq 'flymake-note (face-at-point))) - (flymake-goto-next-error) - (should (eq 'flymake-warning (face-at-point))) - (flymake-goto-next-error) - (should (eq 'flymake-error (face-at-point))) - (flymake-goto-next-error) - (should (eq 'flymake-warning (face-at-point))) - (flymake-goto-next-error) - (should (eq 'flymake-warning (face-at-point))) - (should-error (flymake-goto-next-error nil nil t))))) - -(ert-deftest included-c-header-files () - "Test inclusion of .h header files." - (skip-unless (and (executable-find "gcc") - (not (ert-gcc-is-clang-p)) - (executable-find "make"))) - (let ((flymake-wrap-around nil)) - (flymake-tests--with-flymake - ("some-problems.h") - (flymake-goto-next-error) - ;; implicit-int was promoted from warning to error in GCC 14 - (should (memq (face-at-point) '(flymake-warning flymake-error))) - (flymake-goto-next-error) - (should (eq 'flymake-error (face-at-point))) - (should-error (flymake-goto-next-error nil nil t))) - (flymake-tests--with-flymake - ("no-problems.h") - (should-error (flymake-goto-next-error nil nil t))))) - (defmacro flymake-tests--assert-set (set should should-not) -- 2.39.5