Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667use Test::More tests => 15;use Test::Deep;use Data::Dumper;use 5.010;use DateTime;
use TestClient;TestClient->clear_all_test_empires;
my $tester = TestClient->new->generate_test_empire->build_infrastructure;my $session_id = $tester->session->id;my $empire = $tester->empire;my $home = $empire->home_planet;
my $result;
$result = $tester->post('embassy', 'build', [$session_id, $home->id, 0, 3]);ok($result->{result}{building}{id}, "built an embassy");my $embassy = $tester->get_building($result->{result}{building}{id});$embassy->finish_upgrade;
$result = $tester->post('embassy', 'create_alliance', [$session_id, $embassy->id, 'test alliance']);ok(exists $result->{result}, 'can create alliance');
$result = $tester->post('inbox','send_message', [$session_id, '@ally', 'my subject', "test"]);is($result->{result}{message}{sent}[0], $tester->empire_name, 'can send allies a message');
$result = $tester->post('embassy', 'get_alliance_status', [$session_id, $embassy->id]);ok(exists $result->{result}, 'can get alliance');
$result = $tester->post('embassy', 'update_alliance', [$session_id, $embassy->id, { forum_uri => 'http://www.google.com' }]);ok(exists $result->{result}, 'can update alliance');
$result = $tester->post('embassy', 'send_invite', [$session_id, $embassy->id, 1]);ok(exists $result->{result}, 'invite the lacunans');
$result = $tester->post('embassy', 'get_pending_invites', [$session_id, $embassy->id]);ok(exists $result->{result}, 'get invitations');
$result = $tester->post('embassy', 'withdraw_invite', [$session_id, $embassy->id, $result->{result}{invites}[0]{id}]);ok(exists $result->{result}, 'uninvite the lacunans');
$result = $tester->post('embassy', 'reject_invite', [$session_id, $embassy->id, 9999]);is($result->{error}{code}, 1002, 'cannot reject a non-existant invite');
$result = $tester->post('embassy', 'accept_invite', [$session_id, $embassy->id, 9999]);is($result->{error}{code}, 1002, 'cannot accept a non-existant invite');
$result = $tester->post('embassy', 'assign_alliance_leader', [$session_id, $embassy->id, 1]);is($result->{error}{code}, 1010, 'cannot set non member as alliance leader');
$result = $tester->post('embassy', 'leave_alliance', [$session_id, $embassy->id]);is($result->{error}{code}, 1010, 'cannot leave an alliance if you are the leader');
$result = $tester->post('embassy', 'expel_member', [$session_id, $embassy->id, 1]);is($result->{error}{code}, 1010, 'expel member');
$result = $tester->post('embassy', 'view_stash', [$session_id, $embassy->id]);is(ref$result->{result}{stash}, 'HASH', 'view_stash');
$result = $tester->post('embassy', 'dissolve_alliance', [$session_id, $embassy->id]);ok(exists $result->{result}, 'dissolve alliance');
END { TestClient->clear_all_test_empires;}