defmodule DigOcDomainsTest do
  use ExUnit.Case

  @ip "162.243.118.118"
  @domain "bapi.us"

  @moduletag :external
  
  def domain, do: "#{ System.get_pid }-" <> @domain

  test "list all domains" do
    assert is_list(DigOc.domains!.domains)
  end
  
  test "create, retrieve, and delete a domain" do
    d = DigOc.Domain.new!(domain, @ip)
    assert d.domain.name == domain
    retrieved = DigOc.domain!(domain)
    assert retrieved.domain.name == d.domain.name
    {_, "", headers} = DigOc.Domain.delete(domain)
    assert headers["Status"] == "204 No Content"
  end

  
  test "domain records" do
    d = DigOc.Domain.new!(domain, @ip)
    assert d.domain.name == domain

    assert is_list(DigOc.Domain.records!(domain).domain_records)

    params = %{ name: "testrec", type: "TXT", data: "a test record" }
    new = DigOc.Domain.Record.new!(domain, params)
    
    new_id = new.domain_record.id
    rec = DigOc.Domain.record!(domain, new_id)

    assert rec.domain_record.type == "TXT"
    assert rec.domain_record.data == "\"a test record\""

    DigOc.Domain.Record.update(domain, new_id, "updatedtestrec")
    updated_rec = DigOc.Domain.record!(domain, new_id)
    assert updated_rec.domain_record.name == "updatedtestrec"

    {_, "", headers} = DigOc.Domain.Record.delete(domain, new_id)
    assert headers["Status"] == "204 No Content"

    DigOc.Domain.delete!(domain)
  end



end