dm-ldap-adapter 0.2.0

data/spec/assiociations_ldap_adapter_spec.rb

@@ -0,0 +1,164 @@
+$LOAD_PATH << File.dirname(__FILE__)
+require 'spec_helper'
+
+[
+ :default,
+ :ldap,
+ :memory
+].each do |adapter|
+  
+  describe "A #{DataMapper.repository(adapter).adapter.class.name}" do
+  
+    puts "#{DataMapper.repository(adapter).adapter.class.name}"
+   
+    before do
+
+      DataMapper.repository(adapter) do
+        User.all(:login.like => "b%").destroy!
+        Group.all(:name.like => "test_%").destroy!
+        @user1 = User.create(:login => "black", :name => 'Black', :age => 0)
+        @user2 = User.create(:login => "brown", :name => 'Brown', :age => 25)
+        @user3 = User.create(:login => "blue", :name => 'Blue',  :age => nil)
+ 
+        @group1 = Group.create(:name => "test_root_group")
+        @group2 = Group.create(:name => "test_admin_group")
+      end
+    end
+
+    after do
+      DataMapper.repository(adapter) do
+        @user1.destroy
+        @user2.destroy
+        @user3.destroy
+
+        @group1.destroy
+        @group2.destroy
+      end
+    end
+
+    it 'should successfully save an object' do
+      DataMapper.repository(adapter) do
+        @group1.new_record?.should be_false
+      end
+    end
+
+    it 'should be able to get the object' do
+      DataMapper.repository(adapter) do
+        Group.get(@group1.id).should == @group1
+      end
+    end
+
+    it 'should be able to get all the objects' do
+      DataMapper.repository(adapter) do
+        Group.all(:name.like => "test_%").should == [@group1, @group2]
+      end
+    end
+
+    it 'should be able to have a user' do
+      DataMapper.repository(adapter) do
+        # the next load prevent strange errors
+        @user1 = User.get!(@user1.id)
+        @user1.groups << @group1
+        @user1.save
+        User.get(@user1.id).groups.should == [@group1]
+      end
+    end
+
+    it 'should be able to delete a user' do
+      DataMapper.repository(adapter) do
+        # the next load prevent strange errors
+        @user1 = User.get!(@user1.id)
+        @user1.groups << @group1
+        @user1.save
+        @user1.groups.delete(@group1)
+        @user1.save
+        User.get(@user1.id).groups.should == []
+        @user1.groups << @group1
+        @user1.groups << @group2
+        @user1.save
+        @user1.groups.delete(@group1)
+        @user1.save
+        User.get(@user1.id).groups.should == [@group2]
+      end
+    end
+
+    it 'should be able to have users and remove them again' do
+      DataMapper.repository(adapter) do
+        # the next load prevent strange errors
+        @user1 = User.get!(@user1.id)
+        @user1.groups << @group1
+        @user1.save
+        User.get(@user1.id).groups.should == [@group1]
+        @user1.groups << @group2
+        @user1.save
+        User.get(@user1.id)
+        @user1.groups.should == [@group1, @group2]
+        @user1.groups.delete(@group1)
+        @user1.save
+        User.get(@user1.id).groups.should == [@group2]
+        @user1.groups.delete(@group2)
+        @user1.save
+        User.get(@user1.id).groups.should == []
+      end
+    end
+
+    it 'should be able to have two users' do
+      DataMapper.repository(adapter) do
+        # the next load prevent strange errors
+        @user1 = User.get!(@user1.id)
+        @user1.groups << @group1
+        @user1.groups << @group2
+        @user1.save
+        User.get(@user1.id).groups.should == [@group1, @group2]
+        @user2.groups << @group1
+        @user2.save
+      end
+      DataMapper.repository(adapter) do
+        User.get(@user2.id).groups.should == [@group1]
+        User.get(@user1.id).groups.should == [@group1, @group2]
+      end
+    end
+    
+    it 'should raise an not found error' do
+      lambda do
+        User.get!(4711)
+      end.should raise_error(DataMapper::ObjectNotFoundError)
+    end
+
+    it 'should be able to have two users in one group' do
+      DataMapper.repository(adapter) do
+        @user1 = User.get!(@user1.id)
+        @user1.groups << @group1
+        @user1.groups << @group2
+        @user1.groups.should == [@group1, @group2]
+        @user2.groups << @group1
+      end
+      DataMapper.repository(adapter) do
+        User.get(@user1.id).groups.should == [@group1, @group2]
+        User.get(@user2.id).groups.should == [@group1]
+      end
+    end
+    
+    it 'should be able to delete a user from a group' do
+      DataMapper.repository(adapter) do
+        size = GroupUser.all.size
+        @user1 = User.get!(@user1.id)
+        @user1.groups << @group1
+        @user1.groups << @group2
+        @user2.groups << @group1
+        GroupUser.all.size.should == size + 3
+      end
+      DataMapper.repository(adapter) do
+        @user1 = User.get!(@user1.id)
+        @user1.groups.delete(@group1)
+        User.get(@user1.id).groups.should == [@group2]
+        User.get(@user2.id).groups.should == [@group1]
+        @user2 = User.get!(@user2.id)
+        @user2.groups.delete(@group1)
+        User.get(@user1.id).groups.should == [@group2]
+        User.get(@user2.id).groups.should == []
+      end
+    end
+
+  end
+end

