/* t-keylist.c  - regression test

 * Copyright (C) 2000 Werner Koch (dd9jn)

 * Copyright (C) 2001, 2003, 2004 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 Lesser General Public License as

 * published by the Free Software Foundation; either version 2.1 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://gnu.org/licenses/>.

 * SPDX-License-Identifier: LGPL-2.1-or-later

 */

/* We need to include config.h so that we know whether we are building

   with large file system (LFS) support. */

#ifdef HAVE_CONFIG_H

#include <config.h>

#endif

#include <stdlib.h>

#include <stdio.h>

#include <string.h>

#include <gpgme.h>

#include "t-support.h"

struct

{

  const char *fpr;

  int secret;

  long timestamp;

  long expires;

  const char *issuer_serial;

  const char *issuer_name;

  const char *chain_id;

  const char *uid;

  const char *email;

  gpgme_validity_t validity;

  unsigned int key_length;

}

keys[] =

  {

    { "3CF405464F66ED4A7DF45BBDD1E4282E33BDB76E", 1, 1007372198, 1038908198, "00",

      "CN=test cert 1,OU=Aegypten Project,O=g10 Code GmbH,L=D\xc3\xbcsseldorf,C=DE",

      "3CF405464F66ED4A7DF45BBDD1E4282E33BDB76E",

      "CN=test cert 1,OU=Aegypten Project,O=g10 Code GmbH,L=D\xc3\xbcsseldorf,C=DE",

      NULL, GPGME_VALIDITY_ULTIMATE, 1024

    },

    { "DFA56FB5FC41E3A8921F77AD1622EEFD9152A5AD", 0, 909684190, 1009821790, "01",

      "1.2.840.113549.1.9.1=#63657274696679407063612E64666E2E6465,"

      "CN=DFN Top Level Certification Authority,OU=DFN-PCA,"

      "O=Deutsches Forschungsnetz,C=DE",

      "DFA56FB5FC41E3A8921F77AD1622EEFD9152A5AD",

      "1.2.840.113549.1.9.1=#63657274696679407063612E64666E2E6465,"

      "CN=DFN Top Level Certification Authority,OU=DFN-PCA,"

      "O=Deutsches Forschungsnetz,C=DE",

      "<certify@pca.dfn.de>", GPGME_VALIDITY_NEVER, 2048

    },

    { "2C8F3C356AB761CB3674835B792CDA52937F9285", 0, 973183644, 1009735200, "15",

      "1.2.840.113549.1.9.1=#63657274696679407063612E64666E2E6465,"

      "CN=DFN Top Level Certification Authority,OU=DFN-PCA,"

      "O=Deutsches Forschungsnetz,C=DE",

      "DFA56FB5FC41E3A8921F77AD1622EEFD9152A5AD",

      "1.2.840.113549.1.9.1=#63657274696679407063612E64666E2E6465,"

      "CN=DFN Server Certification Authority,OU=DFN-PCA,"

      "O=Deutsches Forschungsnetz,C=DE",

      "<certify@pca.dfn.de>", GPGME_VALIDITY_UNKNOWN, 2048

    },

    { NULL }

  };

int

main (void)

