fake_cas

defmodule FakeCas.Responses do
  @moduledoc """
  Module with authentcation respose strings
  """

  @doc "Response for an authentication failure"
  @spec failure() :: String.t
  def failure do
    """
    <?xml version="1.0"?>
    <cas:serviceResponse xmlns:cas="http://www.yale.edu/tp/cas">
      <cas:authenticationFailure code="INVALID_SERVICE">
        ticket 'X' is invalid
      </cas:authenticationFailure>
    </cas:serviceResponse>
    """
  end

  @doc "Response for a authentication success"
  @spec success() :: String.t
  def success do
    """
    <?xml version="1.0"?>
    <cas:serviceResponse xmlns:cas="http://www.yale.edu/tp/cas">
      <cas:authenticationSuccess>
        <cas:user>example</cas:user>
        <cas:attributes>
          <cas:type>Customer</cas:type>
          <cas:authorities>[ACME_ADMIN]</cas:authorities>
          <cas:cn>John Smith</cas:cn>
        </cas:attributes>
      </cas:authenticationSuccess>
    </cas:serviceResponse>
    """
  end
end