From d6eb5e86c452bf7e0705071a1e92b6581ff37e6e Mon Sep 17 00:00:00 2001 From: Gracjan Polak Date: Sat, 5 Dec 2015 18:05:38 +0100 Subject: [PATCH] Show expected first --- tests/haskell-indentation-tests.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/haskell-indentation-tests.el b/tests/haskell-indentation-tests.el index a0d44d81f..8c7dc2043 100644 --- a/tests/haskell-indentation-tests.el +++ b/tests/haskell-indentation-tests.el @@ -77,15 +77,15 @@ because it helps increase coverage." (goto-char (point-min)) (forward-line (1- line)) (should - (equal (cons (line-number-at-pos) + (equal current + (cons (line-number-at-pos) (condition-case condition (haskell-indentation-find-indentations) (error ;; for unknown reason Emacs 24.4 ERT does not ;; catch overrun recursion, so we have to ;; catch it here, and throw it again - (signal (car condition) (cdr condition))))) - current)))))) + (signal (car condition) (cdr condition))))))))))) (defmacro hindent-test (name source &rest test-cases) "Define ert test using `haskell-indentation-check'.