2010-12-10 20:25:25 -05:00
|
|
|
require_relative 'utils'
|
2010-09-12 20:40:10 -04:00
|
|
|
|
|
|
|
if defined?(OpenSSL)
|
|
|
|
|
|
|
|
class OpenSSL::TestBN < Test::Unit::TestCase
|
2010-10-03 20:33:22 -04:00
|
|
|
def test_integer_to_bn
|
|
|
|
assert_equal(999.to_bn, OpenSSL::BN.new(999.to_s(16), 16))
|
|
|
|
assert_equal((2 ** 107 - 1).to_bn, OpenSSL::BN.new((2 ** 107 - 1).to_s(16), 16))
|
|
|
|
end
|
|
|
|
|
2010-09-12 20:40:10 -04:00
|
|
|
def test_prime_p
|
2011-01-29 13:48:24 -05:00
|
|
|
assert_equal(true, OpenSSL::BN.new((2 ** 107 - 1).to_s(16), 16).prime?)
|
|
|
|
assert_equal(true, OpenSSL::BN.new((2 ** 127 - 1).to_s(16), 16).prime?(1))
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_cmp_nil
|
|
|
|
bn = OpenSSL::BN.new('1')
|
|
|
|
assert_equal(false, bn == nil)
|
|
|
|
assert_equal(true, bn != nil)
|
2010-09-12 20:40:10 -04:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
end
|