/*
  This file is part of TALER
  Copyright (C) 2014-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
  <http://www.gnu.org/licenses/>
*/
/**
 * @file lib/test_exchange_api_twisted.c
 * @brief testcase to test exchange's HTTP API interface
 * @author Marcello Stanisci
 * @author Sree Harsha Totakura <sreeharsha@totakura.in>
 * @author Christian Grothoff
 */
#include "platform.h"
#include "taler_util.h"
#include "taler_signatures.h"
#include "taler_exchange_service.h"
#include "taler_json_lib.h"
#include <gnunet/gnunet_util_lib.h>
#include <microhttpd.h>
#include "taler_bank_service.h"
#include "taler_fakebank_lib.h"
#include "taler_testing_lib.h"
#include <taler/taler_twister_testing_lib.h>
#include <taler/taler_twister_service.h>

/**
 * Configuration file we use.  One (big) configuration is used
 * for the various components for this test.
 */
#define CONFIG_FILE "test_exchange_api_twisted.conf"

/**
 * (real) Twister URL.  Used at startup time to check if it runs.
 */
static char *twister_url;

/**
 * Exchange configuration data.
 */
static struct TALER_TESTING_ExchangeConfiguration ec;

/**
 * Bank configuration data.
 */
static struct TALER_TESTING_BankConfiguration bc;

/**
 * Twister process.
 */
static struct GNUNET_OS_Process *twisterd;


/**
 * Execute the taler-exchange-wirewatch command with
 * our configuration file.
 *
 * @param label label to use for the command.
 */
#define CMD_EXEC_WIREWATCH(label) \
  TALER_TESTING_cmd_exec_wirewatch (label, CONFIG_FILE)

/**
 * Execute the taler-exchange-aggregator command with
 * our configuration file.
 *
 * @param label label to use for the command.
 */
#define CMD_EXEC_AGGREGATOR(label) \
  TALER_TESTING_cmd_exec_aggregator (label, CONFIG_FILE)

/**
 * Run wire transfer of funds from some user's account to the
 * exchange.
 *
 * @param label label to use for the command.
 * @param amount amount to transfer, i.e. "EUR:1"
 * @param url exchange_url
 */
#define CMD_TRANSFER_TO_EXCHANGE(label,amount) \
  TALER_TESTING_cmd_admin_add_incoming (label, amount, \
                                        bc.exchange_account_url,   \
                                        &bc.exchange_auth, \
                                        bc.user42_payto)


/**
 * Main function that will tell the interpreter what commands to
 * run.
 *
 * @param cls closure
 */
static void
run (void *cls,
     struct TALER_TESTING_Interpreter *is)
{
  /**
   * This batch aims to trigger the 409 Conflict
   * response from a refresh-reveal operation.
   */
  struct TALER_TESTING_Command refresh_409_conflict[] = {
    CMD_TRANSFER_TO_EXCHANGE
      ("refresh-create-reserve",
      "EUR:5.01"),
    /**
     * Make previous command effective.
     */
    CMD_EXEC_WIREWATCH
      ("wirewatch"),
    /**
     * Withdraw EUR:5.
     */
    TALER_TESTING_cmd_withdraw_amount
      ("refresh-withdraw-coin",
      "refresh-create-reserve",
      "EUR:5",
      MHD_HTTP_OK),

    TALER_TESTING_cmd_deposit
      ("refresh-deposit-partial",
      "refresh-withdraw-coin",
      0,
      bc.user42_payto,
      "{\"items\":[{\"name\":\"ice cream\",\
                     \"value\":\"EUR:1\"}]}",
      GNUNET_TIME_UNIT_ZERO,
      "EUR:1",
      MHD_HTTP_OK),

    /**
     * Melt the rest of the coin's value
     * (EUR:4.00 = 3x EUR:1.03 + 7x EUR:0.13) */
    TALER_TESTING_cmd_refresh_melt
      ("refresh-melt",
      "refresh-withdraw-coin",
      MHD_HTTP_OK,
      NULL),
    /* Trigger 409 Conflict.  */
    TALER_TESTING_cmd_flip_upload
      ("flip-upload",
      CONFIG_FILE,
      "transfer_privs.0"),
    TALER_TESTING_cmd_refresh_reveal
      ("refresh-(flipped-)reveal",
      "refresh-melt",
      MHD_HTTP_CONFLICT),

    TALER_TESTING_cmd_end ()

  };


