#!/usr/bin/env python

# Copyright (C) 2016 g10 Code GmbH
#
# This file is part of GPGME.
#
# GPGME is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# GPGME is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General
# Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this program; if not, see <https://www.gnu.org/licenses/>.

from __future__ import absolute_import, print_function, unicode_literals

import gpg
import support

del absolute_import, print_function, unicode_literals

support.assert_gpg_version((2, 1, 14))


# Check expration of keys.  This test assumes three subkeys of which
# 2 are expired; it is used with the "Whisky" test key.  It has
# already been checked that these 3 subkeys are available.
def check_whisky(name, key):
    sub1 = key.subkeys[2]
    sub2 = key.subkeys[3]

    assert sub1.expired and sub2.expired, \
        "Subkey of `{}' not flagged as expired".format(name)
    assert sub1.expires == 1129636886 and sub2.expires == 1129636939, \
        "Subkey of `{}' has wrong expiration date".format(name)


keys = [
    [
        "A0FF4590BB6122EDEF6E3C542D727CC768697734", "6AE6D7EE46A871F8",
        [["Alfa Test", "demo key", "alfa@example.net"],
         ["Alpha Test", "demo key", "alpha@example.net"],
         ["Alice", "demo key", ""]], 1
    ],
    [
        "D695676BDCEDCC2CDD6152BCFE180B1DA9E3B0B2", "5381EA4EE29BA37F",
        [["Bob", "demo key", ""],
         ["Bravo Test", "demo key", "bravo@example.net"]], 1
    ],
    [
        "61EE841A2A27EB983B3B3C26413F4AF31AFDAB6C", "E71E72ACBC43DA60",
        [["Charlie Test", "demo key", "charlie@example.net"]], 1
    ],
    [
        "6560C59C43D031C54D7C588EEBA9F240EB9DC9E6", "06F22880B0C45424",
        [["Delta Test", "demo key", "delta@example.net"]], 1
    ],
    [
        "3531152DE293E26A07F504BC318C1FAEFAEF6D1B", "B5C79E1A7272144D",
        [["Echelon", "demo key",
          ""], ["Echo Test", "demo key", "echo@example.net"],
         ["Eve", "demo key", ""]], 1
    ],
    [
        "56D33268F7FE693FBB594762D4BF57F37372E243", "0A32EE79EE45198E",
        [["Foxtrot Test", "demo key", "foxtrot@example.net"]], 1
    ],
    [
        "C9C07DCC6621B9FB8D071B1D168410A48FC282E6", "247491CC9DCAD354",
        [["Golf Test", "demo key", "golf@example.net"]], 1
    ],
    [
        "9E91CBB11E4D4135583EF90513DB965534C6E3F1", "76E26537D622AD0A",
        [["Hotel Test", "demo key", "hotel@example.net"]], 1
    ],
    [
        "CD538D6CC9FB3D745ECDA5201FE8FC6F04259677", "C1C8EFDE61F76C73",
        [["India Test", "demo key", "india@example.net"]], 1
    ],
    [
        "F8F1EDC73995AB739AD54B380C820C71D2699313", "BD0B108735F8F136",
        [["Juliet Test", "demo key", "juliet@example.net"]], 1
    ],
    [
        "3FD11083779196C2ECDD9594AD1B0FAD43C2D0C7", "86CBB34A9AF64D02",
        [["Kilo Test", "demo key", "kilo@example.net"]], 1
    ],
    [
        "1DDD28CEF714F5B03B8C246937CAB51FB79103F8", "0363B449FE56350C",
        [["Lima Test", "demo key", "lima@example.net"]], 1
    ],
    [
        "2686AA191A278013992C72EBBE794852BE5CF886", "5F600A834F31EAE8",
        [["Mallory", "demo key", ""],
         ["Mike Test", "demo key", "mike@example.net"]], 1
    ],
    [
        "5AB9D6D7BAA1C95B3BAA3D9425B00FD430CEC684", "4C1D63308B70E472",
        [["November Test", "demo key", "november@example.net"]], 1
    ],
    [
        "43929E89F8F79381678CAE515F6356BA6D9732AC", "FF0785712681619F",
        [["Oscar Test", "demo key", "oscar@example.net"]], 1
    ],
    [
        "6FAA9C201E5E26DCBAEC39FD5D15E01D3FF13206", "2764E18263330D9C",
        [["Papa test", "demo key", "papa@example.net"]], 1
    ],
    [
        "A7969DA1C3297AA96D49843F1C67EC133C661C84", "6CDCFC44A029ACF4",
        [["Quebec Test", "demo key", "quebec@example.net"]], 1
    ],
    [
        "38FBE1E4BF6A5E1242C8F6A13BDBEDB1777FBED3", "9FAB805A11D102EA",
        [["Romeo Test", "demo key", "romeo@example.net"]], 1
    ],
    [
        "045B2334ADD69FC221076841A5E67F7FA3AE3EA1", "93B88B0F0F1B50B4",
        [["Sierra Test", "demo key", "sierra@example.net"]], 1
    ],
    [
        "ECAC774F4EEEB0620767044A58CB9A4C85A81F38", "97B60E01101C0402",
        [["Tango Test", "demo key", "tango@example.net"]], 1
    ],
    [
        "0DBCAD3F08843B9557C6C4D4A94C0F75653244D6", "93079B915522BDB9",
        [["Uniform Test", "demo key", "uniform@example.net"]], 1
    ],
    [
        "E8143C489C8D41124DC40D0B47AF4B6961F04784", "04071FB807287134",
        [["Victor Test", "demo key", "victor@example.org"]], 1
    ],
    [
        "E8D6C90B683B0982BD557A99DEF0F7B8EC67DBDE", "D7FBB421FD6E27F6",
        [["Whisky Test", "demo key", "whisky@example.net"]], 3, check_whisky
    ],
    [
        "04C1DF62EFA0EBB00519B06A8979A6C5567FB34A", "5CC6F87F41E408BE",
        [["XRay Test", "demo key", "xray@example.net"]], 1
    ],
    [
        "ED9B316F78644A58D042655A9EEF34CD4B11B25F", "5ADFD255F7B080AD",
        [["Yankee Test", "demo key", "yankee@example.net"]], 1
    ],
    [
        "23FD347A419429BACCD5E72D6BC4778054ACD246", "EF9DC276A172C881",
        [["Zulu Test", "demo key", "zulu@example.net"]], 1
    ],
]


