use strict;
use warnings;
use Test::More tests => 2;
use Test::Deep;

use FindBin;
use Thrift::IDL;
use Thrift::Parser;
use Tapir::MethodCall;

# We're using MethodCall in a synchronous context.  Call POE::Kernel->run now to avoid warnings being emitted
use POE;
POE::Kernel->run();

my $idl = Thrift::IDL->parse_thrift_file($FindBin::Bin . '/thrift/example.thrift');
my $parser = Thrift::Parser->new(idl => $idl, service => 'Accounts');

my $message = Tappy::Accounts::createAccount->compose_message_call(
	username => 'johndoe',
	password => '12345',
);

my $call = Tapir::MethodCall->new(
	message => $message
);

our %call_history;

{
	package MyAPI::Handler;

	use Moose;
	use Tapir::Server::Handler::Signatures;
	extends 'Tapir::Server::Handler::Class';

	set_service 'Accounts';

	method createAccount ($username, $password) {
		push @{ $main::call_history{createAccount} }, {
			username => $username,
			password => $password,
			call     => $call,
			class    => $class,
		};
		return 19;
	}

	method getAccount {
	}
}

MyAPI::Handler->add_call_actions($call);

my $action = $call->get_next_action();
is $action->(), 19, "Handler add_call_actions() adds action that calls MyAPI::Handler->create_account";
cmp_deeply $call_history{createAccount}, [{
		username => 'johndoe',
		password => '12345',
		call     => $call,
		class    => 'MyAPI::Handler',
	}], "Recorded the call in %call_history";