/*
This file is part of TALER
Copyright (C) 2020 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 lib/testing_api_cmd_get_instance.c
* @brief command to test GET /instance/$ID
* @author Christian Grothoff
*/
#include "platform.h"
#include
#include
#include "taler_merchant_service.h"
#include "taler_merchant_testing_lib.h"
/**
* State of a "GET instance" CMD.
*/
struct GetInstanceState
{
/**
* Handle for a "GET instance" request.
*/
struct TALER_MERCHANT_InstanceGetHandle *igh;
/**
* The interpreter state.
*/
struct TALER_TESTING_Interpreter *is;
/**
* Base URL of the merchant serving the request.
*/
const char *merchant_url;
/**
* ID of the instance to run GET for.
*/
const char *instance_id;
/**
* Reference for a POST or PATCH /instances CMD (optional).
*/
const char *instance_reference;
/**
* Expected HTTP response code.
*/
unsigned int http_status;
};
/**
* Callback for a /get/instance/$ID operation.
*
* @param cls closure for this function
*/
static void
get_instance_cb (void *cls,
const struct TALER_MERCHANT_HttpResponse *hr,
unsigned int accounts_length,
const struct TALER_MERCHANT_Account accounts[],
const struct TALER_MERCHANT_InstanceDetails *details)
{
/* FIXME, deeper checks should be implemented here (for accounts). */
struct GetInstanceState *gis = cls;
const struct TALER_TESTING_Command *instance_cmd;
instance_cmd = TALER_TESTING_interpreter_lookup_command (
gis->is,
gis->instance_reference);
gis->igh = NULL;
if (gis->http_status != hr->http_status)
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Unexpected response code %u (%d) to command %s\n",
hr->http_status,
(int) hr->ec,
TALER_TESTING_interpreter_get_current_label (gis->is));
TALER_TESTING_interpreter_fail (gis->is);
return;
}
switch (hr->http_status)
{
case MHD_HTTP_OK:
{
const char *name;
if (GNUNET_OK !=
TALER_TESTING_get_trait_string (instance_cmd,
0,
&name))
TALER_TESTING_interpreter_fail (gis->is);
if (0 != strcmp (details->name,
name))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Instance name does not match\n");
TALER_TESTING_interpreter_fail (gis->is);
return;
}
}
{
const struct json_t *address;
if (GNUNET_OK !=
TALER_TESTING_get_trait_merchant_address (instance_cmd,
0,
&address))
TALER_TESTING_interpreter_fail (gis->is);
if (1 != json_equal (details->address,
address))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Instance address does not match\n");
TALER_TESTING_interpreter_fail (gis->is);
return;
}
}
{
const struct json_t *jurisdiction;
if (GNUNET_OK !=
TALER_TESTING_get_trait_merchant_jurisdiction (instance_cmd,
0,
&jurisdiction))
TALER_TESTING_interpreter_fail (gis->is);
if (1 != json_equal (details->jurisdiction,
jurisdiction))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Instance jurisdiction does not match\n");
TALER_TESTING_interpreter_fail (gis->is);
return;
}
}
{
const struct TALER_Amount *default_max_wire_fee;
if (GNUNET_OK !=
TALER_TESTING_get_trait_amount_obj (instance_cmd,
0,
&default_max_wire_fee))
TALER_TESTING_interpreter_fail (gis->is);
if ((GNUNET_OK != TALER_amount_cmp_currency (
details->default_max_wire_fee,
default_max_wire_fee)) ||
(0 != TALER_amount_cmp (details->default_max_wire_fee,
default_max_wire_fee)))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Instance default max wire fee does not match\n");
TALER_TESTING_interpreter_fail (gis->is);
return;
}
}
{
const uint32_t *default_wire_fee_amortization;
if (GNUNET_OK !=
TALER_TESTING_get_trait_uint32 (instance_cmd,
0,
&default_wire_fee_amortization))
TALER_TESTING_interpreter_fail (gis->is);
if (details->default_wire_fee_amortization !=
*default_wire_fee_amortization)
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Instance default wire fee amortization does not match\n");
TALER_TESTING_interpreter_fail (gis->is);
return;
}
}
{
const struct TALER_Amount *default_max_deposit_fee;
if (GNUNET_OK !=
TALER_TESTING_get_trait_amount_obj (instance_cmd,
0,
&default_max_deposit_fee))
TALER_TESTING_interpreter_fail (gis->is);
if ((GNUNET_OK != TALER_amount_cmp_currency (
details->default_max_deposit_fee,
default_max_deposit_fee)) ||
(0 != TALER_amount_cmp (details->default_max_deposit_fee,
default_max_deposit_fee)))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Instance default max deposit fee does not match\n");
TALER_TESTING_interpreter_fail (gis->is);
return;
}
}
{
const struct GNUNET_TIME_Relative *default_wire_transfer_delay;
if (GNUNET_OK !=
TALER_TESTING_get_trait_relative_time (instance_cmd,
0,
&default_wire_transfer_delay))
TALER_TESTING_interpreter_fail (gis->is);
if (details->default_wire_transfer_delay.rel_value_us !=
default_wire_transfer_delay->rel_value_us)
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Instance default wire transfer delay does not match\n");
TALER_TESTING_interpreter_fail (gis->is);
return;
}
}
{
const struct GNUNET_TIME_Relative *default_pay_delay;
if (GNUNET_OK !=
TALER_TESTING_get_trait_relative_time (instance_cmd,
1,
&default_pay_delay))
TALER_TESTING_interpreter_fail (gis->is);
if (details->default_pay_delay.rel_value_us !=
default_pay_delay->rel_value_us)
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Instance default pay delay does not match\n");
TALER_TESTING_interpreter_fail (gis->is);
return;
}
}
break;
default:
GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
"Unhandled HTTP status.\n");
}
TALER_TESTING_interpreter_next (gis->is);
}
/**
* Run the "GET instance" CMD.
*
*
* @param cls closure.
* @param cmd command being run now.
* @param is interpreter state.
*/
static void
get_instance_run (void *cls,
const struct TALER_TESTING_Command *cmd,
struct TALER_TESTING_Interpreter *is)
{
struct GetInstanceState *gis = cls;
gis->is = is;
gis->igh = TALER_MERCHANT_instance_get (is->ctx,
gis->merchant_url,
gis->instance_id,
&get_instance_cb,
gis);
GNUNET_assert (NULL != gis->igh);
}
/**
* Free the state of a "GET instance" CMD, and possibly
* cancel a pending operation thereof.
*
* @param cls closure.
* @param cmd command being run.
*/
static void
get_instance_cleanup (void *cls,
const struct TALER_TESTING_Command *cmd)
{
struct GetInstanceState *gis = cls;
if (NULL != gis->igh)
{
GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
"GET /instances/$ID operation did not complete\n");
TALER_MERCHANT_instance_get_cancel (gis->igh);
}
GNUNET_free (gis);
}
/**
* Define a "GET instance" CMD.
*
* @param label command label.
* @param merchant_url base URL of the merchant serving the
* GET /instances/$ID request.
* @param instance_id the ID of the instance to query
* @param http_status expected HTTP response code.
* @param instance_reference reference to a "POST /instances" or "PATCH /instances/$ID" CMD
* that will provide what we expect the backend to return to us
* @return the command.
*/
struct TALER_TESTING_Command
TALER_TESTING_cmd_merchant_get_instance (const char *label,
const char *merchant_url,
const char *instance_id,
unsigned int http_status,
const char *instance_reference)
{
struct GetInstanceState *gis;
gis = GNUNET_new (struct GetInstanceState);
gis->merchant_url = merchant_url;
gis->instance_id = instance_id;
gis->http_status = http_status;
gis->instance_reference = instance_reference;
{
struct TALER_TESTING_Command cmd = {
.cls = gis,
.label = label,
.run = &get_instance_run,
.cleanup = &get_instance_cleanup
};
return cmd;
}
}
/* end of testing_api_cmd_get_instance.c */