passiveldap 0.1

data/tests/tc_attributes.rb

@@ -0,0 +1,87 @@
+require 'test/unit'
+require 'passiveldap' 
+
+require 'tests/user.rb' 
+
+# test attribute changing
+class Test_PassiveLDAP_Attributes < Test::Unit::TestCase
+  # creates a new user 12345 in the directory
+  # tests finding objects, creation of objects, mandatory_attribute insertions and such
+  def setup
+    a = TestUser.new(12345)
+    a.save!
+  end
+
+  # deletes the user 12345 from the directory
+  # tests finding objects, and the destroy method
+  def teardown
+    a = TestUser.new(12345)
+    a.destroy
+  end
+
+  # tests adding a new attribute to a record
+  def test_add_attribute
+    a = TestUser.new(12345)
+    a.mail = "test@mail.com"
+    a.save!
+    b = TestUser.new(12345)
+    assert_equal("test@mail.com",b.mail)
+    assert_raise(PassiveLDAP::AttributeAssignmentError) {
+      b.mail = ["not@good.de"]
+    }
+    assert_raise(PassiveLDAP::AttributeAssignmentError) {
+      b[:nonexistent] = "not@good.de"
+    }
+  end
+
+  # tests deletion of an attribute
+  def test_delete_attribute
+    a = TestUser.new(12345)
+    a.mail = "test@mail.com"
+    a.save!
+    b = TestUser.new(12345)
+    assert_equal("test@mail.com",b.mail)
+    b.mail = nil
+    b.save!
+    c = TestUser.new(12345)
+    assert_nil(c.mail)
+  end
+
+  # tests adding multi_valued attributes
+  def test_add_multi_attribute
+    a = TestUser.new(12345)
+    a.other_mailbox = ["test@mail.com", "othertest@mail.hu"]
+    a.save!
+    b = TestUser.new(12345)
+    assert_equal(["test@mail.com", "othertest@mail.hu"].sort,b.other_mailbox.sort)
+    assert_raise(PassiveLDAP::AttributeAssignmentError) {
+      b.other_mailbox = "not@good.de"
+    }
+  end
+
+  # tests adding values to a multi_valued attribute
+  def test_add_value_to_multi
+    a = TestUser.new(12345)
+    a.other_mailbox = ["test@mail.com"]
+    a.save!
+    b = TestUser.new(12345)
+    assert_equal(["test@mail.com"],b.other_mailbox)
+    b.other_mailbox <<= "othertest@mail.hu"
+    b.save!
+    c = TestUser.new(12345)
+    assert_equal(["test@mail.com", "othertest@mail.hu"].sort,c.other_mailbox.sort)
+  end
+
+  # test deletion of a value of a multi_valued attribute
+  def test_delete_value_from_multi
+    a = TestUser.new(12345)
+    a.other_mailbox = ["test@mail.com", "othertest@mail.hu"]
+    a.save!
+    b = TestUser.new(12345)
+    assert_equal(["test@mail.com", "othertest@mail.hu"].sort,b.other_mailbox.sort)
+    b.other_mailbox = ["othertest@mail.hu"]
+    b.save!
+    c = TestUser.new(12345)
+    assert_equal(["othertest@mail.hu"],c.other_mailbox)
+  end
+end

data/tests/tc_class.rb

