65 lines
1.2 KiB
Ruby
65 lines
1.2 KiB
Ruby
# $Id$
|
|
#
|
|
#
|
|
|
|
|
|
$:.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_bignums
|
|
# Some of these values are Fixnums and some are Bignums. Different BER code.
|
|
[
|
|
5,
|
|
50,
|
|
500,
|
|
5000,
|
|
50000,
|
|
500000,
|
|
5000000,
|
|
50000000,
|
|
500000000,
|
|
1000000000,
|
|
2000000000,
|
|
3000000000,
|
|
4000000000,
|
|
5000000000
|
|
].each {|val|
|
|
assert_equal( val, val.to_ber.read_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
|
|
|
|
|