data/spec/authentication_ldap_adapter_spec.rb

@@ -0,0 +1,37 @@
+$LOAD_PATH << File.dirname(__FILE__)
+require 'spec_helper'
+
+describe DataMapper.repository(:ldap).adapter do
+
+  describe 'user authentication' do
+
+    before do
+      DataMapper.repository(:ldap) do
+        @user = User.create(:login => "beige", :name => 'Beige')
+        @user.password = "asd123"
+        @user.save
+      end
+    end
+
+    after do
+      DataMapper.repository(:ldap) do
+        @user.destroy
+      end
+    end
+
+    it 'should successfully authenticate' do
+      DataMapper.repository(:ldap) do
+        @user.authenticate("asd123").should be_true
+        @user.password = "asd"
+        @user.save
+        @user.authenticate("asd").should be_true
+      end
+    end
+
+    it 'should not authenticate' do
+      DataMapper.repository(:ldap) do
+        @user.authenticate("asdasd").should be_false
+      end
+    end
+  end
+end

data/spec/ldap_adapter_spec.rb

@@ -0,0 +1,213 @@
+$LOAD_PATH << File.dirname(__FILE__)
+require 'spec_helper'
+
+[
+ :default,
+ :ldap, 
+ :memory
+].each do |adapter|
+
+  puts "#{DataMapper.repository(adapter).adapter.class.name}"
+  
+  describe "A #{DataMapper.repository(adapter).adapter.class.name}" do
+
+    before do
+      DataMapper.repository(adapter) do
+        @user1 = User.create(:login => "black", :name => 'Black', :age => 0) 
+        @user2 = User.create(:login => "brown", :name => 'Brown', :age => 25)
+        @user3 = User.create(:login => "blue", :name => 'Blue',  :age => nil)
+      end
+    end
+    
+    after do
+      DataMapper.repository(adapter) do
+        @user1.destroy
+        @user2.destroy
+        @user3.destroy
+      end
+    end
+
+    it 'should successfully save an object' do
+      DataMapper.repository(adapter) do
+        @user1.new_record?.should be_false
+        User.first(:login => @user1.login).new_record?.should be_false
+      end
+    end
+
+    it 'should log when trying to create an entity with already used key' do
+      DataMapper.repository(adapter) do
+       #p User.all
+       lambda { User.create(:login => "black", :name => 'Black', :age => 0) }.should raise_error
+      #p User.all
+      end
+    end
+
+    it 'should be able to get all the objects' do
+      DataMapper.repository(adapter) do
+        User.all(:login.like => "b%").should == [@user1, @user2, @user3]
+      end
+    end
+
+    it 'should be able to search for objects with equal value' do
+      DataMapper.repository(adapter) do
+        User.all(:name => "Brown").should == [@user2]
+        User.all(:age => 25).should == [@user2]
+      end
+    end
+
+    it 'should be able to search for objects included in an array of values' do
+      DataMapper.repository(adapter) do
+        User.all(:age => [ 25, 50, 75, 100 ]).should == [@user2]
+      end
+    end
+
+    #it 'should be able to search for objects included in a range of values' do
+    #  User.all(:age => 25..100).should == [@user2]
+    #end
+
+    it 'should be able to search for objects with nil value' do
+      DataMapper.repository(adapter) do
+        User.all(:age => nil, :name.like => "B%").should == [@user3]
+      end
+    end
+
+    if adapter != :default
+      it 'should be able to search for objects with not equal value' do
+        DataMapper.repository(adapter) do
+          User.all(:age.not => 25, :name.like => "B%").should == [@user1, @user3]
+        end
+      end
+      
+      it 'should be able to search for objects not included in an array of values' do
+        DataMapper.repository(adapter) do
+          User.all(:age.not => [ 25, 50, 75, 100 ], :name.like => "B%").should == [@user1, @user3]
+        end
+      end
+    else
+      puts
+      puts "NOTE"
+      puts "=================================================="
+      puts
+      puts "sqlite3 handles NULL different from values, i.e."
+      puts "select * from users where name = 'sd';"
+      puts "and"
+      puts "select * from users where name != 'sd';"
+      puts "gives the same result when all names are NULL !!!"
+      puts
+      puts "=================================================="
+      puts
+    end
+
+    it 'should be able to search for objects with not equal value' do
+      DataMapper.repository(adapter) do
+        User.all(:age.not => nil, :name.like => "B%").should == [@user1, @user2]
+      end
+    end
+
+    #     it 'should be able to search for objects not included in a range of values' do
+    #       User.all(:age.not => 25..100).should == [@user1, @user3]
+    #     end
+
+    #    it 'should be able to search for objects with not nil value' do
+    #      User.all(:age.not => 25, :name.like => "B%").should == [@user1, @user2]
+    #    end
+
+    it 'should be able to search for objects that match value' do
+      DataMapper.repository(adapter) do
+        User.all(:name.like => 'Bl%').should == [@user1, @user3]
+      end
+    end
+
+    #it 'should be able to search for objects with value greater than' do
+    #  User.all(:age.gt => 0).should == [@user2]
+    #end
+
+    #it 'should be able to search for objects with value greater than or equal to' do
+    #  User.all(:age.gte => 0).should == [@user1, @user2]
+    #end
+
+    #it 'should be able to search for objects with value less than' do
+    #  User.all(:age.lt => 1).should == [@user1]
+    #end
+
+    #it 'should be able to search for objects with value less than or equal to' do
+    #  User.all(:age.lte => 0).should == [@user1]
+    #end
+
+    it 'should be able to update an object' do
+      DataMapper.repository(adapter) do
+        @user1 = User.get(@user1.id)
+        @user1.age = 10
+        @user1.save
+        User.get(@user1.id).age.should == 10
+        @user1.age = 70
+        @user1.save
+        User.get(@user1.id).age.should == 70
+      end
+    end
+
+    it 'should be able to update an object with nil' do
+      DataMapper.repository(adapter) do
+        @user1 = User.get(@user1.id)
+        @user1.age = nil
+        @user1.save
+        User.get(@user1.id).age.should be_nil
+        @user1.age = 70
+        @user1.save
+        User.get(@user1.id).age.should == 70
+      end
+    end
+
+    it 'should be able to destroy an object' do
+      DataMapper.repository(adapter) do
+        size = User.all.size
+        @user1.destroy
+        User.all.size.should == size - 1
+      end
+    end
+
+    it 'should work with transactions' do
+      DataMapper.repository(adapter) do
+        User.transaction do
+          user = User.get(@user3.id)
+          user.name = "B new"
+          user.save
+          User.get(@user3.id).name.should == 'B new'
+        end
+      end
+    end
+
+    if DataMapper.repository(adapter).adapter.respond_to? :open_ldap_connection
+    
+    it 'should use one connection for several actions' do
+      DataMapper.repository(adapter) do
+        DataMapper.repository.adapter.open_ldap_connection do
+          hash = DataMapper.repository.adapter.instance_variable_get(:@ldap_connection).current.hash
+          User.all
+          DataMapper.repository.adapter.instance_variable_get(:@ldap_connection).current.hash.should == hash
+          user = User.get(@user3.id)
+          DataMapper.repository.adapter.instance_variable_get(:@ldap_connection).current.hash.should == hash
+          user.name = "another name"
+          user.save
+          DataMapper.repository.adapter.instance_variable_get(:@ldap_connection).current.hash.should == hash
+        end
+        DataMapper.repository.adapter.instance_variable_get(:@ldap_connection).current.hash.should_not == hash
+      end
+    end
+
+    it 'should use new connection for each action' do
+      DataMapper.repository(adapter) do
+        hash = DataMapper.repository.adapter.instance_variable_get(:@ldap_connection).current.hash
+        User.all
+
+        DataMapper.repository.adapter.instance_variable_get(:@ldap_connection).current.hash.should_not == hash
+        user = User.get(@user3.id)
+        DataMapper.repository.adapter.instance_variable_get(:@ldap_connection).current.hash.should_not == hash
+        user.name = "yet another name"
+        user.save
+        DataMapper.repository.adapter.instance_variable_get(:@ldap_connection).current.hash.should_not == hash
+      end
+    end
+end
+  end
+end