  /**
   * NOTE: not all CMDs actually need the twister,
   * so it may be better to move those into the "main"
   * lib test suite.
   */struct TALER_TESTING_Command refund[] = {

    CMD_TRANSFER_TO_EXCHANGE
      ("create-reserve-r1",
      "EUR:5.01"),
    CMD_EXEC_WIREWATCH
      ("wirewatch-r1"),
    TALER_TESTING_cmd_withdraw_amount
      ("withdraw-coin-r1",
      "create-reserve-r1",
      "EUR:5",
      MHD_HTTP_OK),
    TALER_TESTING_cmd_deposit
      ("deposit-refund-1",
      "withdraw-coin-r1",
      0,
      bc.user42_payto,
      "{\"items\":[{\"name\":\"ice cream\","
      "\"value\":\"EUR:5\"}]}",
      GNUNET_TIME_UNIT_MINUTES,
      "EUR:5",
      MHD_HTTP_OK),
    TALER_TESTING_cmd_refund
      ("refund-currency-missmatch",
      MHD_HTTP_PRECONDITION_FAILED,
      "USD:5",
      "USD:0.01",
      "deposit-refund-1"),
    TALER_TESTING_cmd_refund
      ("refund-fee-above-amount",
      MHD_HTTP_BAD_REQUEST,
      "EUR:5",
      "EUR:10",
      "deposit-refund-1"),
    TALER_TESTING_cmd_flip_upload
      ("flip-upload",
      CONFIG_FILE,
      "merchant_sig"),
    TALER_TESTING_cmd_refund
      ("refund-bad-sig",
      MHD_HTTP_FORBIDDEN,
      "EUR:5",
      "EUR:0.01",
      "deposit-refund-1"),

    /* This next deposit CMD is only used to provide a
     * good merchant signature to the next (failing) refund
     * operations.  */

    TALER_TESTING_cmd_deposit
      ("deposit-refund-to-fail",
      "withdraw-coin-r1",
      0,  /* coin index.  */
      bc.user42_payto,
      /* This parameter will make any comparison about
         h_contract_terms fail, when /refund will be handled.
         So in other words, this is h_contract missmatch.  */
      "{\"items\":[{\"name\":\"ice skate\","
      "\"value\":\"EUR:5\"}]}",
      GNUNET_TIME_UNIT_MINUTES,
      "EUR:5",
      MHD_HTTP_CONFLICT),
    TALER_TESTING_cmd_refund
      ("refund-deposit-not-found",
      MHD_HTTP_NOT_FOUND,
      "EUR:5",
      "EUR:0.01",
      "deposit-refund-to-fail"),
    TALER_TESTING_cmd_refund
      ("refund-insufficient-funds",
      MHD_HTTP_PRECONDITION_FAILED,
      "EUR:50",
      "EUR:0.01",
      "deposit-refund-1"),
    TALER_TESTING_cmd_refund
      ("refund-fee-too-low",
      MHD_HTTP_BAD_REQUEST,
      "EUR:5",
      "EUR:0.000001",
      "deposit-refund-1"),
    TALER_TESTING_cmd_end ()
  };

  struct TALER_TESTING_Command commands[] = {
    TALER_TESTING_cmd_batch ("refresh-reveal-409-conflict",
                             refresh_409_conflict),
    TALER_TESTING_cmd_batch ("refund",
                             refund),
    TALER_TESTING_cmd_end ()
  };

  TALER_TESTING_run_with_fakebank (is,
                                   commands,
                                   bc.bank_url);
}


/**
 * Kill, wait, and destroy convenience function.
 *
 * @param process process to purge.
 */
static void
purge_process (struct GNUNET_OS_Process *process)
{
  GNUNET_OS_process_kill (process, SIGINT);
  GNUNET_OS_process_wait (process);
  GNUNET_OS_process_destroy (process);
}


int
main (int argc,
      char *const *argv)
{
  unsigned int ret;
  /* These environment variables get in the way... */
  unsetenv ("XDG_DATA_HOME");
  unsetenv ("XDG_CONFIG_HOME");
  GNUNET_log_setup ("test-exchange-api-twisted",
                    "DEBUG", NULL);

  if (GNUNET_OK !=
      TALER_TESTING_prepare_fakebank (CONFIG_FILE,
                                      "account-2",
                                      &bc))
    return 77;

  if (NULL == (twister_url = TALER_TESTING_prepare_twister
                               (CONFIG_FILE)))
    return 77;

  TALER_TESTING_cleanup_files (CONFIG_FILE);

  switch (TALER_TESTING_prepare_exchange (CONFIG_FILE,
                                          &ec))
  {
  case GNUNET_SYSERR:
    GNUNET_break (0);
    return 1;
  case GNUNET_NO:
    return 77;

  case GNUNET_OK:

    if (NULL == (twisterd = TALER_TESTING_run_twister (CONFIG_FILE)))
      return 77;

    ret = TALER_TESTING_setup_with_exchange (&run,
                                             NULL,
                                             CONFIG_FILE);
    purge_process (twisterd);
    GNUNET_free (twister_url);

    if (GNUNET_OK != ret)
      return 1;
    break;
  default:
    GNUNET_break (0);
    return 1;
  }
  return 0;
}


/* end of test_exchange_api_twisted.c */