def check_global(key, uids, n_subkeys):
    assert not key.revoked, "Key unexpectedly revoked"
    assert not key.expired, "Key unexpectedly expired"
    assert not key.disabled, "Key unexpectedly disabled"
    assert not key.invalid, "Key unexpectedly invalid"
    assert key.can_sign, "Key unexpectedly unusable for signing"
    assert key.can_certify, "Key unexpectedly unusable for certifications"
    assert not key.secret, "Key unexpectedly secret"
    assert not key.protocol != gpg.constants.protocol.OpenPGP, \
        "Key has unexpected protocol: {}".format(key.protocol)
    assert not key.issuer_serial, \
        "Key unexpectedly carries issuer serial: {}".format(key.issuer_serial)
    assert not key.issuer_name, \
        "Key unexpectedly carries issuer name: {}".format(key.issuer_name)
    assert not key.chain_id, \
        "Key unexpectedly carries chain ID: {}".format(key.chain_id)
    assert key.owner_trust == gpg.constants.validity.UNKNOWN, \
        "Key has unexpected owner trust: {}".format(key.owner_trust)
    assert len(key.subkeys) - 1 == n_subkeys, \
        "Key `{}' has unexpected number of subkeys".format(uids[0][0])


def check_subkey(fpr, which, subkey):
    assert not subkey.revoked, which + " key unexpectedly revoked"
    assert not subkey.expired, which + " key unexpectedly expired"
    assert not subkey.disabled, which + " key unexpectedly disabled"
    assert not subkey.invalid, which + " key unexpectedly invalid"

    if which == "Primary":
        assert not subkey.can_encrypt, \
            which + " key unexpectedly usable for encryption"
        assert subkey.can_sign, \
            which + " key unexpectedly unusable for signing"
        assert subkey.can_certify, \
            which + " key unexpectedly unusable for certifications"
    else:
        assert subkey.can_encrypt, \
            which + " key unexpectedly unusable for encryption"
        assert not subkey.can_sign, \
            which + " key unexpectedly usable for signing"
        assert not subkey.can_certify, \
            which + " key unexpectedly usable for certifications"

    assert not subkey.secret, which + " key unexpectedly secret"
    assert not subkey.is_cardkey, "Public key marked as card key"
    assert not subkey.card_number, "Public key with card number set"
    assert not subkey.pubkey_algo != \
        (gpg.constants.pk.DSA if which == "Primary"
         else gpg.constants.pk.ELG_E), \
         which + " key has unexpected public key algo: {}".format(subkey.
                                                                  pubkey_algo)
    assert subkey.length == 1024, \
        which + " key has unexpected length: {}".format(subkey.length)
    assert fpr.endswith(subkey.keyid), \
        which + " key has unexpected key ID: {}".format(subkey.keyid)
    assert which == "Secondary" or subkey.fpr == fpr, \
        which + " key has unexpected fingerprint: {}".format(subkey.fpr)
    assert not subkey.expires, \
        which + " key unexpectedly expires: {}".format(subkey.expires)


def check_uid(which, ref, uid):
    assert not uid.revoked, which + " user ID unexpectedly revoked"
    assert not uid.invalid, which + " user ID unexpectedly invalid"
    assert uid.validity == gpg.constants.validity.UNKNOWN, \
        which + " user ID has unexpected validity: {}".format(uid.validity)
    assert not uid.signatures, which + " user ID unexpectedly signed"
    assert uid.name == ref[0], \
        "Unexpected name in {} user ID: {!r}".format(which.lower(), uid.name)
    assert uid.comment == ref[1], \
        "Unexpected comment in {} user ID: {!r}".format(which.lower(),
                                                        uid.comment)
    assert uid.email == ref[2], \
        "Unexpected email in {} user ID: {!r}".format(which.lower(), uid.email)


# Export all the data from our keyring...
key_data = gpg.Data()
with gpg.Context() as c:
    c.op_export_keys([c.get_key(k[0]) for k in keys], 0, key_data)

# ... rewind the tape...
key_data.rewind()

# ... and feed it into a keylist in an empty context.
with support.EphemeralContext() as c:
    for i, key in enumerate(c.keylist(source=key_data)):
        try:
            if len(keys[i]) == 4:
                fpr, sec_keyid, uids, n_subkeys = keys[i]
                misc_check = None
            else:
                fpr, sec_keyid, uids, n_subkeys, misc_check = keys[i]
        except IndexError:
            # There are more keys.  We don't check for that.
            break

        # Global key flags.
        check_global(key, uids, n_subkeys)
        check_subkey(fpr, "Primary", key.subkeys[0])
        check_subkey(sec_keyid, "Secondary", key.subkeys[1])

        assert len(key.uids) == len(uids)
        check_uid("First", uids[0], key.uids[0])
        if len(key.uids) > 1:
            check_uid("Second", uids[1], key.uids[1])
        if len(key.uids) > 2:
            check_uid("Third", uids[2], key.uids[2])

        if misc_check:
            misc_check(uids[0][0], key)

    assert len(list(c.keylist())) == 0, "Keys were imported"
