diff --git a/test/elixir-mode-indentation-test.el b/test/elixir-mode-indentation-test.el index c352aa0d..313234fb 100644 --- a/test/elixir-mode-indentation-test.el +++ b/test/elixir-mode-indentation-test.el @@ -376,6 +376,29 @@ else: :bar" else: :bar" ) +(elixir-def-indentation-test indent-if-when-condition-is-a-named-function-on-a-module + (:expected-result :failed :tags '(indentation)) + ;; https://github.com/elixir-lang/emacs-elixir/issues/323 +"defmodule Whois do + def lookup2(domain) do + if Server.for(domain) do + :ok + else + :error + end + end +end" +"defmodule Whois do + def lookup2(domain) do + if Server.for(domain) do + :ok + else + :error + end + end +end" +) + (elixir-def-indentation-test indent-try (:tags '(indentation)) " @@ -1525,6 +1548,27 @@ end" end end") +(elixir-def-indentation-test indent-case-when-condition-is-a-named-function-on-a-module + (:expected-result :failed :tags '(indentation)) + ;; https://github.com/elixir-lang/emacs-elixir/issues/323 +"defmodule Whois do + def lookup1(domain) do + case Server.for(domain) do + {:ok, server} -> server + :error -> {:error, :unsupported} + end + end +end" +"defmodule Whois do + def lookup1(domain) do + case Server.for(domain) do + {:ok, server} -> server + :error -> {:error, :unsupported} + end + end +end" +) + (elixir-def-indentation-test close-map-curly-brackt (:tags '(indentation)) "