require 'test_helper'

class ContactTest < ActiveSupport::TestCase
  setup do
    @contact = contacts(:john)
  end

  def test_valid_contact_fixture_is_valid
    assert valid_contact.valid?, proc { valid_contact.errors.full_messages }
  end

  def test_invalid_fixture_is_invalid
    assert contacts(:invalid).invalid?
  end

  def test_private_entity
    assert_equal 'priv', Contact::PRIV
  end

  def test_legal_entity
    assert_equal 'org', Contact::ORG
  end

  def test_invalid_without_name
    contact = valid_contact
    contact.name = ''
    assert contact.invalid?
  end

  def test_validates_code_format
    contact = valid_contact.dup
    max_length = 100

    contact.code = '!invalid'
    assert contact.invalid?

    contact.code = 'a' * max_length.next
    assert contact.invalid?

    contact.code = 'foo:bar'
    assert contact.valid?

    contact.code = 'a' * max_length
    assert contact.valid?
  end

  def test_invalid_when_code_is_already_taken
    another_contact = valid_contact
    contact = another_contact.dup

    contact.code = another_contact.code
    assert contact.invalid?

    contact.regenerate_code
    assert contact.valid?
  end

  def test_invalid_without_email
    contact = valid_contact
    contact.email = ''
    assert contact.invalid?
  end

  def test_validates_email_format
    contact = valid_contact

    contact.email = 'invalid'
    assert contact.invalid?

    contact.email = 'valid@registrar.test'
    assert contact.valid?
  end

  def test_invalid_without_phone
    contact = valid_contact
    contact.phone = ''
    assert contact.invalid?
  end

  # https://en.wikipedia.org/wiki/E.164
  def test_validates_phone_format
    contact = valid_contact

    contact.phone = '+.1'
    assert contact.invalid?

    contact.phone = '+123.'
    assert contact.invalid?

    contact.phone = '+1.123456789123456'
    assert contact.invalid?

    contact.phone = '+134.1234567891234'
    assert contact.invalid?

    contact.phone = '+000.1'
    assert contact.invalid?

    contact.phone = '+123.0'
    assert contact.invalid?

    contact.phone = '+1.2'
    assert contact.valid?

    contact.phone = '+123.4'
    assert contact.valid?

    contact.phone = '+1.12345678912345'
    assert contact.valid?

    contact.phone = '+134.123456789123'
    assert contact.valid?
  end

  def test_valid_without_address_when_address_processing_id_disabled
    contact = valid_contact

    contact.street = ''
    contact.city = ''
    contact.zip = ''
    contact.country_code = ''

    assert contact.valid?
  end

  def test_address
    address = Contact::Address.new('new street', '83746', 'new city', 'new state', 'EE')
    @contact.address = address
    @contact.save!
    @contact.reload

    assert_equal 'new street', @contact.street
    assert_equal '83746', @contact.zip
    assert_equal 'new city', @contact.city
    assert_equal 'new state', @contact.state
    assert_equal 'EE', @contact.country_code
    assert_equal address, @contact.address
  end

  def test_returns_registrant_user_direct_contacts
    assert_equal Contact::PRIV, @contact.ident_type
    assert_equal '1234', @contact.ident
    assert_equal 'US', @contact.ident_country_code
    registrant_user = RegistrantUser.new(registrant_ident: 'US-1234')

    registrant_user.stub(:companies, []) do
      assert_equal [@contact], Contact.registrant_user_contacts(registrant_user)
      assert_equal [@contact], Contact.registrant_user_direct_contacts(registrant_user)
    end
  end

  def test_returns_registrant_user_indirect_contacts
    @contact.update!(ident_type: Contact::ORG, ident: '1234321')
    assert_equal 'US', @contact.ident_country_code
    registrant_user = RegistrantUser.new(registrant_ident: 'US-1234321')

    registrant_user.stub(:companies, [OpenStruct.new(registration_number: '1234321')]) do
      assert_equal registrant_user.contacts, Contact.registrant_user_contacts(registrant_user)
    end
  end

  def test_contact_is_a_registrant
    assert_equal @contact.becomes(Registrant), domains(:shop).registrant
    assert @contact.registrant?

    make_contact_free_of_domains_where_it_acts_as_a_registrant(@contact)
    assert_not @contact.registrant?
  end

  def test_linked_when_in_use_as_registrant
    Domain.update_all(registrant_id: @contact.id)
    DomainContact.delete_all

    assert @contact.linked?
  end

  def test_linked_when_in_use_as_domain_contact
    Domain.update_all(registrant_id: contacts(:william).id)
    DomainContact.update_all(contact_id: @contact.id)

    assert @contact.linked?
  end

  def test_unlinked_when_not_in_use_as_either_registrant_or_domain_contact
    contact = unlinked_contact
    assert_not contact.linked?
  end

  def test_managed_when_identity_codes_match
    contact = Contact.new(ident: '1234')
    user = RegistrantUser.new(registrant_ident: 'US-1234')
    assert contact.managed_by?(user)
  end

  def test_unmanaged_when_identity_codes_do_not_match
    contact = Contact.new(ident: '1234')
    user = RegistrantUser.new(registrant_ident: 'US-12345')
    assert_not contact.managed_by?(user)
  end

  def test_deletable_when_not_linked
    contact = unlinked_contact
    assert contact.deletable?
  end

  def test_undeletable_when_linked
    assert @contact.linked?
    assert_not @contact.deletable?
  end

  def test_normalizes_country_code
    contact = Contact.new(country_code: 'us')
    contact.validate
    assert_equal 'US', contact.country_code
  end

  def test_normalizes_ident_country_code
    contact = Contact.new(ident_country_code: 'us')
    contact.validate
    assert_equal 'US', contact.ident_country_code
  end

  def test_generates_code
    contact = Contact.new(registrar: registrars(:bestnames))
    assert_nil contact.code

    contact.generate_code

    assert_not_empty contact.code
  end

  def test_prohibits_code_change
    assert_no_changes -> { @contact.code } do
      @contact.code = 'new'
      @contact.save!
      @contact.reload
    end
  end

  def test_removes_duplicate_statuses
    contact = Contact.new(statuses: %w[ok ok])
    assert_equal %w[ok], contact.statuses
  end

  def test_default_status
    contact = Contact.new
    assert_equal %w[ok], contact.statuses
  end

  def test_whois_gets_updated_after_contact_save
    @contact.name = 'SomeReallyWeirdRandomTestName'
    domain = @contact.registrant_domains.first

    @contact.save!

    assert_equal domain.whois_record.try(:json).try(:[], 'registrant'), @contact.name
  end

  private

  def make_contact_free_of_domains_where_it_acts_as_a_registrant(contact)
    other_contact = contacts(:william)
    assert_not_equal other_contact, contact
    Domain.update_all(registrant_id: other_contact.id)
  end

  def unlinked_contact
    Domain.update_all(registrant_id: contacts(:william).id)
    DomainContact.delete_all
    contacts(:john)
  end

  def valid_contact
    contacts(:john)
  end
end