@@ -0,0 +1,77 @@
+require 'test/unit'
+require 'passiveldap' 
+
+require 'tests/user.rb' 
+
+# tests class methods
+class Test_PassiveLDAP_Class < Test::Unit::TestCase
+  # tests count method
+  def test_count
+    count = TestUser.count
+    a = TestUser.new(12345)
+    a.save!
+    assert_equal(count+1,TestUser.count)
+    a.destroy
+  end
+
+  # tests column_names method
+  def test_column_names
+    assert_equal(%w{id common_name surname mail other_mailbox}.sort,TestUser.column_names.sort)
+    # test twice because of caching
+    assert_equal(%w{id common_name surname mail other_mailbox}.sort,TestUser.column_names.sort)
+
+    # test columns and columns_hash
+    assert_equal(:integer,TestUser.columns_hash["id"].type)
+    assert_equal(:string,TestUser.columns_hash["common_name"].type)
+    assert_equal(:text,TestUser.columns_hash["other_mailbox"].type)
+  end
+
+  # tests exists? method
+  def test_exists?
+    a = TestUser.new(12345)
+    a.save!
+    assert(TestUser.exists?(12345), "User should exist")
+    assert(TestUser.exists?(Net::LDAP::Filter.eq("uidnumber","12345")), "User should exist")
+    a.destroy
+    assert(!TestUser.exists?(12345), "User shouldn't exist")
+    assert(!TestUser.exists?(Net::LDAP::Filter.eq("uidnumber","12345")), "User shouldn't exist")
+  end
+
+  # tests create
+  def test_create
+    TestUser.create(:id => 12345, :mail => "mail@mail.com")
+    a = TestUser.new(12345)
+    assert_equal("mail@mail.com",a.mail)
+    a.destroy
+    a = TestUser.create([{:id => 12345, :mail => "mail@mail.com"},{:id => 12346, :mail => "other@other.com"}])
+    assert_equal("mail@mail.com",a[0].mail)
+    assert_equal("other@other.com",a[1].mail)
+    a[0] = TestUser.new(12345)
+    a[1] = TestUser.new(12346)
+    assert_equal("mail@mail.com",a[0].mail)
+    assert_equal("other@other.com",a[1].mail)
+    a[0].destroy
+    a[1].destroy
+  end
+
+  # tests delete
+  def test_delete
+    TestUser.create(:id => 12345)
+    assert(TestUser.exists?(12345), "User should exist")
+    TestUser.delete(12345)
+    assert(!TestUser.exists?(12345), "User shouldn't exist")
+  end
+
+  # tests update
+  def test_update
+    TestUser.create([{:id => 12345},{:id=>12346}])
+    a = TestUser.update(12345, :mail => "other@mail.com")
+    assert_equal("other@mail.com",a.mail)
+    a = TestUser.update([12345,12346],[{:mail => "1@2.com"},{:mail => "2@1.com"}])
+    assert_equal("1@2.com",a[0].mail)
+    assert_equal("2@1.com",a[1].mail)
+    a[0].destroy
+    a[1].destroy
+  end
+end
+

data/tests/tc_instance.rb

@@ -0,0 +1,98 @@
+require 'test/unit'
+require 'passiveldap' 
+
+require 'tests/user.rb' 
+
+# tests instance methods
+class Test_PassiveLDAP_Instance < Test::Unit::TestCase
+  # tests distinguished name changeability
+  def test_dn_change
+    a = TestUser.new(12345)
+    a.save!
+    a = TestUser.new(12345)
+    assert_raise(PassiveLDAP::DistinguishedNameException) {
+      a.dn = "otherdn"
+    }
+    a.destroy
+    a = TestUser.new(12345)
+    assert_nothing_raised {
+      a.dn = "otherdn"
+    }
+  end
+
+  # tests old attribute getter method
+  def test_get_old_attribute
+    a = TestUser.new(12345)
+    a.mail = "old@mail.com"
+    a.save!
+    a = TestUser.new(12345)
+    a.mail = "new@mail.hu"
+    assert_equal("old@mail.com",a.get_old_attribute(:mail))
+    assert_equal("new@mail.hu",a.mail)
+    a.destroy
+  end
+
+  # tests attributes method
+  def test_attributes
+    a = TestUser.new(12345)
+    a.destroy unless a.new_record?
+    # cleared the record
+    a = TestUser.new(12345)
+    assert_equal({:id => 12345},a.attributes)
+  end
+
+  # tests attributes= method
+  def test_attributes_set
+    a = TestUser.new(12345)
+    a.attributes= {:mail => "a@b.com", :other_mailbox => ["aa@bb.com"]}
+    assert_equal("a@b.com",a.mail)
+    assert_equal(["aa@bb.com"],a.other_mailbox)
+  end
+
+  # tests reload method
+  def test_reload
+    a = TestUser.new(12345)
+    a.destroy unless a.new_record?
+    a = TestUser.new(12345)
+    a.other_mailbox = [ "one@two.com", "three@four.hu" ]
+    a.mail = "first@second.com"
+    a.save!
+    a = TestUser.new(12345)
+    assert_equal("first@second.com",a.mail)
+    assert_equal([ "one@two.com", "three@four.hu" ].sort,a.other_mailbox.sort)
+    a.other_mailbox = [ "one@two.com" ]
+    a.mail = "second@first.com"
+    assert_equal("second@first.com",a.mail)
+    assert_equal([ "one@two.com"],a.other_mailbox)
+    a.reload(:oldattr => true)
+    assert_equal("second@first.com",a.mail)
+    assert_equal([ "one@two.com"],a.other_mailbox)
+    a.reload()
+    assert_equal("first@second.com",a.mail)
+    assert_equal([ "one@two.com", "three@four.hu" ].sort,a.other_mailbox.sort)
+    a.destroy
+  end
+
+  # tests update_attribute* methods
+  def test_updates
+    a = TestUser.new(12345)
+    a.destroy unless a.new_record?
+    a = TestUser.new(12345)
+    a.save!
+    a.update_attribute(:mail,"mail@mail.com")
+    assert_equal("mail@mail.com",a.mail)
+    b = TestUser.new(12345)
+    assert_equal("mail@mail.com",b.mail)
+    b.destroy
+    a = TestUser.new(12345)
+    a.save!
+    a.update_attributes(:mail => "mail@mail.com", :other_mailbox => ["other@other.com"])
+    assert_equal("mail@mail.com",a.mail)
+    assert_equal(["other@other.com"],a.other_mailbox)
+    b = TestUser.new(12345)
+    assert_equal("mail@mail.com",b.mail)
+    assert_equal(["other@other.com"],b.other_mailbox)
+    b.destroy
+  end
+end
+

