dm-ldap-adapter 0.4.3-java

data/spec/ldap_array_spec.rb

@@ -0,0 +1,119 @@
+$LOAD_PATH << Pathname(__FILE__).dirname.parent.expand_path + 'lib'
+
+require 'ldap/array'
+require 'dm-migrations'
+require 'dm-sqlite-adapter'
+
+class A
+  
+  include DataMapper::Resource
+
+  property :id, Serial
+  property :list,         ::Ldap::LdapArray,    :accessor => :public
+  property :hidden_list,  ::Ldap::LdapArray,    :accessor => :private
+  property :write_list,   ::Ldap::LdapArray,    :reader => :private, :writer => :public
+  property :read_list,    ::Ldap::LdapArray,    :reader => :public, :writer => :private
+end
+
+require 'fileutils'
+FileUtils.mkdir_p("target")
+DataMapper.setup(:default, 'sqlite3:target/test.sqlite3')
+DataMapper.finalize
+DataMapper.auto_migrate!(:default)
+
+describe Ldap::LdapArray do
+  before { @resource = A.new }
+
+  it 'should create new with array' do
+    @resource.list = ["1", "2"]
+    @resource.dirty?.should be_true
+    @resource.save
+    resource = A.first(:id => @resource.id)
+    resource.list.should == ["1", "2"]
+    resource.list.class.should == Ldap::Array
+  end
+
+  it 'should have empty array on new resource' do
+    @resource.list << "1"
+    @resource.dirty?.should be_true
+    @resource.save
+    resource = A.first(:id => @resource.id)
+    resource.list.should == ["1"]
+    resource.list.class.should == Ldap::Array
+  end
+
+  it 'should save after adding an element' do
+    @resource.list = ["1", "2"]
+    @resource.save
+    @resource.list << "4"
+    @resource.save
+    resource = A.first(:id => @resource.id)
+    resource.list.should == ["1", "2", "4"]
+    resource.list.class.should == Ldap::Array
+  end
+
+  it 'should save after changing an element' do
+    @resource.list = ["1", "2"]
+    @resource.save
+    @resource.list[1] = "4"
+    @resource.save
+    resource = A.first(:id => @resource.id)
+    resource.list.should == ["1", "4"]
+    resource.list.class.should == Ldap::Array
+  end
+
+  it 'should save after deleting element from list' do
+    @resource.list = ["1", "2"]
+    @resource.save
+    @resource.list.delete("1")
+    @resource.save
+    resource = A.first(:id => @resource.id)
+    resource.list.should == ["2"]
+    resource.list.class.should == Ldap::Array
+  end
+  
+  context 'when :accessor property is set to :private' do 
+    it 'should not create a write accessor' do
+      @resource.should_not respond_to(:hidden_list=)
+    end
+
+    it 'should not create a reade accessor' do
+      @resource.should_not respond_to(:hidden_list)
+    end  
+  end
+
+  context 'when :accessor property is set to :public' do 
+    it 'should create a write accessor' do
+      @resource.should respond_to(:list=)
+    end
+
+    it 'should create a reade accessor' do
+      @resource.should respond_to(:list)
+    end  
+  end
+  
+  context 'when :writer property is set to :public' do
+    it 'should create a write accessor' do
+      @resource.should respond_to(:write_list=)
+    end
+  end
+
+  context 'when :writer property is set to :private' do
+    it 'should not create a write accessor' do
+      @resource.should_not respond_to(:read_list=)
+    end
+  end
+
+  context 'when :reader property is set to :public' do
+    it 'should create a read accessor' do
+      @resource.should respond_to(:read_list)
+    end
+  end
+
+  context 'when :reader property is set to :private' do
+    it 'should not create a read accessor' do
+      @resource.should_not respond_to(:write_list)
+    end
+  end
+
+end

data/spec/multi_repository_spec.rb

@@ -0,0 +1,79 @@
+$LOAD_PATH << File.dirname(__FILE__)
+require 'spec_helper'
+
+class Order
+  include DataMapper::Resource
+
+  property :id, Serial
+
+  belongs_to :user, :required => false, :repository => :ldap
+end
+
+class Order2
+  include DataMapper::Resource
+
+  def self.repository_name
+    :default
+  end
+
+  property :id, Serial
+
+  belongs_to :user, :required => false
+end
+
+class User
+  def self.repository_name
+    :ldap
+  end
+end
+
+Order.auto_migrate!(:default)
+Order2.auto_migrate!(:default)
+
+describe DataMapper.repository(:ldap).adapter do
+
+  describe 'belongs_to association' do
+
+    before do
+      DataMapper.repository(:ldap) do
+        begin
+          User.all.destroy!
+        @user = User.new(:login => "beige", :name => 'Beige')
+        @user.password = "asd123"
+        @user.save
+        rescue => e
+          puts e.backtrace.join("\n\t")
+          raise e
+        end
+      end
+    end
+
+    after do
+      DataMapper.repository(:ldap) do
+        @user.destroy
+      end
+      @order.destroy
+    end
+
+    it 'should create and load the association' do
+      @order = Order.create
+      @order.user = @user
+      @order.save
+      order = Order.get!(@order.id)
+      DataMapper.repository(:ldap) do
+        order.user.should == @user
+      end
+    end
+    it 'should create and load the association with fixed repositories' do
+      DataMapper.repository(:default) do
+        DataMapper.repository(:ldap) do
+          @order = Order2.create
+          @order.user = @user
+          @order.save
+          order = Order2.get!(@order.id)
+          order.user.should == @user
+        end
+      end
+    end
+  end
+end

