diff --git a/src/include/taler_testing_lib.h b/src/include/taler_testing_lib.h
index 70643ab14..05ace6390 100644
--- a/src/include/taler_testing_lib.h
+++ b/src/include/taler_testing_lib.h
@@ -2225,6 +2225,24 @@ TALER_TESTING_cmd_check_kyc_get (const char *label,
unsigned int expected_response_code);
+/**
+ * Create a KYC proof request.
+ *
+ * @param label command label.
+ * @param payment_target_reference command with a payment target to query
+ * @param code OAuth 2.0 code to use
+ * @param state OAuth 2.0 state to use
+ * @param expected_response_code expected HTTP status
+ * @return the command
+ */
+struct TALER_TESTING_Command
+TALER_TESTING_cmd_proof_kyc (const char *label,
+ const char *payment_target_reference,
+ const char *code,
+ const char *state,
+ unsigned int expected_response_code);
+
+
/* *** Generic trait logic for implementing traits ********* */
@@ -2396,6 +2414,7 @@ TALER_TESTING_get_trait (const struct TALER_TESTING_Trait *traits,
op (taler_uri, const char *) \
op (payto_uri, const char *) \
op (kyc_url, const char *) \
+ op (web_url, const char *) \
op (row, const uint64_t) \
op (payment_target_uuid, const uint64_t) \
op (array_length, const unsigned int) \
diff --git a/src/testing/Makefile.am b/src/testing/Makefile.am
index 44b858e23..f51c73b89 100644
--- a/src/testing/Makefile.am
+++ b/src/testing/Makefile.am
@@ -62,6 +62,7 @@ libtalertesting_la_SOURCES = \
testing_api_cmd_exec_wirewatch.c \
testing_api_cmd_insert_deposit.c \
testing_api_cmd_kyc_check_get.c \
+ testing_api_cmd_kyc_proof.c \
testing_api_cmd_kyc_wallet_get.c \
testing_api_cmd_offline_sign_fees.c \
testing_api_cmd_offline_sign_keys.c \
diff --git a/src/testing/testing_api_cmd_kyc_proof.c b/src/testing/testing_api_cmd_kyc_proof.c
new file mode 100644
index 000000000..bd6162698
--- /dev/null
+++ b/src/testing/testing_api_cmd_kyc_proof.c
@@ -0,0 +1,243 @@
+/*
+ This file is part of TALER
+ Copyright (C) 2021 Taler Systems SA
+
+ TALER 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 3, or
+ (at your option) any later version.
+
+ TALER 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 General Public License for more details.
+
+ You should have received a copy of the GNU General Public
+ License along with TALER; see the file COPYING. If not, see
+
+*/
+
+/**
+ * @file testing/testing_api_cmd_kyc_proof.c
+ * @brief Implement the testing CMDs for the /kyc-proof/ operation.
+ * @author Christian Grothoff
+ */
+#include "platform.h"
+#include "taler_json_lib.h"
+#include
+#include "taler_testing_lib.h"
+
+/**
+ * State for a "track transaction" CMD.
+ */
+struct KycProofGetState
+{
+
+ /**
+ * Command to get a reserve private key from.
+ */
+ const char *payment_target_reference;
+
+ /**
+ * Code to pass.
+ */
+ const char *code;
+
+ /**
+ * State to pass.
+ */
+ const char *state;
+
+ /**
+ * Expected HTTP response code.
+ */
+ unsigned int expected_response_code;
+
+ /**
+ * Set to the KYC REDIRECT *if* the exchange replied with
+ * success (#MHD_HTTP_OK).
+ */
+ char *redirect_url;
+
+ /**
+ * Handle to the "track transaction" pending operation.
+ */
+ struct TALER_EXCHANGE_KycProofHandle *kph;
+
+ /**
+ * Interpreter state.
+ */
+ struct TALER_TESTING_Interpreter *is;
+};
+
+
+/**
+ * Handle response to the command.
+ *
+ * @param cls closure.
+ * @param kpr KYC proof response details
+ */
+static void
+proof_kyc_cb (void *cls,
+ const struct TALER_EXCHANGE_KycProofResponse *kpr)
+{
+ struct KycProofGetState *kcg = cls;
+ struct TALER_TESTING_Interpreter *is = kcg->is;
+ struct TALER_TESTING_Command *cmd = &is->commands[is->ip];
+
+ kcg->kph = NULL;
+ if (kcg->expected_response_code != kpr->http_status)
+ {
+ GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+ "Unexpected response code %u/%d to command %s in %s:%u\n",
+ kpr->http_status,
+ (int) kpr->ec,
+ cmd->label,
+ __FILE__,
+ __LINE__);
+ TALER_TESTING_interpreter_fail (is);
+ return;
+ }
+ switch (kpr->http_status)
+ {
+ case MHD_HTTP_FOUND:
+ kcg->redirect_url = GNUNET_strdup (kpr->details.found.redirect_url);
+ break;
+ default:
+ GNUNET_break (0);
+ break;
+ }
+ TALER_TESTING_interpreter_next (kcg->is);
+}
+
+
+/**
+ * Run the command.
+ *
+ * @param cls closure.
+ * @param cmd the command to execute.
+ * @param is the interpreter state.
+ */
+static void
+proof_kyc_run (void *cls,
+ const struct TALER_TESTING_Command *cmd,
+ struct TALER_TESTING_Interpreter *is)
+{
+ struct KycProofGetState *kps = cls;
+ const struct TALER_TESTING_Command *res_cmd;
+ const uint64_t *payment_target;
+
+ (void) cmd;
+ kps->is = is;
+ res_cmd = TALER_TESTING_interpreter_lookup_command (kps->is,
+ kps->
+ payment_target_reference);
+ if (NULL == res_cmd)
+ {
+ GNUNET_break (0);
+ TALER_TESTING_interpreter_fail (kps->is);
+ return;
+ }
+ if (GNUNET_OK !=
+ TALER_TESTING_get_trait_payment_target_uuid (res_cmd,
+ &payment_target))
+ {
+ GNUNET_break (0);
+ TALER_TESTING_interpreter_fail (kps->is);
+ return;
+ }
+ kps->kph = TALER_EXCHANGE_kyc_proof (is->exchange,
+ *payment_target,
+ kps->code,
+ kps->state,
+ &proof_kyc_cb,
+ kps);
+ GNUNET_assert (NULL != kps->kph);
+}
+
+
+/**
+ * Cleanup the state from a "track transaction" CMD, and possibly
+ * cancel a operation thereof.
+ *
+ * @param cls closure.
+ * @param cmd the command which is being cleaned up.
+ */
+static void
+proof_kyc_cleanup (void *cls,
+ const struct TALER_TESTING_Command *cmd)
+{
+ struct KycProofGetState *kps = cls;
+
+ if (NULL != kps->kph)
+ {
+ GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
+ "Command %u (%s) did not complete\n",
+ kps->is->ip,
+ cmd->label);
+ TALER_EXCHANGE_kyc_proof_cancel (kps->kph);
+ kps->kph = NULL;
+ }
+ GNUNET_free (kps->redirect_url);
+ GNUNET_free (kps);
+}
+
+
+/**
+ * Offer internal data from a "proof KYC" CMD.
+ *
+ * @param cls closure.
+ * @param[out] ret result (could be anything).
+ * @param trait name of the trait.
+ * @param index index number of the object to offer.
+ * @return #GNUNET_OK on success.
+ */
+static enum GNUNET_GenericReturnValue
+proof_kyc_traits (void *cls,
+ const void **ret,
+ const char *trait,
+ unsigned int index)
+{
+ struct KycProofGetState *kps = cls;
+ struct TALER_TESTING_Trait traits[] = {
+ TALER_TESTING_make_trait_web_url (
+ (const char **) &kps->redirect_url),
+ TALER_TESTING_trait_end ()
+ };
+
+ return TALER_TESTING_get_trait (traits,
+ ret,
+ trait,
+ index);
+}
+
+
+struct TALER_TESTING_Command
+TALER_TESTING_cmd_proof_kyc (const char *label,
+ const char *payment_target_reference,
+ const char *code,
+ const char *state,
+ unsigned int expected_response_code)
+{
+ struct KycProofGetState *kps;
+
+ kps = GNUNET_new (struct KycProofGetState);
+ kps->code = code;
+ kps->state = state;
+ kps->payment_target_reference = payment_target_reference;
+ kps->expected_response_code = expected_response_code;
+ {
+ struct TALER_TESTING_Command cmd = {
+ .cls = kps,
+ .label = label,
+ .run = &proof_kyc_run,
+ .cleanup = &proof_kyc_cleanup,
+ .traits = &proof_kyc_traits
+ };
+
+ return cmd;
+ }
+}
+
+
+/* end of testing_api_cmd_kyc_proof.c */