/*
  This file is part of TALER
  Copyright (C) 2014-2018 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 testing/test_bank_api_with_fakebank_twisted.c
 * @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_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_FAKEBANK "test_bank_api_fakebank_twisted.conf"

/**
 * Separate config file for running with the pybank.
 */
#define CONFIG_FILE_PYBANK "test_bank_api_pybank_twisted.conf"

/**
 * True when the test runs against Fakebank.
 */
static int with_fakebank;

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

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

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

/**
 * Python bank process handle.
 */
static struct GNUNET_OS_Process *bankd;


/**
 * Main function that will tell
 * the interpreter what commands to run.
 *
 * @param cls closure
 */
static void
run (void *cls,
     struct TALER_TESTING_Interpreter *is)
{
  struct TALER_WireTransferIdentifierRawP wtid;
  /* Route our commands through twister. */
  struct TALER_BANK_AuthenticationData exchange_auth_twisted;

  (void) cls;
  memset (&wtid,
          0x5a,
          sizeof (wtid));
  memcpy (&exchange_auth_twisted,
          &bc.exchange_auth,
          sizeof (struct TALER_BANK_AuthenticationData));
  if (with_fakebank)
    exchange_auth_twisted.wire_gateway_url =
      "http://localhost:8888/2/";
  else
    exchange_auth_twisted.wire_gateway_url =
      "http://localhost:8888/taler-wire-gateway/Exchange/";

  struct TALER_TESTING_Command commands[] = {
    /* Test retrying transfer after failure. */
    TALER_TESTING_cmd_malform_response ("malform-transfer",
                                        CONFIG_FILE_FAKEBANK),
    TALER_TESTING_cmd_transfer_retry (
      TALER_TESTING_cmd_transfer ("debit-1",
                                  "KUDOS:3.22",
                                  &exchange_auth_twisted,
                                  bc.exchange_payto,
                                  bc.user42_payto,
                                  &wtid,
                                  "http://exchange.example.com/")),
    TALER_TESTING_cmd_end ()
  };

  if (GNUNET_YES == with_fakebank)
    TALER_TESTING_run_with_fakebank (is,
                                     commands,
                                     bc.exchange_auth.wire_gateway_url);
  else
    TALER_TESTING_run (is,
                       commands);
}


/**
 * 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);
}


/**
 * Runs #TALER_TESTING_setup() using the configuration.
 *
 * @param cls unused
 * @param cfg configuration to use
 * @return status code
 */
static int
setup_with_cfg (void *cls,
                const struct GNUNET_CONFIGURATION_Handle *cfg)
{
  (void) cls;
  return TALER_TESTING_setup (&run,
                              NULL,
                              cfg,
                              NULL,
                              GNUNET_NO);
}


int
main (int argc,
      char *const *argv)
{
  int ret;
  const char *cfgfilename;

  (void) argc;
  /* These environment variables get in the way... */
  unsetenv ("XDG_DATA_HOME");
  unsetenv ("XDG_CONFIG_HOME");
  GNUNET_log_setup ("test-bank-api-with-(fake)bank-twisted",
                    "INFO",
                    NULL);

  with_fakebank = TALER_TESTING_has_in_name (argv[0],
                                             "_with_fakebank");

  if (with_fakebank)
    cfgfilename = CONFIG_FILE_FAKEBANK;
  else
    cfgfilename = CONFIG_FILE_PYBANK;

  if (NULL == (twister_url = TALER_TWISTER_prepare_twister (
                 cfgfilename)))
  {
    GNUNET_break (0);
    return 77;
  }
  GNUNET_log (GNUNET_ERROR_TYPE_INFO,
              "twister_url is %s\n",
              twister_url);
  if (NULL == (twisterd = TALER_TWISTER_run_twister (cfgfilename)))
  {
    GNUNET_break (0);
    GNUNET_free (twister_url);
    return 77;
  }
  if (GNUNET_YES == with_fakebank)
  {
    TALER_LOG_DEBUG ("Running against the Fakebank.\n");
    if (GNUNET_OK !=
        TALER_TESTING_prepare_fakebank (cfgfilename,
                                        "exchange-account-2",
                                        &bc))
    {
      GNUNET_break (0);
      GNUNET_free (twister_url);
      return 77;
    }
  }
  else
  {
    TALER_LOG_DEBUG ("Running against the Pybank.\n");
    if (GNUNET_OK !=
        TALER_TESTING_prepare_bank (cfgfilename,
                                    GNUNET_YES,
                                    "exchange-account-2",
                                    &bc))
    {
      GNUNET_break (0);
      GNUNET_free (twister_url);
      return 77;
    }

    if (NULL == (bankd = TALER_TESTING_run_bank (
                   cfgfilename,
                   bc.exchange_auth.wire_gateway_url)))
    {
      GNUNET_break (0);
      GNUNET_free (twister_url);
      return 77;
    }
  }

  sleep (5);
  ret = GNUNET_CONFIGURATION_parse_and_run (cfgfilename,
                                            &setup_with_cfg,
                                            NULL);
  purge_process (twisterd);

  if (GNUNET_NO == with_fakebank)
  {
    GNUNET_OS_process_kill (bankd,
                            SIGKILL);
    GNUNET_OS_process_wait (bankd);
    GNUNET_OS_process_destroy (bankd);
  }

  GNUNET_free (twister_url);
  if (GNUNET_OK == ret)
    return 0;

  return 1;
}


/* end of test_bank_api_twisted.c */