data/spec/multi_value_attributes_spec.rb

@@ -0,0 +1,161 @@
+$LOAD_PATH << File.dirname(__FILE__)
+require 'spec_helper'
+
+class TestContact
+  include DataMapper::Resource
+
+  property :id,        Serial, :field => "uidNumber"
+  property :login,     String, :field => "uid", :unique_index => true
+  property :hashed_password,  String, :field => "userPassword", :lazy => true
+  property :name,      String, :field => "cn"
+  property :mail,      ::Ldap::LdapArray
+
+  dn_prefix { |contact| "uid=#{contact.login}"}
+
+  treebase "ou=people"
+
+  ldap_properties do |contact|
+    properties = { :objectclass => ["inetOrgPerson", "posixAccount", "shadowAccount"], :loginshell => "/bin/bash", :gidnumber => "10000" }
+    properties[:sn] = "#{contact.name.sub(/.*\ /, "")}"
+    properties[:givenname] = "#{contact.name.sub(/\ .*/, "")}"
+    properties[:homedirectory] = "/home/#{contact.login}"
+    properties
+  end
+
+  def password=(password)
+    attribute_set(:hashed_password, Ldap::Digest.ssha(password, "--#{Time.now}--#{login}--")) if password
+  end
+end
+
+describe DataMapper.repository(:ldap).adapter.class do
+
+  describe 'LdapArray' do
+
+    before :each do
+      DataMapper.repository(:ldap) do
+        begin
+          TestContact.all(:login.like => "b%").destroy!
+          @contact =  TestContact.new(:login => "beige", :name => 'Beige')
+          @contact.password = "asd123"
+          @contact.save
+        rescue => e
+          puts e.backtrace.join("\n\t")
+          raise e
+        end
+      end
+    end
+
+    it 'should add many values to a LdapArray' do
+       DataMapper.repository(:ldap) do
+        @contact.mail.should == []
+
+        @contact.mail = ["email1"]
+        @contact.save
+      end
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.get!(@contact.id)
+        @contact.mail.should == ["email1"]
+        @contact.mail << "email2"
+        @contact.save
+      end
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.get!(@contact.id)
+        @contact.mail.should == ["email1", "email2"]
+        @contact.mail.delete("email1")
+        @contact.save
+      end
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.get!(@contact.id)
+        @contact.mail.should == ["email2"]
+
+        mail = @contact.mail.dup
+        mail.delete("email2")
+        @contact.mail = mail
+        @contact.save
+      end
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.get!(@contact.id)
+        @contact.mail.should == []
+      end
+    end
+
+    it 'should get an LdapArray on retrieving collection' do
+      DataMapper.repository(:ldap) do
+        @contact.mail.should == []
+
+        @contact.mail = ["email1"]
+        @contact.save
+      end
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.all.detect {|c| c.id = @contact.id}
+        @contact.mail.should == ["email1"]
+
+        @contact.mail = @contact.mail.dup << "email2"
+        @contact.save
+      end
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.all.detect {|c| c.id = @contact.id}
+        @contact.mail.should == ["email1", "email2"]
+
+        mail = @contact.mail.dup
+        mail.delete("email1")
+        @contact.mail = mail
+        @contact.save
+      end
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.all.detect {|c| c.id = @contact.id}
+        @contact.mail.should == ["email2"]
+
+        mail = @contact.mail.dup
+        mail.delete("email2")
+        @contact.mail = mail
+        @contact.save
+      end
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.all.detect {|c| c.id = @contact.id}
+        @contact.mail.should == []
+      end
+    end
+
+    it 'should allow to replace the LdapArray' do
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.get(@contact.id)
+        @contact.mail.should == []
+        @contact.mail = ['foo', 'bar']
+        @contact.save
+      end
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.get(@contact.id)
+        @contact.mail.should == ['foo', 'bar']
+      end
+    end
+    it 'should create resource with the LdapArray' do
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.new(:login => "black", :name => 'Black')
+        @contact.password = "asd123"
+        @contact.mail = ['foo', 'bar']
+        @contact.save
+      end
+      DataMapper.repository(:ldap) do
+        @contact = TestContact.get(@contact.id)
+        @contact.mail.should == ['foo', 'bar']
+      end
+    end
+
+    it 'should be able to search properties with LdapArray' do
+      DataMapper.repository(:ldap) do
+        @contact.mail = ["email1"]
+        @contact.save
+        TestContact.all(:mail => "email1").first.should == @contact
+      end
+    end
+
+    it 'should be able to use multilines with LdapArray' do
+      DataMapper.repository(:ldap) do
+        @contact.mail = ["email1\nmail2\nmail2\nmail4", "email1"]
+        @contact.save
+        TestContact.get(@contact.id).mail.should == ["email1\nmail2\nmail2\nmail4", "email1"]
+      end
+    end
+  end
+end

