From d36e3e8650ecfa7448d54ebaee2ed8a54306e7ab Mon Sep 17 00:00:00 2001 From: Karl Smeltzer Date: Wed, 3 Feb 2016 13:27:39 -0800 Subject: [PATCH 1/2] add indentation tests for constructor and deriving --- tests/haskell-indentation-tests.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/tests/haskell-indentation-tests.el b/tests/haskell-indentation-tests.el index c852a7b6b..e51787b92 100644 --- a/tests/haskell-indentation-tests.el +++ b/tests/haskell-indentation-tests.el @@ -896,6 +896,19 @@ foo x (2 2) (3 2)) +(hindent-test "55 data constructor on separate line" " +data Foo = Bar + | Baz" + (1 0) + (2 9)) + +(hindent-test "55a deriving below aligned data constructors" " +data Foo = Bar + | Baz + deriving (Show)" + (1 0) + (2 9) + (3 9)) (ert-deftest haskell-indentation-ret-indents () (with-temp-switch-to-buffer From 259f38dc287806682947776891a03d947ce9a3ef Mon Sep 17 00:00:00 2001 From: Karl Smeltzer Date: Thu, 4 Feb 2016 09:25:56 -0800 Subject: [PATCH 2/2] Mark new tests as failing --- tests/haskell-indentation-tests.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/haskell-indentation-tests.el b/tests/haskell-indentation-tests.el index e51787b92..eb64bb7bf 100644 --- a/tests/haskell-indentation-tests.el +++ b/tests/haskell-indentation-tests.el @@ -896,13 +896,13 @@ foo x (2 2) (3 2)) -(hindent-test "55 data constructor on separate line" " +(hindent-test "55* data constructor on separate line" " data Foo = Bar | Baz" (1 0) (2 9)) -(hindent-test "55a deriving below aligned data constructors" " +(hindent-test "55a* deriving below aligned data constructors" " data Foo = Bar | Baz deriving (Show)"