ruby-ldap 0.9.9

data/test/add.rb

@@ -0,0 +1,31 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+conn = LDAP::Conn.new($HOST, $PORT)
+conn.bind('cn=root, dc=localhost, dc=localdomain','secret'){
+  conn.perror("bind")
+  entry1 = [
+    LDAP.mod(LDAP::LDAP_MOD_ADD, 'objectclass', ['top', 'domain']),
+    LDAP.mod(LDAP::LDAP_MOD_ADD, 'o', ['TTSKY.NET']),
+    LDAP.mod(LDAP::LDAP_MOD_ADD, 'dc', ['localhost']),
+  ]
+
+  entry2 = [
+    LDAP.mod(LDAP::LDAP_MOD_ADD, 'objectclass', ['top', 'person']),
+    LDAP.mod(LDAP::LDAP_MOD_ADD, 'cn', ['Takaaki Tateishi']),
+    LDAP.mod(LDAP::LDAP_MOD_ADD | LDAP::LDAP_MOD_BVALUES, 'sn', ['ttate','Tateishi', "zero\000zero"]),
+  ]
+
+  begin
+    conn.add("dc=localhost, dc=localdomain", entry1)
+    conn.add("cn=Takaaki Tateishi, dc=localhost, dc=localdomain", entry2)
+  rescue LDAP::ResultError
+    conn.perror("add")
+    exit
+  end
+  conn.perror("add")
+}

data/test/add2.rb

@@ -0,0 +1,31 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+conn = LDAP::Conn.new($HOST, $PORT)
+conn.bind('cn=root, dc=localhost, dc=localdomain','secret'){
+  conn.perror("bind")
+  entry1 = {
+    'objectclass' => ['top', 'person'],
+    'cn'          => ['Tatsuya Kawai'],
+    'sn'          => ['kawai'],
+  }
+
+  entry2 = {
+    'objectclass' => ['top', 'person'],
+    'cn'          => ['Mio Tanaka'],
+    'sn'          => ['mit','mio'],
+  }
+
+  begin
+    conn.add("cn=#{entry1['cn'][0]}, dc=localhost, dc=localdomain", entry1)
+    conn.add("cn=#{entry2['cn'][0]}, dc=localhost, dc=localdomain", entry2)
+  rescue LDAP::ResultError
+    conn.perror("add")
+    exit
+  end
+  conn.perror("add")
+}

data/test/add3.rb

@@ -0,0 +1,33 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+$KCODE = "UTF8"
+
+conn = LDAP::Conn.new($HOST, $PORT)
+conn.bind('cn=root, dc=localhost, dc=localdomain','secret'){
+  conn.perror("bind")
+  entry1 = {
+    'objectclass' => ['top', 'person'],
+    'cn'          => ['立石 孝彰'],
+    'sn'          => ['孝彰'],
+  }
+
+  entry2 = {
+    'objectclass' => ['top', 'person'],
+    'cn'          => ['たていし たかあき'],
+    'sn'          => ['たていし','たかあき'],
+  }
+
+  begin
+    conn.add("cn=#{entry1['cn'][0]}, dc=localhost, dc=localdomain", entry1)
+    conn.add("cn=#{entry2['cn'][0]}, dc=localhost, dc=localdomain", entry2)
+  rescue LDAP::ResultError
+    conn.perror("add")
+    exit
+  end
+  conn.perror("add")
+}

data/test/bind-ldaps.rb

@@ -0,0 +1,25 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+case LDAP::LDAP_VENDOR_NAME
+when /^OpenLDAP/i
+  # false means we use SSL connection.
+  conn = LDAP::SSLConn.new($HOST, $SSLPORT, false)
+when /^Netscape/i
+  conn = LDAP::SSLConn.new($HOST, $SSLPORT,
+			   false, File.expand_path("~/.netscape/cert7.db"))
+  conn.set_option(LDAP::LDAP_OPT_PROTOCOL_VERSION, 3)
+else
+  raise(RuntimeError, "unknown vendor")
+end
+
+v = conn.get_option(LDAP::LDAP_OPT_PROTOCOL_VERSION)
+printf("protocol version = #{v}\n")
+
+conn.bind{
+  conn.perror("bind")
+}

data/test/bind-sasl.rb

@@ -0,0 +1,17 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+cred = "secret"
+
+conn = LDAP::Conn.new($HOST, $PORT)
+
+v = conn.get_option(LDAP::LDAP_OPT_PROTOCOL_VERSION)
+printf("protocol version = #{v}\n")
+
+conn.sasl_bind(nil, LDAP::LDAP_SASL_SIMPLE, cred){
+  conn.perror("bind")
+}

data/test/bind-ssl.rb