data/spec/performance_spec.rb.omit

@@ -0,0 +1,67 @@
+$LOAD_PATH << File.dirname(__FILE__)
+require 'spec_helper'
+require 'contact'
+
+require 'dm-core/version'
+p DataMapper::VERSION
+describe DataMapper.repository(:ldap).adapter do
+
+  describe 'sorting of big list' do
+    
+    before do
+      DataMapper.repository(:ldap) do
+        #User.all.destroy!
+        first = 1501
+        len = 1500
+        (first..len).each do |i|
+          p i
+          Contact.create(:id => "login#{i}", :sn => "name#{Kernel.rand}")
+        end
+      end
+    end
+    
+    it 'should load all and sort in timely manner' do
+      expected = nil
+      all = nil
+
+      DataMapper.repository(:ldap) do
+        #puts User.all.collect {|u| u.name }.join("\n")
+        #p User.all.size
+        fields = Contact.properties.defaults.dup.<<(Contact.properties[:mobile])
+        start = Time.new
+        all  = Contact.all(:fields => fields)
+        intermediate = Time.new
+        all.each { |a| a.mobile }
+        finished = Time.new
+
+p intermediate - start
+p finished - intermediate
+p finished - start
+
+      end
+puts
+      DataMapper.repository(:ldap) do
+        #puts User.all.collect {|u| u.name }.join("\n")
+        #p User.all.size
+        fields = Contact.properties.defaults.dup.<<(Contact.properties[:mobile])
+        start = Time.new
+        all  = Contact.all(:order => [:sn], :fields => fields)
+        intermediate = Time.new
+        all.each { |a| a.inspect }
+        finished = Time.new
+        expected = all.dup.sort do |u1, u2|
+          u1.sn.upcase <=> u2.sn.upcase
+        end
+
+p intermediate - start
+p finished - intermediate
+p finished - start
+
+ #       all.should == expected
+      end
+#p all#.collect {|u| u.name }.join("\n")
+
+    end
+  end
+
+end

data/spec/sorting_spec.rb

@@ -0,0 +1,61 @@
+$LOAD_PATH << File.dirname(__FILE__)
+require 'spec_helper'
+
+describe DataMapper.repository(:ldap).adapter do
+
+  describe 'belongs_to association' do
+
+    before do
+      DataMapper.repository(:ldap) do
+        User.all.destroy!
+        @user1 = User.create(:login => "black", :name => 'Black', :mail => ["blackmail@example.com"], :age => 100)
+        @user2 = User.create(:login => "brown", :name => 'brown', :mail => ["brownmail@example.com"], :age => 25)
+        @user3 = User.create(:login => "blue", :name => 'Yellow')
+        @user4 = User.create(:login => "baluh", :name => 'Hmm')
+      end
+    end
+
+    it 'should sort descending without order option' do
+      DataMapper.repository(:ldap) do
+        expected = User.all().sort do |u1, u2|
+          u1.id <=> u2.id
+        end
+        User.all.should == expected
+      end
+    end
+
+    it 'should sort descending with order option' do
+      DataMapper.repository(:ldap) do
+        expected = User.all().sort do |u1, u2|
+          u1.login <=> u2.login
+        end
+        User.all(:order => [:login]).should == expected
+      end
+      DataMapper.repository(:ldap) do
+        expected = User.all().sort do |u1, u2|
+          -1 * (u1.login <=> u2.login)
+        end
+        User.all(:order => [:login]).reverse.should == expected
+      end
+    end
+    it 'should sort case insensitive with order option' do
+      DataMapper.repository(:ldap) do
+        expected = User.all().sort do |u1, u2|
+          u1.name.upcase <=> u2.name.upcase
+        end
+        User.all(:order => [:name]).should == expected
+      end
+    end
+
+    it 'should sort with nil values' do
+      DataMapper.repository(:ldap) do
+        users = User.all(:order => [:name]).select { |u| !u.mail.nil? }
+        users.should == [@user1, @user2]
+      end
+      DataMapper.repository(:ldap) do
+        users = User.all(:order => [:name]).reverse.select { |u| !u.mail.nil? }
+        users.should == [@user2, @user1]
+      end
+    end
+  end
+end