data/spec/spec.opts

@@ -0,0 +1 @@
+--colour

data/spec/spec_helper.rb

@@ -0,0 +1,147 @@
+require 'rubygems'
+
+require 'slf4r/ruby_logger'
+gem 'data_objects', "0.9.11"
+require 'pathname'
+$LOAD_PATH << Pathname(__FILE__).dirname.parent.expand_path + 'lib'
+
+require 'ldap_resource'
+#require 'ldap_facade_mock' # uncomment this to use the mock facade
+require 'adapters/ldap_adapter'
+require 'adapters/memory_adapter'
+
+DataMapper.setup(:default, 'sqlite3::memory:')
+DataMapper.setup(:ldap, {
+                   :adapter  => 'ldap',
+                   :host => 'localhost',
+                   :port => '389',
+                   :base => "dc=example,dc=com",
+                   :bind_name => "cn=admin,dc=example,dc=com",
+                   :password => "behappy"   
+})
+DataMapper.setup(:memory, {:adapter  => 'memory'})
+
+class User
+  include DataMapper::Resource
+  property :id,        Integer, :serial => true, :field => "uidnumber"
+  property :login,     String, :field => "uid", :unique_index => true
+  property :hashed_password,  String, :field => "userpassword", :access => :private
+  property :name,      String, :field => "cn"
+  property :mail,      String
+  property :age,       Integer, :field => "postalcode"
+  property :alive,     Boolean, :field => "gecos"
+
+  has n, :roles#, :child_key => [:memberuid]
+
+  has n, :group_users, :child_key => [:memberuid]
+#  has n, :groups, :through => :group_users, :mutable => true#, :child_key => [:gidnumber], :parent_key => [:memberuid]
+
+  def groups
+    groups = GroupUser.all(:memberuid => id).collect{ |gu| gu.group }
+    def groups.user=(user)
+      @user = user
+    end
+    groups.user = self
+    def groups.<<(group)
+      unless member? group
+        GroupUser.create(:memberuid => @user.id, :gidnumber => group.id)
+        super
+      end
+      self
+    end
+    def groups.delete(group)
+      gu = GroupUser.first(:memberuid => @user.id, :gidnumber => group.id)
+      if gu
+        gu.destroy
+        super
+      end
+    end
+    groups
+  end
+
+  dn_prefix { |user| "uid=#{user.login}"}
+
+  treebase "ou=people"
+
+  ldap_properties do |user|
+    properties = { :objectclass => ["inetOrgPerson", "posixAccount", "shadowAccount"], :loginshell => "/bin/bash", :gidnumber => "10000" }
+    properties[:sn] = "#{user.name.sub(/.*\ /, "")}"
+    properties[:givenname] = "#{user.name.sub(/\ .*/, "")}"
+    properties[:homedirectory] = "/home/#{user.login}"
+    properties
+  end
+
+  def password=(password)
+    attribute_set(:hashed_password, Ldap::Digest.ssha(password, "--#{Time.now}--#{login}--")) if password
+  end
+end
+
+class Role
+  include DataMapper::Resource
+  property :id,       Integer, :serial => true, :field => "gidnumber"
+  property :name,     String, :field => "cn"
+  
+#  multivalue_field "memberuid"
+  
+  dn_prefix { |role| "cn=#{role.name}" }
+  
+  treebase "ou=groups"
+  
+  ldap_properties {{ :objectclass => "posixGroup"}}
+
+  belongs_to :user, :child_key => [:memberuid]
+end
+
+class Group
+  include DataMapper::Resource
+  property :id,       Integer, :serial => true, :field => "gidnumber"
+  property :name,     String, :field => "cn"
+  
+  dn_prefix { |group| "cn=#{group.name}" }
+  
+  treebase "ou=groups"
+  
+  ldap_properties {{ :objectclass => "posixGroup"}}
+
+  has n, :users, :child_key => [:gidnumber]
+ # has n, :users, :through => :group_users
+end
+ 
+class GroupUser
+  include DataMapper::Resource
+ 
+  dn_prefix { |group_user| "cn=#{group_user.group.name}" }
+  
+  treebase "ou=groups"
+  
+  multivalue_field :memberuid
+  
+  ldap_properties do |group_user|
+    {:cn=>"#{group_user.group.name}",  :objectclass => "posixGroup"}
+  end
+
+  #property :id, Integer, :serial => true
+  #property :user_id, Integer, :key => true, :field => "memberuid"
+  #property :group_id, Integer, :key => true#, :field => "gidnumber"
+  property :memberuid, Integer, :key => true#, :field => "memberuid"
+  property :gidnumber, Integer, :key => true#, :field => "gidnumber"
+#  belongs_to :group, :child_key => [:gidnumber]
+
+  def group
+    Group.get!(gidnumber)
+  end
+
+  def group=(group)
+    gidnumber = group.id
+  end
+
+  def user
+    User.get!(memberuid)
+  end
+
+  def user=(user)
+    memberuid = user.id
+  end
+#  belongs_to :user, :child_key => [:memberuid]
+end
+DataMapper.auto_migrate!(:default)