data/tests/tc_validate.rb

@@ -0,0 +1,55 @@
+require 'test/unit'
+require 'passiveldap' 
+
+require 'tests/user.rb' 
+
+# tests whether ActiveRecord::Validation integration works
+#
+# also tests some advanced PassiveLDAP mechanism, like array_separators, or
+# type conversions
+class Test_PassiveLDAP_Validation < Test::Unit::TestCase
+  # tests validations
+  def test_validated_user
+    a = ValidatedUser.new(12345)
+    a.destroy unless a.new_record?
+    assert_raise(ActiveRecord::RecordInvalid) {
+      a.save!
+    }
+    a.mail = "abcd"
+    a.description = "Hi!"
+    assert_raise(ActiveRecord::RecordInvalid) {
+      a.save!
+    }
+    a.mail = "ab@bc.de"
+    assert_nothing_raised {
+      a.save!
+    }
+    a.other_mailbox = "one@mail.com\ntwo@mail.com"
+    assert_nothing_raised {
+      a.save!
+    }
+    a.other_mailbox = "notanemail\ntwo@gmail.com"
+    assert_raise(ActiveRecord::RecordInvalid) {
+      a.save!
+    }
+    a.destroy
+  end
+
+  # tests array_separator
+  def test_array_separator
+    a = ValidatedUser.new(12345)
+    a.other_mailbox = "one@mail.com\ntwo@mail.com"
+    assert_equal(["one@mail.com","two@mail.com"].sort,a.get_attribute(:other_mailbox).sort)
+    a.set_attribute(:other_mailbox,["ab@cd.ef","gh@ij.kl"])
+    assert((a.other_mailbox == "ab@cd.ef\ngh@ij.kl") || (a.other_mailbox == "gh@ij.kl\nab@cd.ef"),"Array to string conversion unsuccesful!")
+  end
+
+  def test_type_conversion
+    a = ValidatedUser.new(12345)
+    a.givenname = "Mr. Doe"
+    assert_equal("Doe",a.get_attribute(:givenname))
+    a.set_attribute(:givenname, "Joe")
+    assert_equal("Mr. Joe",a.givenname)
+  end
+end
+

data/tests/ts_all.rb

@@ -0,0 +1,5 @@
+require "test/unit"
+require "tests/tc_attributes"
+require "tests/tc_class"
+require "tests/tc_instance"
+require "tests/tc_validate"

