local lu = require 'luaunit'
local openssl = require 'openssl'
local unpack = unpack or table.unpack

TestIssuer = {}
local function dump(t, i)
  i = i or 0
  for k, v in pairs(t) do
    if type(v) == 'table' then
      print(string.rep('\t', i), k .. '={')
      dump(v, i + 1)
      print(string.rep('\t', i), '}')
    elseif type(v) == 'userdata' then
      local s = tostring(v)
      if s:match('^openssl.asn1_') then
        if type(k) == 'userdata' and tostring(k):match('^openssl.asn1_object') then
          print(string.rep('\t', i), k:sn() .. '=' .. v:data())
        elseif s:match('^openssl.asn1_integer') then
          print(string.rep('\t', i), tostring(k) .. '=' .. tostring(v), v:bn())
        else
          print(string.rep('\t', i), tostring(k) .. '=' .. tostring(v), v:data())
        end
      elseif s:match('^openssl.x509_name') then
        print(string.rep('\t', i), k .. '=' .. v:oneline())
        print(string.rep('\t', i), k .. '={')
        dump(v:info(true), i + 1)
        print(string.rep('\t', i), k .. '=}')
      elseif s:match('^openssl.x509_extension') then
        print(string.rep('\t', i), k .. '={')
        dump(v:info(true), i + 1)
        print(string.rep('\t', i), '}')
      elseif s:match('^openssl.x509_algor') then
        print(string.rep('\t', i), k .. '=' .. v:tostring())
      else
        print(string.rep('\t', i), k .. '=' .. v)
      end
    else
      print(string.rep('\t', i), k .. '=' .. tostring(v))
    end
  end
end

function TestIssuer:test75()
  local certasstring = [[
-----BEGIN CERTIFICATE-----
MIIDATCCArCgAwIBAgITEgAFDVkfna1KLEIuKgAAAAUNWTAIBgYqhQMCAgMwfzEj
MCEGCSqGSIb3DQEJARYUc3VwcG9ydEBjcnlwdG9wcm8ucnUxCzAJBgNVBAYTAlJV
MQ8wDQYDVQQHEwZNb3Njb3cxFzAVBgNVBAoTDkNSWVBUTy1QUk8gTExDMSEwHwYD
VQQDExhDUllQVE8tUFJPIFRlc3QgQ2VudGVyIDIwHhcNMTUwNjEzMTczNjQ4WhcN
MTUwOTEzMTc0NjQ4WjATMREwDwYDVQQDEwhuZ2F0ZS5ydTBjMBwGBiqFAwICEzAS
BgcqhQMCAiQABgcqhQMCAh4BA0MABEBn4s6r6zCgimGfiHg4o0FpNaGv1jGzmqSD
chsnAiqcV8fQ4Y6p/o0x8CZEXAC+hzdf5w2f1VxzbJaGCTQslmNYo4IBbTCCAWkw
EwYDVR0lBAwwCgYIKwYBBQUHAwEwCwYDVR0PBAQDAgQwMB0GA1UdDgQWBBT4x4Lz
iE6QcS3Qnmz03HNroSojbzAfBgNVHSMEGDAWgBQVMXywjRreZtcVnElSlxckuQF6
gzBZBgNVHR8EUjBQME6gTKBKhkhodHRwOi8vdGVzdGNhLmNyeXB0b3Byby5ydS9D
ZXJ0RW5yb2xsL0NSWVBUTy1QUk8lMjBUZXN0JTIwQ2VudGVyJTIwMi5jcmwwgakG
CCsGAQUFBwEBBIGcMIGZMGEGCCsGAQUFBzAChlVodHRwOi8vdGVzdGNhLmNyeXB0
b3Byby5ydS9DZXJ0RW5yb2xsL3Rlc3QtY2EtMjAxNF9DUllQVE8tUFJPJTIwVGVz
dCUyMENlbnRlciUyMDIuY3J0MDQGCCsGAQUFBzABhihodHRwOi8vdGVzdGNhLmNy
eXB0b3Byby5ydS9vY3NwL29jc3Auc3JmMAgGBiqFAwICAwNBAA+nkIdgmqgVr/2J
FlwzT6GFy4Cv0skv+KuUyfrd7kX4jcY/oGwxpxBv5WfNYDnHrVK90bNsXTqlon2M
veFd3yM=
-----END CERTIFICATE-----
]]
  local x = openssl.x509.read(certasstring)
  local t = x:parse()
  assert(type(t) == 'table')
  -- dump(t,0)
end

function TestIssuer:test141()
  local c = openssl.cipher.decrypt_new('aes-128-cbc', "secret_key", "iv")
  local out = c:update("msg")
  local final = c:final()
  assert(out or final)
  c:close()
  collectgarbage("collect")
end

function TestIssuer:test166()
  local pkey = openssl.pkey
  local ec_key = pkey.new(unpack({"EC",  "secp521r1"}))
  local public_key = pkey.get_public(ec_key)

  local key_details = public_key:parse().ec:parse()
  local x, y = key_details.group:affine_coordinates(key_details.pub_key)

  local ec_jwk = {
    kty = "EC",
    crv = "P-521",
    x = openssl.base64(x:totext()),
    y = openssl.base64(y:totext())
  }

  local factor = {
    alg = "EC",
    ec_name = 716,
    x = assert(openssl.base64(ec_jwk.x, false)),
    y = assert(openssl.base64(ec_jwk.y, false))
  }

  local pub = assert(pkey.new(factor))
  assert(pub:export() == public_key:export())
end
