diff options
Diffstat (limited to 'test/lisp/progmodes/flymake-tests.el')
| -rw-r--r-- | test/lisp/progmodes/flymake-tests.el | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/test/lisp/progmodes/flymake-tests.el b/test/lisp/progmodes/flymake-tests.el index cfa810053ca..c60f9100345 100644 --- a/test/lisp/progmodes/flymake-tests.el +++ b/test/lisp/progmodes/flymake-tests.el @@ -108,24 +108,23 @@ SEVERITY-PREDICATE is used to setup (should (eq 'flymake-warning (face-at-point))))) -(ert-deftest warning-predicate-rx-perl () - "Test perl warning via regular expression predicate." +(ert-deftest perl-backend () + "Test the perl backend" (skip-unless (executable-find "perl")) - (flymake-tests--with-flymake - ("test.pl" :severity-predicate "^Scalar value") + (flymake-tests--with-flymake ("test.pl") (flymake-goto-next-error) - (should (eq 'flymake-warning - (face-at-point))))) + (should (eq 'flymake-warning (face-at-point))) + (flymake-goto-next-error) + (should (eq 'flymake-error (face-at-point))))) -(ert-deftest warning-predicate-function-perl () - "Test perl warning via function predicate." - (skip-unless (executable-find "perl")) - (flymake-tests--with-flymake - ("test.pl" :severity-predicate - (lambda (msg) (string-match "^Scalar value" msg))) +(ert-deftest ruby-backend () + "Test the ruby backend" + (skip-unless (executable-find "ruby")) + (flymake-tests--with-flymake ("test.rb") (flymake-goto-next-error) - (should (eq 'flymake-warning - (face-at-point))))) + (should (eq 'flymake-warning (face-at-point))) + (flymake-goto-next-error) + (should (eq 'flymake-error (face-at-point))))) (ert-deftest different-diagnostic-types () "Test GCC warning via function predicate." |