summaryrefslogtreecommitdiffstats
path: root/vendor/plugins/ruby-net-ldap-0.0.4/tests
diff options
context:
space:
mode:
authorJean-Philippe Lang <jp_lang@yahoo.fr>2012-02-02 19:30:01 +0000
committerJean-Philippe Lang <jp_lang@yahoo.fr>2012-02-02 19:30:01 +0000
commit73f9b825f08b0a197497acffd4437a34ff5e1e8c (patch)
tree2a233ff646b0087f7bf6afc7b4c07a30e1fc5ee9 /vendor/plugins/ruby-net-ldap-0.0.4/tests
parentd02f6a8e32d1e09e5303d36f09788a2d19ac413a (diff)
downloadredmine-73f9b825f08b0a197497acffd4437a34ff5e1e8c.tar.gz
redmine-73f9b825f08b0a197497acffd4437a34ff5e1e8c.zip
Replaced ruby-net-ldap with net-ldap 0.2.2 gem.
git-svn-id: svn+ssh://rubyforge.org/var/svn/redmine/trunk@8751 e93f8b46-1217-0410-a6f0-8f06a7374b81
Diffstat (limited to 'vendor/plugins/ruby-net-ldap-0.0.4/tests')
-rw-r--r--vendor/plugins/ruby-net-ldap-0.0.4/tests/testber.rb42
-rw-r--r--vendor/plugins/ruby-net-ldap-0.0.4/tests/testdata.ldif101
-rw-r--r--vendor/plugins/ruby-net-ldap-0.0.4/tests/testem.rb12
-rw-r--r--vendor/plugins/ruby-net-ldap-0.0.4/tests/testfilter.rb37
-rw-r--r--vendor/plugins/ruby-net-ldap-0.0.4/tests/testldap.rb190
-rw-r--r--vendor/plugins/ruby-net-ldap-0.0.4/tests/testldif.rb69
-rw-r--r--vendor/plugins/ruby-net-ldap-0.0.4/tests/testpsw.rb28
7 files changed, 0 insertions, 479 deletions
diff --git a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testber.rb b/vendor/plugins/ruby-net-ldap-0.0.4/tests/testber.rb
deleted file mode 100644
index 4fe2e3071..000000000
--- a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testber.rb
+++ /dev/null
@@ -1,42 +0,0 @@
-# $Id: testber.rb 57 2006-04-18 00:18:48Z blackhedd $
-#
-#
-
-
-$:.unshift "lib"
-
-require 'net/ldap'
-require 'stringio'
-
-
-class TestBer < Test::Unit::TestCase
-
- def setup
- end
-
- # TODO: Add some much bigger numbers
- # 5000000000 is a Bignum, which hits different code.
- def test_ber_integers
- assert_equal( "\002\001\005", 5.to_ber )
- assert_equal( "\002\002\203t", 500.to_ber )
- assert_equal( "\002\003\203\206P", 50000.to_ber )
- assert_equal( "\002\005\222\320\227\344\000", 5000000000.to_ber )
- end
-
- def test_ber_parsing
- assert_equal( 6, "\002\001\006".read_ber( Net::LDAP::AsnSyntax ))
- assert_equal( "testing", "\004\007testing".read_ber( Net::LDAP::AsnSyntax ))
- end
-
-
- def test_ber_parser_on_ldap_bind_request
- s = StringIO.new "0$\002\001\001`\037\002\001\003\004\rAdministrator\200\vad_is_bogus"
- assert_equal( [1, [3, "Administrator", "ad_is_bogus"]], s.read_ber( Net::LDAP::AsnSyntax ))
- end
-
-
-
-
-end
-
-
diff --git a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testdata.ldif b/vendor/plugins/ruby-net-ldap-0.0.4/tests/testdata.ldif
deleted file mode 100644
index eb5610d5f..000000000
--- a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testdata.ldif
+++ /dev/null
@@ -1,101 +0,0 @@
-# $Id: testdata.ldif 50 2006-04-17 17:57:33Z blackhedd $
-#
-# This is test-data for an LDAP server in LDIF format.
-#
-dn: dc=bayshorenetworks,dc=com
-objectClass: dcObject
-objectClass: organization
-o: Bayshore Networks LLC
-dc: bayshorenetworks
-
-dn: cn=Manager,dc=bayshorenetworks,dc=com
-objectClass: organizationalrole
-cn: Manager
-
-dn: ou=people,dc=bayshorenetworks,dc=com
-objectClass: organizationalunit
-ou: people
-
-dn: ou=privileges,dc=bayshorenetworks,dc=com
-objectClass: organizationalunit
-ou: privileges
-
-dn: ou=roles,dc=bayshorenetworks,dc=com
-objectClass: organizationalunit
-ou: roles
-
-dn: ou=office,dc=bayshorenetworks,dc=com
-objectClass: organizationalunit
-ou: office
-
-dn: mail=nogoodnik@steamheat.net,ou=people,dc=bayshorenetworks,dc=com
-cn: Bob Fosse
-mail: nogoodnik@steamheat.net
-sn: Fosse
-ou: people
-objectClass: top
-objectClass: inetorgperson
-objectClass: authorizedperson
-hasAccessRole: uniqueIdentifier=engineer,ou=roles
-hasAccessRole: uniqueIdentifier=ldapadmin,ou=roles
-hasAccessRole: uniqueIdentifier=ldapsuperadmin,ou=roles
-hasAccessRole: uniqueIdentifier=ogilvy_elephant_user,ou=roles
-hasAccessRole: uniqueIdentifier=ogilvy_eagle_user,ou=roles
-hasAccessRole: uniqueIdentifier=greenplug_user,ou=roles
-hasAccessRole: uniqueIdentifier=brandplace_logging_user,ou=roles
-hasAccessRole: uniqueIdentifier=brandplace_report_user,ou=roles
-hasAccessRole: uniqueIdentifier=workorder_user,ou=roles
-hasAccessRole: uniqueIdentifier=bayshore_eagle_user,ou=roles
-hasAccessRole: uniqueIdentifier=bayshore_eagle_superuser,ou=roles
-hasAccessRole: uniqueIdentifier=kledaras_user,ou=roles
-
-dn: mail=elephant@steamheat.net,ou=people,dc=bayshorenetworks,dc=com
-cn: Gwen Verdon
-mail: elephant@steamheat.net
-sn: Verdon
-ou: people
-objectClass: top
-objectClass: inetorgperson
-objectClass: authorizedperson
-hasAccessRole: uniqueIdentifier=brandplace_report_user,ou=roles
-hasAccessRole: uniqueIdentifier=engineer,ou=roles
-hasAccessRole: uniqueIdentifier=ogilvy_elephant_user,ou=roles
-hasAccessRole: uniqueIdentifier=ldapsuperadmin,ou=roles
-hasAccessRole: uniqueIdentifier=ldapadmin,ou=roles
-
-dn: uniqueIdentifier=engineering,ou=privileges,dc=bayshorenetworks,dc=com
-uniqueIdentifier: engineering
-ou: privileges
-objectClass: accessPrivilege
-
-dn: uniqueIdentifier=engineer,ou=roles,dc=bayshorenetworks,dc=com
-uniqueIdentifier: engineer
-ou: roles
-objectClass: accessRole
-hasAccessPrivilege: uniqueIdentifier=engineering,ou=privileges
-
-dn: uniqueIdentifier=ldapadmin,ou=roles,dc=bayshorenetworks,dc=com
-uniqueIdentifier: ldapadmin
-ou: roles
-objectClass: accessRole
-
-dn: uniqueIdentifier=ldapsuperadmin,ou=roles,dc=bayshorenetworks,dc=com
-uniqueIdentifier: ldapsuperadmin
-ou: roles
-objectClass: accessRole
-
-dn: mail=catperson@steamheat.net,ou=people,dc=bayshorenetworks,dc=com
-cn: Sid Sorokin
-mail: catperson@steamheat.net
-sn: Sorokin
-ou: people
-objectClass: top
-objectClass: inetorgperson
-objectClass: authorizedperson
-hasAccessRole: uniqueIdentifier=engineer,ou=roles
-hasAccessRole: uniqueIdentifier=ogilvy_elephant_user,ou=roles
-hasAccessRole: uniqueIdentifier=ldapsuperadmin,ou=roles
-hasAccessRole: uniqueIdentifier=ogilvy_eagle_user,ou=roles
-hasAccessRole: uniqueIdentifier=greenplug_user,ou=roles
-hasAccessRole: uniqueIdentifier=workorder_user,ou=roles
-
diff --git a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testem.rb b/vendor/plugins/ruby-net-ldap-0.0.4/tests/testem.rb
deleted file mode 100644
index 46b4909cb..000000000
--- a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testem.rb
+++ /dev/null
@@ -1,12 +0,0 @@
-# $Id: testem.rb 121 2006-05-15 18:36:24Z blackhedd $
-#
-#
-
-require 'test/unit'
-require 'tests/testber'
-require 'tests/testldif'
-require 'tests/testldap'
-require 'tests/testpsw'
-require 'tests/testfilter'
-
-
diff --git a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testfilter.rb b/vendor/plugins/ruby-net-ldap-0.0.4/tests/testfilter.rb
deleted file mode 100644
index b8fb40996..000000000
--- a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testfilter.rb
+++ /dev/null
@@ -1,37 +0,0 @@
-# $Id: testfilter.rb 122 2006-05-15 20:03:56Z blackhedd $
-#
-#
-
-require 'test/unit'
-
-$:.unshift "lib"
-
-require 'net/ldap'
-
-
-class TestFilter < Test::Unit::TestCase
-
- def setup
- end
-
-
- def teardown
- end
-
- def test_rfc_2254
- p Net::LDAP::Filter.from_rfc2254( " ( uid=george* ) " )
- p Net::LDAP::Filter.from_rfc2254( "uid!=george*" )
- p Net::LDAP::Filter.from_rfc2254( "uid<george*" )
- p Net::LDAP::Filter.from_rfc2254( "uid <= george*" )
- p Net::LDAP::Filter.from_rfc2254( "uid>george*" )
- p Net::LDAP::Filter.from_rfc2254( "uid>=george*" )
- p Net::LDAP::Filter.from_rfc2254( "uid!=george*" )
-
- p Net::LDAP::Filter.from_rfc2254( "(& (uid!=george* ) (mail=*))" )
- p Net::LDAP::Filter.from_rfc2254( "(| (uid!=george* ) (mail=*))" )
- p Net::LDAP::Filter.from_rfc2254( "(! (mail=*))" )
- end
-
-
-end
-
diff --git a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testldap.rb b/vendor/plugins/ruby-net-ldap-0.0.4/tests/testldap.rb
deleted file mode 100644
index bb70a0b20..000000000
--- a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testldap.rb
+++ /dev/null
@@ -1,190 +0,0 @@
-# $Id: testldap.rb 65 2006-04-23 01:17:49Z blackhedd $
-#
-#
-
-
-$:.unshift "lib"
-
-require 'test/unit'
-
-require 'net/ldap'
-require 'stringio'
-
-
-class TestLdapClient < Test::Unit::TestCase
-
- # TODO: these tests crash and burn if the associated
- # LDAP testserver isn't up and running.
- # We rely on being able to read a file with test data
- # in LDIF format.
- # TODO, WARNING: for the moment, this data is in a file
- # whose name and location are HARDCODED into the
- # instance method load_test_data.
-
- def setup
- @host = "127.0.0.1"
- @port = 3890
- @auth = {
- :method => :simple,
- :username => "cn=bigshot,dc=bayshorenetworks,dc=com",
- :password => "opensesame"
- }
-
- @ldif = load_test_data
- end
-
-
-
- # Get some test data which will be used to validate
- # the responses from the test LDAP server we will
- # connect to.
- # TODO, Bogus: we are HARDCODING the location of the file for now.
- #
- def load_test_data
- ary = File.readlines( "tests/testdata.ldif" )
- hash = {}
- while line = ary.shift and line.chomp!
- if line =~ /^dn:[\s]*/i
- dn = $'
- hash[dn] = {}
- while attr = ary.shift and attr.chomp! and attr =~ /^([\w]+)[\s]*:[\s]*/
- hash[dn][$1.downcase.intern] ||= []
- hash[dn][$1.downcase.intern] << $'
- end
- end
- end
- hash
- end
-
-
-
- # Binding tests.
- # Need tests for all kinds of network failures and incorrect auth.
- # TODO: Implement a class-level timeout for operations like bind.
- # Search has a timeout defined at the protocol level, other ops do not.
- # TODO, use constants for the LDAP result codes, rather than hardcoding them.
- def test_bind
- ldap = Net::LDAP.new :host => @host, :port => @port, :auth => @auth
- assert_equal( true, ldap.bind )
- assert_equal( 0, ldap.get_operation_result.code )
- assert_equal( "Success", ldap.get_operation_result.message )
-
- bad_username = @auth.merge( {:username => "cn=badguy,dc=imposters,dc=com"} )
- ldap = Net::LDAP.new :host => @host, :port => @port, :auth => bad_username
- assert_equal( false, ldap.bind )
- assert_equal( 48, ldap.get_operation_result.code )
- assert_equal( "Inappropriate Authentication", ldap.get_operation_result.message )
-
- bad_password = @auth.merge( {:password => "cornhusk"} )
- ldap = Net::LDAP.new :host => @host, :port => @port, :auth => bad_password
- assert_equal( false, ldap.bind )
- assert_equal( 49, ldap.get_operation_result.code )
- assert_equal( "Invalid Credentials", ldap.get_operation_result.message )
- end
-
-
-
- def test_search
- ldap = Net::LDAP.new :host => @host, :port => @port, :auth => @auth
-
- search = {:base => "dc=smalldomain,dc=com"}
- assert_equal( false, ldap.search( search ))
- assert_equal( 32, ldap.get_operation_result.code )
-
- search = {:base => "dc=bayshorenetworks,dc=com"}
- assert_equal( true, ldap.search( search ))
- assert_equal( 0, ldap.get_operation_result.code )
-
- ldap.search( search ) {|res|
- assert_equal( res, @ldif )
- }
- end
-
-
-
-
- # This is a helper routine for test_search_attributes.
- def internal_test_search_attributes attrs_to_search
- ldap = Net::LDAP.new :host => @host, :port => @port, :auth => @auth
- assert( ldap.bind )
-
- search = {
- :base => "dc=bayshorenetworks,dc=com",
- :attributes => attrs_to_search
- }
-
- ldif = @ldif
- ldif.each {|dn,entry|
- entry.delete_if {|attr,value|
- ! attrs_to_search.include?(attr)
- }
- }
-
- assert_equal( true, ldap.search( search ))
- ldap.search( search ) {|res|
- res_keys = res.keys.sort
- ldif_keys = ldif.keys.sort
- assert( res_keys, ldif_keys )
- res.keys.each {|rk|
- assert( res[rk], ldif[rk] )
- }
- }
- end
-
-
- def test_search_attributes
- internal_test_search_attributes [:mail]
- internal_test_search_attributes [:cn]
- internal_test_search_attributes [:ou]
- internal_test_search_attributes [:hasaccessprivilege]
- internal_test_search_attributes ["mail"]
- internal_test_search_attributes ["cn"]
- internal_test_search_attributes ["ou"]
- internal_test_search_attributes ["hasaccessrole"]
-
- internal_test_search_attributes [:mail, :cn, :ou, :hasaccessrole]
- internal_test_search_attributes [:mail, "cn", :ou, "hasaccessrole"]
- end
-
-
- def test_search_filters
- ldap = Net::LDAP.new :host => @host, :port => @port, :auth => @auth
- search = {
- :base => "dc=bayshorenetworks,dc=com",
- :filter => Net::LDAP::Filter.eq( "sn", "Fosse" )
- }
-
- ldap.search( search ) {|res|
- p res
- }
- end
-
-
-
- def test_open
- ldap = Net::LDAP.new :host => @host, :port => @port, :auth => @auth
- ldap.open {|ldap|
- 10.times {
- rc = ldap.search( :base => "dc=bayshorenetworks,dc=com" )
- assert_equal( true, rc )
- }
- }
- end
-
-
- def test_ldap_open
- Net::LDAP.open( :host => @host, :port => @port, :auth => @auth ) {|ldap|
- 10.times {
- rc = ldap.search( :base => "dc=bayshorenetworks,dc=com" )
- assert_equal( true, rc )
- }
- }
- end
-
-
-
-
-
-end
-
-
diff --git a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testldif.rb b/vendor/plugins/ruby-net-ldap-0.0.4/tests/testldif.rb
deleted file mode 100644
index 73eca746f..000000000
--- a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testldif.rb
+++ /dev/null
@@ -1,69 +0,0 @@
-# $Id: testldif.rb 61 2006-04-18 20:55:55Z blackhedd $
-#
-#
-
-
-$:.unshift "lib"
-
-require 'test/unit'
-
-require 'net/ldap'
-require 'net/ldif'
-
-require 'sha1'
-require 'base64'
-
-class TestLdif < Test::Unit::TestCase
-
- TestLdifFilename = "tests/testdata.ldif"
-
- def test_empty_ldif
- ds = Net::LDAP::Dataset::read_ldif( StringIO.new )
- assert_equal( true, ds.empty? )
- end
-
- def test_ldif_with_comments
- str = ["# Hello from LDIF-land", "# This is an unterminated comment"]
- io = StringIO.new( str[0] + "\r\n" + str[1] )
- ds = Net::LDAP::Dataset::read_ldif( io )
- assert_equal( str, ds.comments )
- end
-
- def test_ldif_with_password
- psw = "goldbricks"
- hashed_psw = "{SHA}" + Base64::encode64( SHA1.new(psw).digest ).chomp
-
- ldif_encoded = Base64::encode64( hashed_psw ).chomp
- ds = Net::LDAP::Dataset::read_ldif( StringIO.new( "dn: Goldbrick\r\nuserPassword:: #{ldif_encoded}\r\n\r\n" ))
- recovered_psw = ds["Goldbrick"][:userpassword].shift
- assert_equal( hashed_psw, recovered_psw )
- end
-
- def test_ldif_with_continuation_lines
- ds = Net::LDAP::Dataset::read_ldif( StringIO.new( "dn: abcdefg\r\n hijklmn\r\n\r\n" ))
- assert_equal( true, ds.has_key?( "abcdefg hijklmn" ))
- end
-
- # TODO, INADEQUATE. We need some more tests
- # to verify the content.
- def test_ldif
- File.open( TestLdifFilename, "r" ) {|f|
- ds = Net::LDAP::Dataset::read_ldif( f )
- assert_equal( 13, ds.length )
- }
- end
-
- # TODO, need some tests.
- # Must test folded lines and base64-encoded lines as well as normal ones.
- def test_to_ldif
- File.open( TestLdifFilename, "r" ) {|f|
- ds = Net::LDAP::Dataset::read_ldif( f )
- ds.to_ldif
- assert_equal( true, false ) # REMOVE WHEN WE HAVE SOME TESTS HERE.
- }
- end
-
-
-end
-
-
diff --git a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testpsw.rb b/vendor/plugins/ruby-net-ldap-0.0.4/tests/testpsw.rb
deleted file mode 100644
index 6b1aa08be..000000000
--- a/vendor/plugins/ruby-net-ldap-0.0.4/tests/testpsw.rb
+++ /dev/null
@@ -1,28 +0,0 @@
-# $Id: testpsw.rb 72 2006-04-24 21:58:14Z blackhedd $
-#
-#
-
-
-$:.unshift "lib"
-
-require 'net/ldap'
-require 'stringio'
-
-
-class TestPassword < Test::Unit::TestCase
-
- def setup
- end
-
-
- def test_psw
- assert_equal( "{MD5}xq8jwrcfibi0sZdZYNkSng==", Net::LDAP::Password.generate( :md5, "cashflow" ))
- assert_equal( "{SHA}YE4eGkN4BvwNN1f5R7CZz0kFn14=", Net::LDAP::Password.generate( :sha, "cashflow" ))
- end
-
-
-
-
-end
-
-