defmodule HTTParrot.RedirectHandlerTest do
  use ExUnit.Case
  import :meck
  import HTTParrot.RedirectHandler

  setup do
    new(:cowboy_req)
    on_exit(fn -> unload() end)
    :ok
  end

  test "malformed_request returns true if it's not an integer" do
    expect(:cowboy_req, :binding, [{[:n, :req1], {"a2B=", :req2}}])

    assert malformed_request(:req1, :state) == {true, :req2, :state}

    assert validate(:cowboy_req)
  end

  test "malformed_request returns false if it's an integer" do
    expect(:cowboy_req, :binding, [{[:n, :req1], {"2", :req2}}])

    assert malformed_request(:req1, :state) == {false, :req2, 2}

    assert validate(:cowboy_req)
  end

  test "malformed_request returns 1 if 'n' is less than 1" do
    expect(:cowboy_req, :binding, [{[:n, :req1], {"0", :req2}}])

    assert malformed_request(:req1, :state) == {false, :req2, 1}

    assert validate(:cowboy_req)
  end

  test "moved_permanently returns 'redirect/n-1' if n > 1" do
    expect(:cowboy_req, :uri, 1, {"host", :req2})

    assert moved_permanently(:req1, 4) == {{true, "host/redirect/3"}, :req2, nil}

    assert validate(:cowboy_req)
  end

  test "moved_permanently returns '/get' if n = 1" do
    expect(:cowboy_req, :uri, 1, {"host", :req2})

    assert moved_permanently(:req1, 1) == {{true, "host/get"}, :req2, nil}

    assert validate(:cowboy_req)
  end
end