@@ -0,0 +1,25 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+case LDAP::LDAP_VENDOR_NAME
+when /^OpenLDAP/i
+  # true means we use start_tls extension.
+  conn = LDAP::SSLConn.new($HOST, $PORT, true)
+when /^Netscape/i
+  conn = LDAP::SSLConn.new($HOST, $SSLPORT,
+			   false, File.expand_path("~/.netscape/cert7.db"))
+  conn.set_option(LDAP::LDAP_OPT_PROTOCOL_VERSION, 3)
+else
+  raise(RuntimeError, "unknown vendor")
+end
+
+v = conn.get_option(LDAP::LDAP_OPT_PROTOCOL_VERSION)
+printf("protocol version = #{v}\n")
+
+conn.bind{
+  conn.perror("bind")
+}

data/test/bind.rb

@@ -0,0 +1,34 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+conn = LDAP::Conn.new($HOST, $PORT)
+conn.set_option(LDAP::LDAP_OPT_PROTOCOL_VERSION, 3)
+conn.bind{
+  conn.perror("bind")
+  if( defined?(LDAP::LDAP_OPT_HOST_NAME) &&
+      defined?(LDAP::LDAP_OPT_PROTOCOL_VERSION) &&
+      defined?(LDAP::LDAP_OPT_API_INFO) ) # checking for LDAPv3 API
+    host = conn.get_option(LDAP::LDAP_OPT_HOST_NAME)
+    proto = conn.get_option(LDAP::LDAP_OPT_PROTOCOL_VERSION)
+    begin
+      info = conn.get_option(LDAP::LDAP_OPT_API_INFO)
+    rescue LDAP::Error
+      info = nil
+    end
+    print("host = #{host}, proto = #{proto}\n",
+  	  "info.protocol_version = #{info.protocol_version}\n")
+  end
+}
+
+begin
+  conn.bind
+rescue LDAP::InvalidDataError
+  $ok = true
+end
+if( ! $ok )
+  raise(RuntimeError, "multiple bind calls")
+end

data/test/compare.rb

@@ -0,0 +1,17 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+LDAP::Conn.new($HOST, $PORT).bind{|conn|
+  conn.perror("bind")
+  begin
+    conn.compare("cn=Takaaki Tateishi, dc=localhost, dc=localdomain",
+		 "cn", "Takaaki Tateishi")
+  rescue LDAP::ResultError
+    exit(0)
+  end
+  exit(1)
+}

data/test/conf.rb

@@ -0,0 +1,12 @@
+# -*- ruby -*-
+
+require './ldap'
+
+$HOST = 'localhost'
+begin
+  $PORT = ARGV[0].to_i || LDAP::LDAP_PORT
+  $SSLPORT = ARGV[1].to_i || LDAP::LDAPS_PORT
+rescue
+  $PORT = LDAP::LDAP_PORT
+  $SSLPORT = LDAP::LDAPS_PORT
+end

data/test/delete.rb

@@ -0,0 +1,13 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+conn = LDAP::Conn.new($HOST, $PORT)
+conn.bind('cn=root, dc=localhost, dc=localdomain','secret'){
+  conn.perror("bind")
+  conn.delete("cn=Takaaki-Tateishi, dc=localhost, dc=localdomain")
+  conn.perror("delete")
+}

data/test/ext.rb

@@ -0,0 +1,49 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+conn = LDAP::Conn.new($HOST, $PORT)
+conn.bind('cn=root, dc=localhost, dc=localdomain','secret'){
+  conn.perror("bind")
+  begin
+    (1..200).each{|i|
+      entry = {
+	'objectclass' => ['top', 'person'],
+	'cn'          => ["User #{i}"],
+	'sn'          => ["user#{i}"],
+      }
+      conn.add("cn=User #{i}, dc=localhost, dc=localdomain", entry)
+    }
+  rescue LDAP::ResultError
+    conn.perror("add")
+    exit(1)
+  end
+  conn.perror("add")
+
+  if( !defined?(conn.search_ext) )
+    exit(0)
+  end
+
+  users = []
+  begin
+    conn.search_ext("dc=localhost, dc=localdomain",
+		    LDAP::LDAP_SCOPE_SUBTREE,
+		    "(&(objectclass=*)(cn=User*))",
+		    nil, false,    # attrs, attrsonly
+		    nil, nil,      # serverctrls, clientctrls
+		    0, 0,          # sec, usec
+		    100){|e|       # sizelimit
+      users.push(e.vals("sn"))
+    }
+  rescue LDAP::ResultError
+    conn.perror("search_ext")
+    if( conn.err == LDAP::LDAP_SIZELIMIT_EXCEEDED )
+      exit(0)
+    else
+      exit(1)
+    end
+  end
+}

data/test/misc1.rb

