2010-12-11 01:25:25 +00:00
|
|
|
require_relative 'utils'
|
2010-09-13 00:40:10 +00:00
|
|
|
|
|
|
|
if defined?(OpenSSL)
|
|
|
|
|
|
|
|
class OpenSSL::TestBN < Test::Unit::TestCase
|
2010-10-04 00:33:22 +00: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-13 00:40:10 +00:00
|
|
|
def test_prime_p
|
2011-01-29 18:48:24 +00: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-13 00:40:10 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
end
|