require 'al-test-utils'

class TestBasePerInstance < Test::Unit::TestCase
  include AlTestUtils

  def setup
    super
    ou_class("ou=Users").new("Sub").save!
  end

  priority :must
  def test_dn_with_sub_base_first
    sub_user = @user_class.new(dn: "uid=user1,ou=Sub,#{@user_class.base}",
                               uid: "user1")
    # Order is important. #base should be called before #dn.
    base = sub_user.base.to_s
    dn = sub_user.dn.to_s
    assert_equal([
                   "ou=Sub,#{@user_class.base}",
                   "uid=user1,ou=Sub,#{@user_class.base}",
                 ],
                 [
                   base,
                   dn,
                 ])
  end

  def test_dn_with_sub_base_last
    sub_user = @user_class.new(uid: "user1",
                               dn: "uid=user1,ou=Sub,#{@user_class.base}")
    # Order is important. #base should be called before #dn.
    base = sub_user.base.to_s
    dn = sub_user.dn.to_s
    assert_equal([
                   "ou=Sub,#{@user_class.base}",
                   "uid=user1,ou=Sub,#{@user_class.base}",
                 ],
                 [
                   base,
                   dn,
                 ])
  end

  priority :normal
  def test_set_base
    guest = @user_class.new("guest")
    guest.base = "ou=Sub"
    assert_equal("uid=guest,ou=Sub,#{@user_class.base}", guest.dn)
  end

  def test_dn_is_base
    entry_class = Class.new(ActiveLdap::Base)
    entry_class.ldap_mapping :prefix => "",
                             :classes => ["top"],
                             :scope => :sub
    entry_class.dn_attribute = nil

    entry = entry_class.root
    assert_equal(entry_class.base, entry.dn)
    assert_equal(entry_class.base, entry.base)
  end

  def test_loose_dn
    user = @user_class.new("test-user , ou = Sub")
    assert_equal("uid=test-user,ou=Sub,#{@user_class.base}", user.dn)

    user = @user_class.new("test-user , ou = Sub, #{@user_class.base}")
    assert_equal("uid=test-user,ou=Sub,#{@user_class.base}", user.dn)
  end

  def test_exists?
    make_temporary_user(:uid => "test-user,ou=Sub") do |user, password|
      assert(@user_class.exists?(user.uid))
      assert(@user_class.exists?("uid=#{user.uid}"))
      assert(@user_class.exists?(user.dn))

      assert(@user_class.exists?("test-user,ou=Sub"))
      assert(@user_class.exists?("uid=test-user,ou=Sub"))
    end
  end

  def test_add
    make_temporary_user(:uid => "test-user,ou=Sub") do |user, password|
      assert_equal("uid=test-user,ou=Sub,#{@user_class.base}", user.dn)
      assert_equal("test-user", user.uid)
    end

    make_temporary_user(:uid => "uid=test-user,ou=Sub") do |user, password|
      assert_equal("uid=test-user,ou=Sub,#{@user_class.base}", user.dn)
      assert_equal("test-user", user.uid)
    end
  end
end