{

  gpgme_error_t err;

  gpgme_ctx_t ctx;

  gpgme_key_t key;

  gpgme_keylist_result_t result;

  int i = 0;

  init_gpgme (GPGME_PROTOCOL_CMS);

  err = gpgme_new (&ctx;;

  fail_if_err (err);

  gpgme_set_protocol (ctx, GPGME_PROTOCOL_CMS);

  err = gpgme_op_keylist_start (ctx, NULL, 0);

  fail_if_err (err);

  while (!(err = gpgme_op_keylist_next (ctx, &key)))

    {

      if (!keys[i].fpr)

	{

	  fprintf (stderr, "More keys returned than expected\n");

	  exit (1);

	}

      if (strcmp (key->subkeys->fpr, keys[i].fpr))

	{

	  fprintf (stderr, "Warning: Skipping unknown key %s\n",

		   key->subkeys->fpr);

	  gpgme_key_unref (key);

	  continue;

	}

      else

	printf ("Checking key %s\n", key->subkeys->fpr);

      /* Global key flags.  */

      if (key->revoked)

	{

	  fprintf (stderr, "Key unexpectedly revoked\n");

	  exit (1);

	}

      if (key->expired)

	{

	  fprintf (stderr, "Key unexpectedly expired\n");

	  exit (1);

	}

      if (key->disabled)

	{

	  fprintf (stderr, "Key unexpectedly disabled\n");

	  exit (1);

	}

      if (key->invalid)

	{

	  fprintf (stderr, "Key unexpectedly invalid\n");

	  exit (1);

	}

      if (key->can_encrypt != keys[i].secret)

	{

	  fprintf (stderr, "Key unexpectedly%s usable for encryption\n",

		   key->can_encrypt ? "" : " not");

	  exit (1);

	}

      if (key->can_sign != keys[i].secret)

	{

	  fprintf (stderr, "Key unexpectedly%s usable for signing\n",

		   key->can_sign ? "" : " not");

	  exit (1);

	}

      if (!key->can_certify)

	{

	  fprintf (stderr, "Key unexpectedly unusable for certifications\n");

	  exit (1);

	}

      if (key->secret != keys[i].secret)

	{

	  fprintf (stderr, "Key unexpectedly%s secret\n",

		   key->secret ? "" : " not");

	  exit (1);

	}

      if (key->protocol != GPGME_PROTOCOL_CMS)

	{

	  fprintf (stderr, "Key has unexpected protocol: %s\n",

		   gpgme_get_protocol_name (key->protocol));

	  exit (1);

	}

      if (!key->issuer_serial)

	{

	  fprintf (stderr, "Key unexpectedly misses issuer serial\n");

	  exit (1);

	}

      if (strcmp (key->issuer_serial, keys[i].issuer_serial))

	{

	  fprintf (stderr, "Key has unexpected issuer serial: %s\n",

		   key->issuer_serial);

	  exit (1);

	}

      if (!key->issuer_name)

	{

	  fprintf (stderr, "Key unexpectedly misses issuer name\n");

	  exit (1);

	}

      if (strcmp (key->issuer_name, keys[i].issuer_name))

	{

	  fprintf (stderr, "Key has unexpected issuer name: %s\n",

		   key->issuer_name);

	  exit (1);

	}

      if (key->chain_id && !keys[i].chain_id)

	{

	  fprintf (stderr, "Key unexpectedly carries chain ID: %s\n",

		   key->chain_id);

	  exit (1);

	}

      if (!key->chain_id && keys[i].chain_id)

	{

	  fprintf (stderr, "Key unexpectedly carries no chain ID\n");

	  exit (1);

	}

      if (key->chain_id && strcmp (key->chain_id, keys[i].chain_id))

	{

	  fprintf (stderr, "Key carries unexpected chain ID: %s\n",

		   key->chain_id);

	  exit (1);

	}

      if (key->owner_trust != GPGME_VALIDITY_UNKNOWN)

	{

	  fprintf (stderr, "Key has unexpected owner trust: %i\n",

		   key->owner_trust);

	  exit (1);

	}

      if (!key->subkeys || key->subkeys->next)

	{

	  fprintf (stderr, "Key has unexpected number of subkeys\n");

	  exit (1);

	}

      /* Primary key.  */

      if (key->subkeys->revoked)

	{

	  fprintf (stderr, "Primary key unexpectedly revoked\n");

	  exit (1);

	}

      if (key->subkeys->expired)

	{

	  fprintf (stderr, "Primary key unexpectedly expired\n");

	  exit (1);

	}

      if (key->subkeys->disabled)

	{

	  fprintf (stderr, "Primary key unexpectedly disabled\n");

	  exit (1);

	}

      if (key->subkeys->invalid)

	{

	  fprintf (stderr, "Primary key unexpectedly invalid\n");

	  exit (1);

	}

      if (key->subkeys->can_encrypt != keys[i].secret)

	{

	  fprintf (stderr, "Key unexpectedly%s usable for encryption\n",

		   key->subkeys->can_encrypt ? "" : " not");

	  exit (1);

	}

      if (key->subkeys->can_sign != keys[i].secret)

	{

	  fprintf (stderr, "Key unexpectedly%s usable for signing\n",

		   key->subkeys->can_sign ? "" : " not");

	  exit (1);

	}

      if (!key->subkeys->can_certify)

	{

	  fprintf (stderr, "Primary key unexpectedly unusable for certifications\n");

	  exit (1);

	}

      if (key->subkeys->secret != keys[i].secret)

	{

	  fprintf (stderr, "Primary Key unexpectedly%s secret\n",

		   key->secret ? "" : " not");

	  exit (1);

	}

      if (key->subkeys->pubkey_algo != GPGME_PK_RSA)

	{

	  fprintf (stderr, "Primary key has unexpected public key algo: %s\n",

		   gpgme_pubkey_algo_name (key->subkeys->pubkey_algo));

	  exit (1);

	}

      if (key->subkeys->length != keys[i].key_length)

	{

	  fprintf (stderr, "Primary key has unexpected length: %i\n",

		   key->subkeys->length);

	  exit (1);

	}

      if (strcmp (key->subkeys->keyid, &keys[i].fpr[40 - 16]))

	{

	  fprintf (stderr, "Primary key has unexpected key ID: %s\n",

		   key->subkeys->keyid);

	  exit (1);

	}

      if (strcmp (key->subkeys->fpr, keys[i].fpr))

	{

	  fprintf (stderr, "Primary key has unexpected fingerprint: %s\n",

		   key->subkeys->fpr);

	  exit (1);

	}

      if (key->subkeys->timestamp != keys[i].timestamp)

	{

	  fprintf (stderr, "Primary key unexpected timestamp: %lu\n",

		   key->subkeys->timestamp);

	  exit (1);

	}

      if (key->subkeys->expires != keys[i].expires)

	{

	  fprintf (stderr, "Primary key unexpectedly expires: %lu\n",

		   key->subkeys->expires);

	  exit (1);

	}

      /* Be tolerant against a missing email (ie, older gpgsm versions).  */

      if (!key->uids || (key->uids->next && !keys[i].email))

	{

	  fprintf (stderr, "Key has unexpected number of user IDs\n");

	  exit (1);

	}

      if (key->uids->revoked)

	{

	  fprintf (stderr, "User ID unexpectedly revoked\n");

	  exit (1);

	}

      if (key->uids->invalid)

	{

	  fprintf (stderr, "User ID unexpectedly invalid\n");

	  exit (1);

	}

      if (key->uids->validity != keys[i].validity)

	{

	  fprintf (stderr, "User ID unexpectedly validity: %i\n",

		   key->uids->validity);

	  exit (1);

	}

      if (key->uids->signatures)

	{

	  fprintf (stderr, "User ID unexpectedly signed\n");

	  exit (1);

	}

      if (!key->uids->name || key->uids->name[0])

	{

	  fprintf (stderr, "Unexpected name in user ID: %s\n",

		   key->uids->name);

	  exit (1);

	}

      if (!key->uids->comment || key->uids->comment[0])

	{

	  fprintf (stderr, "Unexpected comment in user ID: %s\n",

		   key->uids->comment);

	  exit (1);

	}

      if (!key->uids->email || key->uids->email[0])

	{

	  fprintf (stderr, "Unexpected email in user ID: %s\n",

		   key->uids->email);

	  exit (1);

	}

      if (!key->uids->uid || strcmp (key->uids->uid, keys[i].uid))

	{

	  fprintf (stderr, "Unexpected uid in user ID: %s\n",

		   key->uids->uid);

	  exit (1);

	}

      if (key->uids->next && strcmp (key->uids->next->uid, keys[i].email))

	{

	  fprintf (stderr, "Unexpected email in user ID: %s\n",

		   key->uids->next->uid);

	  exit (1);

	}

      if (key->uids->next && strcmp (key->uids->next->uid, keys[i].email))

	{

	  fprintf (stderr, "Unexpected email in user ID: %s\n",

		   key->uids->next->uid);

	  exit (1);

	}

      gpgme_key_unref (key);

      i++;

    }

  if (gpgme_err_code (err) != GPG_ERR_EOF)

    fail_if_err (err);

  err = gpgme_op_keylist_end (ctx);

  fail_if_err (err);

  result = gpgme_op_keylist_result (ctx);

  if (result->truncated)

    {

      fprintf (stderr, "Key listing unexpectedly truncated\n");

      exit (1);

    }

  if (keys[i].fpr)

    {

      fprintf (stderr, "Less keys returned than expected\n");

      exit (1);

    }

  gpgme_release (ctx);

  return 0;

}