data/tests/user.rb

@@ -0,0 +1,39 @@
+#test user subclass used in tests. Works with ADAM. Change the GUID
+#and recordscope to your server's config
+#
+require 'passiveldap'
+
+class TestUser < PassiveLDAP::Base
+  # change the recordbase to your recordbase!
+  passive_ldap \
+    :id_attribute => :uidnumber,
+    :record_base => "cn=Users,dc=eotvos,dc=elte,dc=hu"
+  passive_ldap_attr \
+    :cn => {:name => :common_name, :default_value => Proc.new {|s| "test_#{s.id}" } },
+    :sn => {:name => :surname},
+    :mail => {},
+    :othermailbox => {:multi_valued => true, :name => :other_mailbox},
+    :dn => { :default_value => Proc.new { |s| "cn=test_#{s.id},#{s.class.settings[:record_base]}" }, :hidden => true },
+    :objectclass => { :default_value => %w{top person organizationalPerson user}, :multi_valued => true, :hidden => true }
+end
+
+class ValidatedUser < PassiveLDAP::Base
+  # change the recordbase to your recordbase!
+  passive_ldap \
+    :id_attribute => :uidnumber,
+    :record_base => "cn=Users,dc=eotvos,dc=elte,dc=hu",
+    :default_array_separator => "\n"
+  passive_ldap_attr \
+    :cn => {:name => :common_name, :default_value => Proc.new {|s| "test_#{s.id}" } },
+    :sn => {:name => :surname},
+    :mail => {},
+    :description => {},
+    :othermailbox => {:multi_valued => true, :name => :other_mailbox},
+    :givenname => { :type => { :from => Proc.new { |s| "Mr. #{s}" }, :to => Proc.new { |s| s[4..-1] } } }, # Adds or cuts the "Mr. " prefix
+    :dn => { :default_value => Proc.new { |s| "cn=test_#{s.id},#{s.class.settings[:record_base]}" }, :hidden => true },
+    :objectclass => { :default_value => %w{top person organizationalPerson user}, :multi_valued => true, :hidden => true }
+
+  validates_presence_of :description
+  validates_format_of :mail, :with => /\A([^@\s]+)@((?:[-a-z0-9]+\.)+[a-z]{2,})\Z/i
+  validates_format_of_each :other_mailbox, :with => /\A(?:(?:[^@;\s]+)@((?:[-a-z0-9]+\.)+[a-z]{2,}))\Z/i, :unless => Proc.new { |s| s.other_mailbox.nil? or s.other_mailbox == "" }
+end

metadata

@@ -0,0 +1,93 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.4
+specification_version: 1
+name: passiveldap
+version: !ruby/object:Gem::Version 
+  version: "0.1"
+date: 2008-04-03 00:00:00 +02:00
+summary: An Active Directory compatible LDAP-ActiveRecord interoperability library.
+require_paths: 
+- lib
+email: mail@sztupy.hu
+homepage: http://passiveldap.sztupy.hu
+rubyforge_project: passiveldap
+description: PassiveLDAP is an LDAP-ActiveRecord interoperability library designed to allow an ActiveRecord model (usually the Users model) to be replaced with an LDAP-based model. Active Directory examples included!
+autorequire: passiveldap
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- "Zsolt Sz. Sztup\xC3\xA1k"
+files: 
+- README
+- LICENCE
+- ChangeLog
+- COPYING
+- lib/passiveldap.rb
+- lib/user.rb
+- tests/scheme_adam.ldif
+- tests/tc_attributes.rb
+- tests/tc_class.rb
+- tests/tc_instance.rb
+- tests/tc_validate.rb
+- tests/ts_all.rb
+- tests/user.rb
+- tests/README
+test_files: 
+- tests/ts_all.rb
+rdoc_options: 
+- --title
+- PassiveLDAP
+- --main
+- README
+- --line-numbers
+extra_rdoc_files: 
+- README
+- ChangeLog
+- LICENCE
+- COPYING
+- tests/README
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: ruby-net-ldap
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.0.4
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: activerecord
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 2.0.2
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: activesupport
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 2.0.2
+    version: