defmodule ExChimp.ListTest do
  use ExUnit.Case, async: false
  use ExVCR.Mock, adapter: ExVCR.Adapter.Hackney

  alias ExChimp.List

  setup_all do
    HTTPoison.start()
  end

  @fixtures_dir Path.join([__DIR__, "..", "fixtures"])
  @lists_success_json File.read!(Path.join(@fixtures_dir, "lists.json"))
  @list_members_success_json File.read!(Path.join(@fixtures_dir, "list_members.json"))
  @list_add_member_success_json File.read!(Path.join(@fixtures_dir, "list_member_add.json"))
  @lists_query_string "count=100&fields=lists.id%2Clists.name%2Clists.stats.member_count&offset=0"
  @test_email "urist.mcvankab+3@freddiesjokes.com"

  @list_url "https://us12.api.mailchimp.com/3.0/lists?#{@lists_query_string}"
  @upsert_url "https://us12.api.mailchimp.com/3.0/lists/asdf1234/members/852aaa9532cb36adfb5e9fef7a4206a9"
  @list_members_url "https://us12.api.mailchimp.com/3.0/lists/asdf1234/members"

  test "get lists success" do
    use_cassette :stub,
      url: @list_url,
      method: "get",
      status_code: ["HTTP/1.1", 200, "OK"],
      body: @lists_success_json do
      {:ok, body} = List.all()
      assert body == Map.get(Jason.decode!(@lists_success_json), "lists")
    end
  end

  test "get list members" do
    use_cassette :stub,
      url: @list_members_url,
      method: "get",
      status_code: ["HTTP/1.1", 200, "OK"],
      body: @list_members_success_json do
      {:ok, body} = List.members("asdf1234")
      assert body == Jason.decode!(@list_members_success_json)
    end
  end

  test "add member to list" do
    use_cassette :stub,
      url: @upsert_url,
      method: "put",
      status_code: ["HTTP/1.1", 200, "OK"],
      body: @list_add_member_success_json do
      {:ok, body} = List.add_member("asdf1234", :subscribed, @test_email)

      assert body == Jason.decode!(@list_add_member_success_json)
    end
  end
end