@@ -0,0 +1,49 @@
+# -*- ruby -*-
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+def admin_bind
+  @ldap_conn.bind("cn=root, dc=localhost, dc=localdomain", 'secret')
+end
+
+#test method goes here
+
+def add_ou(agency)
+  #creates an organizational unit and places an agency inside
+  begin
+    entry = {
+      'objectclass' => ['organizationalUnit'],
+      'ou'          => [agency]
+    }
+    admin_bind.add("ou=#{entry['ou'][0]}, dc=localhost, dc=localdomain", entry)
+    return(true)
+  rescue LDAP::ResultError => error
+    return(false)
+  end
+end
+
+def delete_ou(agency)
+  #removes an agency organizational unit
+  begin
+    admin_bind.delete("ou=#{agency}, dc=localhost, dc=localdomain")
+    return(true)
+  rescue LDAP::ResultError => error
+    return(false)
+  end
+end
+
+@ldap_conn = LDAP::Conn.new($HOST, $PORT)
+
+p LDAP::VERSION
+begin
+  (1..1000).each do |count|
+    p count
+    p add_ou("an_agency")
+    p delete_ou("an_agency")
+  end
+rescue LDAP::Error
+  exit(0)
+end
+exit(1)

data/test/misc2.rb

@@ -0,0 +1,40 @@
+# -*- ruby -*-
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+def add_ou(agency)
+  #creates an organizational unit and places an agency inside
+  begin
+    entry = {
+      'objectclass' => ['organizationalUnit'],
+      'ou'          => [agency]
+    }
+    @ldap_conn.add("ou=#{entry['ou'][0]}, dc=localhost, dc=localdomain", entry)
+    return(true)
+  rescue LDAP::ResultError => error
+    return(false)
+  end
+end
+
+def delete_ou(agency)
+  #removes an agency organizational unit
+  begin
+    @ldap_conn.delete("ou=#{agency}, dc=localhost, dc=localdomain")
+    return(true)
+  rescue LDAP::ResultError => error
+    return(false)
+  end
+end
+
+@ldap_conn = LDAP::Conn.new($HOST, $PORT)
+@ldap_conn.bind("cn=root, dc=localhost, dc=localdomain", 'secret')
+
+p LDAP::VERSION
+(1..100).each do |count|
+  p count
+  p add_ou("an_agency")
+  p delete_ou("an_agency")
+  GC.start
+end

data/test/modrdn.rb

@@ -0,0 +1,23 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+conn = LDAP::Conn.new($HOST, $PORT)
+
+begin
+  conn.bind('cn=root, dc=localhost, dc=localdomain','seret')
+rescue LDAP::ResultError => e
+  $stderr.print("#{e.inspect} ... expected.\n")
+  conn.bind('cn=root, dc=localhost, dc=localdomain','secret'){
+    conn.perror("bind")
+    conn.modrdn("cn=Takaaki Tateishi, dc=localhost, dc=localdomain",
+		"cn=Takaaki-Tateishi",
+		true)
+    conn.perror("modrdn")
+  }
+  exit(0)
+end
+exit(1)

data/test/search.rb

@@ -0,0 +1,20 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+LDAP::Conn.new($HOST, $PORT).bind{|conn|
+  conn.perror("bind")
+  begin
+    conn.search("dc=localhost, dc=localdomain",
+		LDAP::LDAP_SCOPE_SUBTREE,
+		"(objectclass=*)"){|e|
+      p e.vals("cn")
+      p e.to_hash()
+    }
+  rescue LDAP::ResultError => msg
+    $stderr.print(msg)
+  end
+}

data/test/search2.rb

@@ -0,0 +1,34 @@
+# -*- ruby -*-
+# This file is a part of test scripts of LDAP extension module.
+
+$test = File.dirname($0)
+require "#{$test}/conf"
+require "./ldap"
+
+sorter = proc{|s1,s2|
+  print("sorter: #{s1} <=> #{s2}\n")
+  s1<=>s2
+}
+
+LDAP::Conn.new($HOST, $PORT).bind{|conn|
+  conn.perror("bind")
+  sub = nil
+  conn.search("dc=localhost, dc=localdomain", LDAP::LDAP_SCOPE_SUBTREE,
+	      "(objectclass=*)", nil, false, 0, 0, "sn", sorter){|e|
+    dn = e.dn
+    print("# #{LDAP.dn2ufn(dn)}\n")
+    print("dn: #{dn}\n")
+    e.attrs.each{|attr|
+      print("#{attr}: #{e.vals(attr).join(', ')}\n")
+    }
+    print("\n")
+    sub = e if !sub
+  }
+
+  begin
+    sub.dn
+  rescue LDAP::InvalidEntryError => e
+    $stderr.print("#{e.to_s}.\n",
+		  "This exception is expected.\n")
+  end
+}