From 66a6223919902d4e2af9054efcff01019bf625fb Mon Sep 17 00:00:00 2001 From: vwyu Date: Fri, 4 Dec 2015 15:55:10 +0900 Subject: [PATCH 1/2] Add test for a case expression with multiple paths on their own lines. This is suggested as a test case in #1000. --- tests/haskell-indentation-tests.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/tests/haskell-indentation-tests.el b/tests/haskell-indentation-tests.el index 0bf6bf448..419d98eac 100644 --- a/tests/haskell-indentation-tests.el +++ b/tests/haskell-indentation-tests.el @@ -850,6 +850,17 @@ function = " ((84 0) 4)) +(hindent-test "46 case expression with paths on their own lines" " +fact n = + case n of + 0 -> 1 + _ -> n * fact (n - 1) +" + ((1 0) 0) + ((2 0) 2) + ((3 0) 4) + ((4 0) 4) + ((5 0) 0 2 4 18)) (ert-deftest haskell-indentation-ret-indents () (switch-to-buffer (get-buffer-create "source.hs")) From f724b9233d40b40ef15a30c07d74a49c17b42175 Mon Sep 17 00:00:00 2001 From: vwyu Date: Fri, 4 Dec 2015 17:14:46 +0900 Subject: [PATCH 2/2] Indicate test 46* is failing for the moment. --- tests/haskell-indentation-tests.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/haskell-indentation-tests.el b/tests/haskell-indentation-tests.el index 419d98eac..12e08a90e 100644 --- a/tests/haskell-indentation-tests.el +++ b/tests/haskell-indentation-tests.el @@ -850,7 +850,7 @@ function = " ((84 0) 4)) -(hindent-test "46 case expression with paths on their own lines" " +(hindent-test "46* case expression with paths on their own lines" " fact n = case n of 0 -> 1